MyTetra Share
Делитесь знаниями!
Как получить настоящий эл. адрес отправителя сообщения Outlook
Время создания: 13.04.2020 13:53
Текстовые метки: vba_outlook, sendername, senderemailaddress
Раздел: Разные закладки - VBA - Outlook
Запись: xintrea/mytetra_db_adgaver_new/master/base/1586775180ikn4xuh7p4/text.html на raw.githubusercontent.com

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.62
Яндекс индекс цитирования