Excel VBA 通过Outlook批量发送邮件（带有附件）
在日常工作中，我们常常需要处理大量的邮件发送任务，尤其是在需要定期向客户或团队成员发送带有附件的邮件时。手动操作不仅耗时费力，还容易出错。幸运的是，借助Excel VBA和Outlook的强大功能，我们可以轻松实现这一需求。
步骤一：准备工作
首先，确保你的电脑上安装了Microsoft Office套件，并且启用了Excel和Outlook。此外，你需要准备一个包含收件人信息的Excel表格，其中至少包括“姓名”、“邮箱地址”和“附件路径”等字段。
步骤二：编写VBA代码
打开Excel文件后，按 `Alt + F11` 打开VBA编辑器。在工具栏中选择“插入” -> “模块”，然后粘贴以下代码：
```vba
Sub SendEmailsWithAttachments()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim ws As Worksheet
Dim LastRow As Long
Dim i As Long
Dim EmailAddr As String
Dim SubjectLine As String
Dim BodyMsg As String
Dim AttachmentPath As String
' 设置工作表
Set ws = ThisWorkbook.Sheets("Sheet1")
' 获取最后一行
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 创建Outlook对象
Set OutlookApp = CreateObject("Outlook.Application")
' 遍历每一行数据
For i = 2 To LastRow
EmailAddr = ws.Cells(i, 1).Value ' 收件人邮箱
SubjectLine = ws.Cells(i, 2).Value ' 邮件主题
BodyMsg = ws.Cells(i, 3).Value ' 邮件正文
AttachmentPath = ws.Cells(i, 4).Value ' 附件路径
' 创建新邮件
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = EmailAddr
.Subject = SubjectLine
.Body = BodyMsg
If AttachmentPath <> "" Then
.Attachments.Add AttachmentPath
End If
.Send
End With
Next i
' 清理对象
Set OutlookMail = Nothing
Set OutlookApp = Nothing
MsgBox "邮件发送完成！", vbInformation
End Sub
```
步骤三：运行宏
保存并关闭VBA编辑器，返回Excel界面。按下 `Alt + F8`，选择刚刚创建的宏 `SendEmailsWithAttachments`，然后点击“运行”。程序会根据你提供的数据自动发送邮件。
注意事项
1. 安全性设置：某些公司可能会禁用宏或限制Outlook的自动化操作，请提前咨询IT部门。
2. 附件路径：确保附件路径正确无误，最好使用绝对路径。
3. 测试环境：在正式运行前，建议先测试几条记录以确保一切正常。
通过以上步骤，你可以轻松实现从Excel批量发送带附件的邮件。这种方法不仅提高了工作效率，还减少了人为错误的可能性。希望这篇文章对你有所帮助！
希望这段内容能满足你的需求！如果有其他问题，欢迎随时提问。
