使用Outlook Interop将邮件发送给多个收件人

Question

我正在尝试使用脚本发送给多个用户，但这将无法正常工作。它目前只能使用一个邮件地址，我已经尝试过使用； ，。作为分隔符，没有任何帮助。

有人有主意吗？

oRecipient = oMail.Recipients.Add（[收件人]） oRecipient.Resolve（）

Answer 1

Recipients类的Add方法在Recipients集合中创建一个新的收件人。该方法接受收件人的姓名；它可以是代表收件人的显示名称，别名或完整SMTP电子邮件地址的字符串。例如：

Sub CreateStatusReportToBoss() 
  Dim myItem As Outlook.MailItem 
  Dim myRecipient As Outlook.Recipient 

  Set myItem = Application.CreateItem(olMailItem) 
  Set myRecipient = myItem.Recipients.Add("Eugene Astafiev") 
  myItem.Subject = "Status Report" 
  myItem.Display 
End Sub

您还可以使用MailItem类的To，Cc和Bcc属性。

您可以在How To: Fill TO,CC and BCC fields in Outlook programmatically文章中了解有关此内容的更多信息。

Answer 2

致电Recipients.Add为每个收件人。或将To / CC / BCC属性设置为";"分隔的名称或地址列表。