☰

Outlook VBA：如何获取“收件人”的名字？

tag-icon • tag-icon microsoft-outlook vba
Outlook VBA：如何获取“收件人”的名字？

我可以使用以下代码获取电子邮件“收件人”的全名。

Set oMItem = ActiveInspector.CurrentItem
recip = oMItem.To

如何直接获取名字？

注意：在某些系统中，它会首先显示姓氏，使用 left() 是不安全的。

答案1

下面的代码可以获取第一个收件人的名字。

Dim oMItem As Outlook.MailItem

   Select Case TypeName(Application.ActiveWindow)
      Case "Explorer"
         Set oMItem = ActiveExplorer.Selection.Item(1)
      Case "Inspector"
         Set oMItem = ActiveInspector.CurrentItem
      Case Else
   End Select

recip = oMItem.Recipients.Item(1).AddressEntry.GetExchangeUser.FirstName

相关内容