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

Question

First time poster. I am trying to pull the email address from an entry in the Global Address List in Outlook to refer to within my VBA code, I need to input a project code. whereby the code will need to look through the GAL and find the entry where the project code is found in the name, When it finds this. I need it to return the associated email address (PrimarySMTPAddress), If no. I need it to say 'Project code not found'.

I am very new to VBA, so I can't put this thought into code. Any help is appreciated.

Thanks.

Answer 1

Use the CreateRecipient method of the Namespace class which creates a Recipient object. This method is most commonly used to create a Recipient object for use with the GetSharedDefaultFolder method, for example, to open a delegator's folder. It can also be used to verify a given name against an address book.

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