MyTetra Share
Делитесь знаниями!
Как получить настоящий эл. адрес отправителя сообщения Outlook
Время создания: 13.04.2020 13:53
Текстовые метки: VBA outlook, SenderName, SenderEmailAddress
Раздел: !Закладки - VBA - Outlook

Public Function fnGetSMTPAddress(ExchangeMailAddress As String) As String

'MsgBox fnGetSMTPAddress("/o=CNPHJ/ou=CORP/cn=Recipients/cn=0008051″)

Dim objOutlook As Outlook.Application

Dim objMailItem As Outlook.MailItem

Set objOutlook = New Outlook.Application

Set objMailItem = objOutlook.CreateItem(0)

objMailItem.To = ExchangeMailAddress

objMailItem.Recipients.ResolveAll

fnGetSMTPAddress = objMailItem.Recipients.Item(1).AddressEntry.GetExchangeUser.PrimarySmtpAddress

Set objMailItem = Nothing

Set objOutlook = Nothing

End Function

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования