Excel Userform для получения отображаемого имени Outlook и электронной почты от псевдонима - PullRequest
Новая
       13

Excel Userform для получения отображаемого имени Outlook и электронной почты от псевдонима

0 голосов
/ 10 апреля 2019

У меня есть пользовательская форма с 3 текстовыми полями и 1 кнопкой. Я хочу поместить псевдоним outlook в textbox1 (txtPID) и вернуть тип отображения и адрес электронной почты в полях 2 и 3 (txtName & txtEmail)

это похоже на подключение к outlook и извлечению информации, но это не поиск псевдонима, указанного в текстовом поле 1 


Load UsrFrmNewRep

Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olGAL As Outlook.AddressList
Dim olMember As Outlook.AddressEntry
Dim olAliasName As String
Dim exchuser As Outlook.ExchangeUser


Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olGAL = olNS.AddressLists("Global Address List")

olAliasName = UsrFrmNewRep.txtPID.Value
Set olMember = olGAL.AddressEntries(olAliasName)
Set exchuser = olMember.GetExchangeUser

If Not exchuser Is Nothing Then

UsrFrmNewRep.txtName.Value = exchuser.DisplayType
UsrFrmNewRep.txtEmail.Value = exchuser.PrimarySmtpAddress

End If

End Sub

Я уверен, что я не ссылаюсь на что-то правильно, я просто не уверен, что.

Спасибо

1 Ответ

1 голос
/ 10 апреля 2019

Вместо использования olGAL.AddressEntries(olAliasName) используйте olNS.CreateRecipient(olAliasName) / Recipient.Resolve / set olMember = Recipient.AddressEntry

...