vba - 使用 VBA 发送消息时更改 Outlook 中的 "Item.To"值

Question

当用户按下发送按钮时，我正在尝试更改 Outlook 中发送到字段中的电子邮件地址。例如，如果当前 Item.To值 = 'aaa@example.com'变成'bbb@example.com' .

我可以更改主题，但 Item.To 失败(是否存在安全问题？):

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

   If Item.Class <> olMail Then Exit Sub

   Item.To = "bbb@example.com"  ' Nope , It does not work
   Item.Subject = "New Subject" ' It works

End Sub

谢谢

Answer 1

MailItem.To属性仅用于显示名称。您可能希望使用 Recipients 集合，就像在 MailItem.Recipients 上的 Outlook 帮助中的这个稍微修改的示例中一样。属性(property):

Sub CreateStatusReportToBoss()

 Dim myItem As Outlook.MailItem
 Dim myRecipient As Outlook.Recipient

 Set myItem = Application.CreateItem(olMailItem)
 Set myRecipient = myItem.Recipients.Add("bbb@example.com")
 myItem.Subject = "New Subject"
 myItem.Display

End Sub