如果关联名称包含字符串，如何从 Outlook VBA 的全局地址列表中提取 Email 地址

Question

第一次海报。 我正在尝试从 Outlook 的全局地址列表中的条目中提取 email 地址，以便在我的 VBA 代码中引用，我需要输入项目代码。 从而代码将需要查看 GAL 并找到项目代码在名称中的条目，当它找到这个时。 我需要它返回关联的 email 地址（PrimarySMTPAddress），如果没有。 我需要它说“找不到项目代码”。

我对 VBA 很陌生，所以我不能把这个想法变成代码。 任何帮助表示赞赏。

谢谢。

Answer 1

使用Namespace class 的CreateRecipient方法创建一个Recipient object。 此方法最常用于创建与GetSharedDefaultFolder方法一起使用的Recipient object，例如，打开委托人的文件夹。 它还可用于根据地址簿验证给定名称。

Sub ResolveName()
 Dim myNamespace As Outlook.NameSpace
 Dim myRecipient As Outlook.Recipient
 Dim CalendarFolder As Outlook.Folder
 Set myNamespace = Application.GetNamespace("MAPI")
 Set myRecipient = myNamespace.CreateRecipient("Project Name 0001") 
 
 myRecipient.Resolve 
 
 If myRecipient.Resolved Then 
   Call ShowCalendar(myNamespace, myRecipient)
 End If 
End Sub 
 
Sub ShowCalendar(myNamespace, myRecipient) 
 Dim CalendarFolder As Folder 
 Set CalendarFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar) 
 CalendarFolder.Display 
End Sub