时间戳

首页 > 解决方案 > 使用 Outlook 互操作将邮件发送给多个收件人

vba - 使用 Outlook 互操作将邮件发送给多个收件人

问题描述

我正在尝试使用脚本发送给多个用户，但这不起作用。它目前适用于一个邮件地址，我尝试过使用；, . 作为分隔符没有任何帮助。

有人知道吗？

oRecipient = oMail.Recipients.Add([To]) oRecipient.Resolve()

标签： vbaoutlook

解决方案

类的Add方法在集合Recipients中创建一个新的接收者。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属性。

您可以在如何：以编程方式在 Outlook 中填写收件人、抄送和密件抄送字段一文中阅读更多相关信息。

推荐阅读