如何用excel批量发邮件自动发邮件
操作方法
(01)1.准备待发送的数据:a.) 打开Excel,新建b.) 填入下面的内容,第一列:接收人,第二列:邮件标题,第三列:正文,第四列:附件路径注意:附件路径中可以有中文,但是不能有空格这里你可以写更多内容,每一行作为一封邮件发出。注意:邮件正文是黑白文本内容,不支持加粗、字体颜色等。(如果你需要支持彩色的邮件,后面将会给出解决办法)2.编写宏发送邮件a.) Alt + F11 打开宏编辑器,菜单中选:插入->模块b.) 将下面的代码粘贴到模块代码编辑器中:Public Declare Function SetTimer Lib "user32" _(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As LongPublic Declare Function KillTimer Lib "user32" _(ByVal hwnd As Long, ByVal nIDEvent As Long) As LongPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal SysTime As Long) As LongKillTimer 0, idEventDoEventsSleep 100'使用Alt+S发送邮件,这是本文的关键之处,免安全提示自动发送邮件全靠它了Keys "%s"End Function' 发送单个邮件的子程序Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String)Dim objOL As ObjectDim itmNewMail As Object'引用Microsoft Outlook 对象Set objOL = CreateObject("ication")Set itmNewMail = teItem(olMailItem)With ect = subject '主旨 = body '正文本文 = to_who '收件者 attachement '附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦lay '启动Outlook发送窗口SetTimer 0, 0, 0, AddressOf WinProcAEnd WithSet objOL = NothingSet itmNewMail = NothingEnd Sub'批量发送邮件Sub BatchSendMail()Dim rowCount, endRowNoendRowNo = Cells(1, 1)t'逐行发送邮件For rowCount = 1 To endRowNoSendMail Cells(rowCount, 1), Cells(rowCount, 2), Cells(rowCount, 3), Cells(rowCount, 4)NextEnd Sub3.最终代码编辑器中的效果如下图:为了正确执行代码,你还需要在菜单中选择: 工具->引用中的Microseft Outlook X.0 Object Library 勾选上(X.0是版本号,不同机器可能不一样,有具体教程)c.)粘贴好代码、勾选上上面的东东后可以发送邮件了,点击上图A红圈所示的绿色三角按钮,会弹出下图所示的对话框,点运行,就开始批量发送邮件了。d.) 如果你想确认你的邮件是否都发出去了,可以去Outlook的“已发送邮件”文件夹中查看,是否有你希望发出的邮件,如果有,恭喜你,收工~~
-
微信网页版登陆不了怎么办?
大家有没有遇到微信电脑版登录不了的情况,今天来帮大家解决这个小问题,还不知道怎么处理的小伙伴们来学习一下吧。操作方法(01)在手机上打开微信,如图所示。(02)点击右下角的“我”。(03)再点击“账号与安全”,红圈中的选项。(04)然后点击“更多安全设置”。(05)把“账号安全...
-
将pdf转换成word后文档全是图片怎么办
MicrosoftWord是微软公司的一个文本处理器应用程序。它最初是由RichardBrodie为了运行DOS的IBM计算机而在1983年编写的,很多人不知道将pdf转换成word后文档全是图片怎么办,下面让我们一起来学习一下吧操作方法(01)首先打开捷速OCR文本识别软件(02)将PDF放入捷速OCR文...
-
word2016脚注和尾注怎么设置 脚注尾注如何转换
在我们日常工作中,编辑Word文档时,需要对一些名词、句子进行解释说明,那么我们需要用到脚注,或是尾注。那怎么进行设置呢,下面就来进行简单的说明。操作方法(01)双击打开word文档,选中需要加脚注的文本,然后点击菜单栏【引用】。(02)然后点击【插入脚注】。(03)此时会在此页...
-
百度地图查看坐标
操作方法(01)首先,电脑打开搜狗浏览器,进入百度官网。(02)在上边我们点击百度地图的按钮。(03)进入地图上,可以看到当前自己所在城市。(04)点击地图下方的“地图开发平台”按钮。(05)在地图开放平台页面,点击:开发文档——坐标拾取器。(06)然后在地图中,随意点击一个位置,就可以查...