Всем привет дорогие друзья. В сегодняшней статье, мы рассмотрим с Вами, как можно отправить электронное письмо через MS Outlook из Delphi. Если Вы в своей работе используете данный клиент, то в Delphi очень просто отправить через него письмо, одним минусом является то, что в MS Outlook имеется система безопасности, и если к ней подключаются какие-то сторонние программы, то она выдает предупреждение, в которых необходимо нажать кнопку (дать разрешение на выполнение действий).

Данные уведомления о безопасности в Outlook легко можно обойти. Но об этом мы поговорим немного позже. Для начала давайте рассмотрим, как можно отправить письмо. Нам необходимо лишь на нашу форму установить только одну кнопку и написать, на событие OnClick следующий код:

Исходный код

procedure TForm3.Button2Click(Sender: TObject);
const
 olMailItem=0;
var
 MailItem: Variant;
 Outlook: OLEVariant;
begin
      Outlook:=GetActiveOleObject('Outlook.Application');
      Outlook:=CreateOleObject('Outlook.Application');
      MailItem:=Outlook.CreateItem(olMailItem);
      MailItem.Recipients.Add('Список адресов');
      MailItem.Subject:='Заголовок письма';
      MailItem.Body:= 'Тело письма';
      MailItem.Send;
      Outlook:=Unassigned;
      Outlook:=Unassigned;
end;

Как видите, все очень просто. Но когда пытаешься отправить таким образом письмо, у Вас может появиться сообщение о безопасности MS Outlook. Его можно обойти. Если у Вас установлен MS Outlook 6, то в настройках, во вкладке Безопасность, Вам необходимо отключить данную опцию, то есть, разрешить подключаться к адресной книге из сторонних программ.

Если Вы используете MS Outlook 2007 или же 2010, то в ней есть Центр настройки безопасности, где Вам также необходимо понизить уровень безопасности.

Вот что касается MS Outlook 2003, то тут ситуация немного посложнее. В самих настройках отключить нельзя. Но зато имеется другое решение, а именно, программа ClickYes, в которой Вам необходимо указать программу, которая имеет доступ к электронной почте, а она уже будет сама блокировать все сообщения, что выдает MS Outlook 2003.