vba - Excel VBA 字符串数组到 Outlook 电子邮件 "To"字段

Question

我正在尝试创建一个宏，它将从我的 Excel 工作表中获取一列电子邮件地址并填充 Outlook 电子邮件中的“收件人”字段。我有基本的工作，我可以使用我指定的各种字段值创建一个新的 Outlook 电子邮件 - 但是，我无法弄清楚如何将多个电子邮件地址填充到单个电子邮件的“收件人”字段中。

截至目前，我能够创建一个包含所有所需电子邮件地址的数组，但无法弄清楚如何将数组值填充到 Outlook“收件人”字段中。

Answer 1

这是基于 Eugene 的回答，经过编辑以包含 excel 实现

Sub CreateStatusReportToBoss(addRng as Excel.Range)  
  Dim myItem As Outlook.MailItem  
  Dim myRecipient As Outlook.Recipient  
  Set myItem = Application.CreateItem(olMailItem)
  For Each cell in addRng
     Set myRecipient = myItem.Recipients.Add(cell.Value)
  Next cell  
  myItem.Subject = "Status Report"  
  myItem.Display  
End Sub