蓝布编程网

如果需要发送多封邮件给不同的人，可以将要发送的邮件信息，包括邮箱地址、邮件主题、邮件正文、邮件附件等信息，编辑、保存在Excel工作表中，如下图：

这样，就可以借助VBA调用OutLook一键分发。下面是简要的设置步骤：

首先，设置OutLook账户

这一步很关键，OutLook是发送邮件要使用的工具，必不可少。

如果是首次运行OutLook，系统会给出设置账户的引导界面，跟着提示设置即可。

账户设置成功，进入OutLook后的界面类似下图。

接着，写发送邮件的VBA程序

打开设置好发件信息的Excel工作簿，进入VBE，写入下面的VBA程序。

Sub SendEmail()
    Dim objOutlook As Object, objMail As Object, i As Integer, lastRow As Long
Set objOutlook = CreateObject("Outlook.Application")
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
Set objMail = objOutlook.CreateItem(0)
        objMail.To = Cells(i, 2).Value
        objMail.Subject = Cells(i, 3).Value
        objMail.Body = Cells(i, 4).Value
If Cells(i, 5) <> "" Then
            objMail.Attachments.Add (Cells(i, 5).Value)
End If
        objMail.Send
Set objMail = Nothing
Next i
Set objOutlook = Nothing
    MsgBox "所有邮件已经发送成功！", vbInformation
End Sub

注意：程序中的发件信息要与保存在工作表中信息的位置保持一致。

最后，在保证保存发件信息的工作表为活动工作表的前提下，执行这个过程即可自动发送邮件。

关注我，学习更多Excel技巧