vba批量发送邮件多个收件人之间如何相互独立呢

Question

使用VBA批量发送邮件时，有多个收件人时用逗号隔开（如邮箱A,B,C），但是实际发送出去后是一封邮件，各个收件人之间相互可以看到邮箱。在保持收件人仍为邮箱A,B,C的情况下，有没有办法可以发成三封邮件，单独对邮箱A\B\C的呢？

Answer 1

可以通过循环的方法实现。可以把收件人的邮箱地址存储在数组中，然后每次循环发送一封邮件，把数组中的邮件地址逐一作为收件人发送邮件。

Sub SendEmail()
Dim recipients As Variant
recipients = Split("[e-mail],[e-mail],[e-mail]", ",")
Dim i As Integer
For i = 0 To UBound(recipients)
sendMail recipients(i)
Next i
End Sub

Sub sendMail(recipient As String)
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = recipient
.Subject = "Subject"
.Body = "Email Body"
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

安装Microsoft Outlook实现