"Почта через Delphi: исправляем ошибки Outlook в Office365"

Delphi , Интернет и Сети , Почтовый клиент

Почта через Delphi: исправляем ошибки Outlook в Office365

Если вы работаете над приложением, которое использует Delphi для взаимодействия с Outlook и столкнулись с проблемами после перехода на Office 365, то эта статья поможет вам разобраться. Рассмотрим типичную ситуацию: ваша программа открывает новое письмо в Outlook, чтобы пользователь мог отправить сообщение через этот почтовый клиент. Однако после обновления до Office 365, функция перестала работать корректно.

Пример кода

Вот пример функции на Object Pascal (Delphi), которая ранее работала без ошибок:

program SO_37131815;
{$APPTYPE CONSOLE}
uses
  Classes, ActiveX, ComObj, Variants, SysUtils;

procedure OutlookMail(ToAddress, Subject: string);
var
  OutlookProgram: OLEVariant;
  MailItem: Variant;
begin
  try
    OutlookProgram := GetActiveOleObject('Outlook.Application');
  except
    OutlookProgram := CreateOleObject('Outlook.Application');
  end;

  MailItem := OutlookProgram.CreateItem(0);
  if ToAddress = '' then begin
    ToAddress := ' ';
  end;
  MailItem.Recipients.Add(ToAddress);
  MailItem.Subject := Subject;
  try
    MailItem.Display(False); //.Display(Modal)
  except
    // Не волнуйтесь...
  end;

  OutlookProgram := Unassigned;
end;

begin
  CoInitialize(nil);
  OutlookMail('', 'blah');
end.

Проблема и её описание

После перехода на Office365, функция открытия нового письма в вашем приложении перестала работать. В Outlook 2010 ошибка выводится как "Could not complete the operation. One or more parameter values are not valid.", а в Outlook 2016 - "Sorry something went wrong. You may want to try again". При этом, если открыть новое письмо через сам клиент Outlook, то проблем не возникает.

Подтвержденный ответ

Проблема кроется в том, что при пустом значении ToAddress (или содержащем пробелы), попытка добавления адресата приводит к ошибке. Решением является проверка на пустую строку перед вызовом метода MailItem.Recipients.Add:

if Trim(ToAddress) <> '' then begin
  MailItem.Recipients.Add(ToAddress);
end;

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

Необходимо тщательно проверить все параметры, которые передаются в методы Outlook перед их вызовом. Особое внимание уделите пустым строкам и некорректным значениям.

Заключение

Используя предложенное решение, вы сможете исправить ошибки в работе с почтой через Delphi после обновления до Office365. Убедитесь, что все параметры заполнены корректно и не содержат лишних пробелов или пустых значений.

Эта статья предназначена для разработчиков, использующих Delphi и Object Pascal, которые сталкиваются с похожими проблемами в интеграции с Outlook после обновления до Office365.

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

Описание контекста: Статья для разработчиков о решении проблемы взаимодействия приложения, написанного на Delphi, с Outlook после перехода на Office 365.

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

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

:: Главная :: Почтовый клиент ::