2015-08-14 3 views
1

Я создаю приложение VB.net. Я хочу проверить адрес электронной почты из Outlook для аутентификации.Верните мой адрес электронной почты Приложение Vb.net/Outlook 2010

Я начал с кодом следующее:

Dim objOL as Outlook.Application 
Set objOL = New Outlook.Application 

, что я должен сделать, чтобы вернуть свой адрес электронной почты (Зная, что я открываю прогноз во время excution).

Заранее спасибо

+0

Это кажется плохой идеей. –

+0

Почему? моя идея - связать это приложение с базой данных sql-сервера, где разрешены адреса электронной почты для аутентификации. и, чтобы сделать это быстро, я хотел бы только проверить адрес электронной почты из приложения Outlook. – xAminex

+1

Но одного адреса электронной почты недостаточно для аутентификации. Любой пользователь может настроить свой клиент Outlook на подмену чужого адреса электронной почты. Как насчет пароля? Дорогое божество $, я надеюсь, что это не для корпоративного приложения. –

ответ

0

Это один работал для меня:

objOL.Session.CurrentUser.AddressEntry.GetExchangeUser().PrimarySmtpAddress 
0

Я думаю, что следующий может делать то, что вы хотите:

Dim objOL as Outlook.Application 
Set objOL = New Outlook.Application 

Dim email As String = objOL.Session.CurrentUser.AddressEntry.Address 

См: https://msdn.microsoft.com/en-us/library/office/ff184601.aspx для получения дополнительной информации

+0

Спасибо большое @Matt Wilko – xAminex

+0

Вы также можете повысить это, если найдете его полезным, что звучит так, как будто вы сделали –

+0

Хотелось бы, чтобы я мог, но я здесь новый, мне не разрешили это делать. Я должен достичь некоторого количества пунктов, прежде чем я получу право на это. но когда я получил право сделать это, я сделаю это – xAminex

Смежные вопросы