利用Excel批量快速发送电子邮件，分两步：
1. 准备待发送的数据：
a.) 打开Excel，新建Book1.xlsx b.) 填入下面的内容，
第一列：接收人，第二列：邮件标题，第三列：正文，第四列：附件路径 注意：附件路径中可以有中文，但是不能有空格
这里你可以写更多内容，每一行作为一封邮件发出。
注意：邮件正文是黑白文本内容，不支持加粗、字体颜色等。（如果你需要支持彩色的邮件，后面将会给出解决办法）
2. 编写宏发送邮件
a.) Alt + F11 打开宏编辑器，菜单中选：插入->模块 b.) 将下面的代码粘贴到模块代码编辑器中：
?代码list-1
Public Declare Function SetTimer Lib \
(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long
Public Declare Function KillTimer Lib \
(ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub Sleep Lib \
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 \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(\ 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
最终代码编辑器中的效果如下图：
i
为了正确执行代码，你还需要在
菜单中选择： 工具->引用 中的Microseft Outlook X.0 Object Library 勾选上 （X.0是版本号，不同机器可能不一样）
c.) 粘贴好代码、勾选上上面的东东后可以发送邮件了，点击上图A红圈所示的绿色三角按钮，会弹出下图所示的对话框，点运行，就开始批量发送邮件了。
d.) 如果你想确认你的邮件是否都发出去了，可以去Outlook的“已发送邮件”文件夹中查看，是否有你希望发出的邮件，如果有，恭喜你，收工~~
--------------------------------------------------------------------- 下面讲解
1. 如何发送彩色的邮件
2. 如何替换正文中的部分内容，例如，每一封邮件中可能最开始的称呼不同，给对方报出的数字不同等 3. 如何发送多附件
---------------------------------------------------------------------
1. 如何发送彩色邮件发送彩色邮件需要两步，