利用Excel批量快速发送电子邮件，，分两步：
1. 准备待发送的数据：
a.) 打开Excel，新建Book1.xlsx
b.) 填入下面的内容，
第一列：接收人，第二列：邮件标题，第三列：正文，第四列：附件路径
注意：附件路径中可以有中文，但是不能有空格
这里你可以写更多内容，每一行作为一封邮件发出。
注意：邮件正文是黑白文本内容，不支持加粗、字体颜色等。（如果你需要支持彩色的邮件，后面将会给出解决办法）
2. 编写宏发送邮件
a.) Alt + F11 打开宏编辑器，菜单中选：插入->模块
b.) 将下面的代码粘贴到模块代码编辑器中：
‘代码list-1
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发送邮件，这是本文的关键之处，免安全提示自动发送邮件全靠它了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 ObjectDim 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 WinProcAEnd WithSet objOL = NothingSet itmNewMail = NothingEnd Sub’批量发送邮件Sub BatchSendMail()Dim rowCount, endRowNoendRowNo = Cells(1, 1).CurrentRegion.Rows.Count’逐行发送邮件For rowCount = 1 To endRowNoSendMail Cells(rowCount, 1), Cells(rowCount, 2), Cells(rowCount, 3), Cells(rowCount, 4)NextEnd Sub最终代码编辑器中的效果如下图：
i
为了正确执行代码，你还需要在
菜单中选择： 工具->引用 中的Microseft Outlook X.0 Object Library 勾选上 （X.0是版本号，不同机器可能不一样）
c.) 粘贴好代码、勾选上上面的东东后可以发送邮件了，点击上图A红圈所示的绿色三角按钮，会弹出下图所示的对话框，点运行，就开始批量发送邮件了。
d.) 如果你想确认你的邮件是否都发出去了，可以去Outlook的“已发送邮件”文件夹中查看，是否有你希望发出的邮件，如果有，恭喜你，收工~~
———————————————————————
下面讲解
1. 如何发送彩色的邮件
2. 如何替换正文中的部分内容，例如，每一封邮件中可能最开始的称呼不同，给对方报出的数字不同等
3. 如何发送多附件
———————————————————————
发送彩色邮件需要两步，
第一步：上面的代码需要改一句（红色加粗文本，body改成HTMLBody）：
‘代码list-2′ 发送单个邮件的子程序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 ‘主旨’~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ .HTMLbody = body ‘正文本文，仅仅这一行跟前面不同，其余都是一样的哦~ ‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ .To = to_who ‘收件者 .Attachments.Add attachement ‘附件 .Display ‘启动Outlook发送窗口 SetTimer 0, 0, 0, AddressOf WinProcA End With Set objOL = Nothing Set itmNewMail = NothingEnd Sub第二步：修改excel第三列（C列）的内容，这需要你懂一点点HTML语言
例如，希望在邮件中将“报税单”三个字变红，加粗，则将第三列的内容修改为：
您好，下面是这一周的<font color="red"><b>报税单</b></font>，…
最终效果如图：
去发件箱里看看效果吧：
学会技能是小智慧，学会做人是大智慧。
