Vba 通过EMAIL ADDRESS BOOK获取EMAIL ADRESS

Function GetAddress(AliasName As String)

Dim oGAL As Object

Dim myAddrEntry As Object

Dim exchUser As Object

' AliasName = "Zhao, Janice (KDC/HR)? "

Dim outlookApp As Outlook.Application

Set outlookApp = New Outlook.Application

Set oGAL = outlookApp.GetNamespace("MAPI").AddressLists("Global Address List")

Set myAddrEntry = oGAL.AddressEntries(AliasName)

Set exchUser = myAddrEntry.GetExchangeUser

If exchUser Is Nothing Then

    GetAddress = ""

Else

    GetAddress = exchUser.PrimarySmtpAddress

End If

End Function