Получить адрес электронной почты из Outlook

Question

Я пытаюсь вывести адрес электронной почты текущего пользователя через надстройку Outlook. Я не смог заставить работать другие примеры. Самое близкое, что я пришел, это:

emailitem.SenderEmailAddress

который выводит:

Smith, John

но я хочу:

JohnSmith@hotmail.com

Любые идеи ??

Answer 1

Dim addrEntry As Outlook.AddressEntry = Application.Session.CurrentUser.AddressEntry
                    If addrEntry.Type = "EX" Then
                        Dim currentUser As Outlook.ExchangeUser = Application.Session.CurrentUser.AddressEntry.GetExchangeUser()
                        If currentUser IsNot Nothing Then
                            MsgBox("Name: " + currentUser.Name)
End If