如何用excel批量发邮件自动发邮件 excel定时自动发邮件

1.
准备待发送的数据:

? ?a.) 打开Excel,新建Book1.xlsx

? ?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 Long

Public Declare Function KillTimer Lib "user32" _

? ? ? ? (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Private 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 Long

? ? KillTimer 0, idEvent

? ? DoEvents

? ? Sleep 100

? ? '使用Alt+S发送邮件,这是本文的关键之处,免安全提示自动发送邮件全靠它了

? ? Application.SendKeys "%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 Object

? ? Dim itmNewMail As Object

? ? '引用Microsoft Outlook 对象

? ? Set objOL = CreateObject("Outlook.Application")

? ? Set itmNewMail = objOL.CreateItem(olMailItem)

? ? With itmNewMail

? ? ? ? .subject = subject ?'主旨

? ? ? ? .body = body ? '正文本文

? ? ? ? .To = to_who ?'收件者

? ? ? ? .Attachments.Add attachement '附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦

? ? ? ? .Display ?'启动Outlook发送窗口

? ? ? ? SetTimer 0, 0, 0, AddressOf WinProcA

? ? End With

? ? Set objOL = Nothing

? ? Set itmNewMail = Nothing

End Sub

'批量发送邮件

Sub BatchSendMail()

? ? Dim rowCount, endRowNo

? ? endRowNo = Cells(1, 1).CurrentRegion.Rows.Count

? ? '逐行发送邮件

? ? For rowCount = 1 To endRowNo

? ? ? ? SendMail Cells(rowCount, 1), Cells(rowCount, 2), Cells(rowCount, 3), Cells(rowCount, 4)

? ? Next

End Sub

3.最终代码编辑器中的效果如下图:

如何用excel批量发邮件自动发邮件_批量发邮件

为了正确执行代码,你还需要在

菜单中选择: 工具->引用
中的Microseft Outlook X.0 Object Library ?勾选上
如何用excel批量发邮件自动发邮件 excel定时自动发邮件
(X.0是版本号,不同机器可能不一样http://jgkc,有具体教程)

? ?c.)
粘贴好代码、勾选上上面的东东后可以发送邮件了,点击上图A红圈所示的绿色三角按钮,会弹出下图所示的对话框,点运行,就开始批量发送邮件了。

? ?d.) 如果你想确认你的邮件是否都发出去了,可以去Outlook的“已发送邮件”文件夹中查看,是否有你希望发出的邮件,如果有,恭喜你,收工~~ ?

  

爱华网本文地址 » http://www.413yy.cn/a/25101011/48110.html

更多阅读

如何用自己的邮箱给别人发邮件 邮箱中毒给别人发邮件

如何用自己的邮箱给别人发邮件——简介 电子邮件已经成为了现在比较流行的一种通讯工具,我们经常要用自己的电子邮箱为其他邮箱发送一些文件,菜鸟怎样才能发送邮件呢?如何用自己的邮箱给别人发邮件——工具/原料任意类型的邮箱一个联

如何用发簪绾头发 古代簪子盘发图解

如何用发簪绾头发——简介每当看见各种各样的发簪,小编都会非常的心动,我喜欢用发簪将头发随意的挽起,平时学习的时候,也喜欢用笔将头发挽起,希望我的经验可以帮到长头发的女生哦~~如何用发簪绾头发——工具/原料发簪(笔或筷子也行)长发如

个人简历表格怎么做 如何用excel做简历表格

个人简历表格怎么做——简介找工作之前毫无疑问我们需要给自己制作一份个人简历表格!一个简洁大方的个人简历表格也会对个人找工作带来一个很好的第一印象。今天小编就为大家介绍一个简单的制作个人简历表格的方法!个人简历表格怎么

发簪盘发图解教程 精 如何用发簪盘发 图解

发簪盘发图解教程 精——简介盘发的工具很多,今天主要介绍一款简单又具有复古特色的工具,就是发簪。大家都知道发簪是古代一种不可缺的发饰。那么今天我们在现代中要怎么利用发簪盘出好看又不失时尚的发型呢?发簪盘发图解教程 精——

如何用Excel做直方图 excel2010直方图

如何用Excel做直方图——简介给出样本数据,做出直方图进行统计分析,这是工作人士基本都会遇到的一个问题,如何又快又好的做出直方图呢?小编告诉你一个超简单的方法。如何用Excel做直方图——方法/步骤如何用Excel做直方图 1、一般在Exc

声明:《如何用excel批量发邮件自动发邮件 excel定时自动发邮件》为网友柴扉轻叩分享!如侵犯到您的合法权益请联系我们删除