Question

我按照下面的例子。

https://www.slipstick.com/developer/create-a-new-message-using-vba/

我想在自动制作电子邮件草稿时显示地址簿名称。

例如，在这种情况下，

我可以在地址栏中显示“BZ@gmail.com”，但我想显示地址簿的名称“业务团队”，因为“业务团队”更容易看到。

这是我的代码。它与示例代码几乎相同。

Public Sub CreateNewMessage()
Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

With objMsg
  .To = "Alias@domain.com"
  .CC= "Alias2@domain.com"
  .BCC = "Alias3@domain.com"
  .Subject = "This is the subject"
  .Categories = "Test"
  .VotingOptions = "Yes;No;Maybe;"
  .BodyFormat = olFormatPlain ' send plain text message
  .Importance = olImportanceHigh
  .Sensitivity = olConfidential
  .Attachments.Add ("path-to-file.docx")

 ' Calculate a date using DateAdd or enter an explicit date
  .ExpiryTime = DateAdd("m", 6, Now) '6 months from now
  .DeferredDeliveryTime = #8/1/2012 6:00:00 PM#

  .Display
End With

Set objMsg = Nothing
End Sub

我只能通过“alisas@domain.com”发送，当我看到打开的草稿时，会显示电子邮件地址。

如何在草稿上显示地址簿名称？

Answer 1

关于问题的第一部分，请参阅Recipients.Add Method (Outlook)。

对于CC，您需要更改收件人类型，请参阅此SO question的答案。

如何创建包含地址名称的电子邮件？

1 个答案: