Как получить основной SMTP-адрес пользователя через объектную модель Outlook

Delphi , Технологии , OLE

Вопрос, поднятый в контексте, заключается в поиске способа получения основного SMTP-адреса пользователя, который вошёл в систему Exchange Server, используя объектную модель Outlook. Это можно сравнить с функцией ResolveNames() из Exchange Web Services (EWS), которая позволяет получать различные данные, включая основной SMTP-адрес пользователя.

Объектная модель Outlook

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

Пример кода для подключения к Outlook

Для начала работы с Outlook через OLE, необходимо установить соединение с объектом Outlook Application. Пример кода на Object Pascal (Delphi) для подключения к Outlook:

function TDataModuleSyncOutlook.ConnectToOutlook(AUserSMTP: String = ''): Boolean;
var
   lNameSpace, lRecipient: OleVariant;
begin
   Result      := False;
   FWasCreated := False;
   try
      FOutlookApp := GetActiveOleObject(scxOutlookApp);
      Result := True;
   except
      try
         FOutlookApp := CreateOleObject(scxOutlookApp);
         FWasCreated := True;
         Result := True;
      except
         on E: Exception do
         begin
            // Обработка исключения
         end;
      end;
   end;
   if Result then
   begin
      lNameSpace := FOutlookApp.GetNameSpace(scxNameSpace);
      // ... Дальше следует код для работы с календарями и прочими операциями ...
   end;
   FOleInitialized := Result;
   if Result then
      TSyncLogger.LogAlways('Connected to Outlook')
   else
      TSyncLogger.LogAlways('Connection to Outlook failed');
end;

Получение SMTP-адреса пользователя

Для получения основного SMTP-адреса пользователя, который вошёл в систему, можно использовать следующую последовательность действий:

1. Получить текущего пользователя через свойство CurrentUser объекта NameSpace.
2. Использовать свойство AddressEntry для доступа к информации о пользователе.
3. Применить метод GetExchangeUser к AddressEntry, чтобы получить доступ к информации о пользователе Exchange.
4. Извлечь основной SMTP-адрес через свойство PrimarySmtpAddress объекта ExchangeUser.

Пример кода на Object Pascal для получения SMTP-адреса:

if VarIsClear(FOutlookApp.Session)
or VarIsClear(FOutlookApp.Session.CurrentUser)
or VarIsClear(FOutlookApp.Session.CurrentUser.AddressEntry)
or VarIsClear(FOutlookApp.Session.CurrentUser.AddressEntry.GetExchangeUser)
or VarIsClear(FOutlookApp.Session.CurrentUser.AddressEntry.GetExchangeUser.PrimarySmtpAddress)
then
begin
   // Обработка случая, когда не удаётся получить SMTP-адрес
   DisConnectFromOutlook;
   Exit;
end
else
   lLoginSMTP := FOutlookApp.Session.CurrentUser.AddressEntry.GetExchangeUser.PrimarySmtpAddress;

Альтернативный способ

Также возможен альтернативный путь через объекты аккаунтов в пространстве имен:

for i := 1 to lNameSpace.Accounts.Count do
begin
   if lNameSpace.Accounts.Item[i].AccountType = olExchange then
   begin
      lAccount := lNameSpace.Accounts.Item[i];
      Break;
   end;
end;
if VarIsClear(lAccount) then
begin
   // Обработка случая, когда аккаунт не найден
   DisConnectFromOutlook;
   Exit;
end;
lLoginSMTP := lAccount.SmtpAddress;

Определение порядка аккаунтов

Для определения порядка аккаунтов можно использовать Extended MAPI и интерфейс IOlkAccountManager, а также инструменты, такие как OutlookSpy и Redemption.

Заключение

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

Создано по материалам из источника по ссылке.

Контекст заключается в поиске способа получения основного SMTP-адреса пользователя, вошедшего в систему Exchange Server, с использованием объектной модели Outlook.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: OLE ::