Delphi Отправка Почты Exchange

В Delphi можно реализовать отправку электронной почты через Exchange Server с помощью использования библиотеки Indy.

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

  IdSMTP := TIdSMTP.Create(nil);
  try
    IdSMTP.Host := 'exchange_server.example.com';
    IdSMTP.Port := 25;
    IdSMTP.Username := 'user@example.com';
    IdSMTP.Password := 'password';
    IdSMTP.ConnectTimeout := 5000;
    IdSMTP.ReadTimeout := 5000;
    IdSMTP.UseTLS := utUseExplicitTLS;
    IdSMTP.AuthType := satDefault;
    IdMessage := TIdMessage.Create(nil);
    try
      IdMessage.From.Text := 'from@example.com';
      IdMessage.Recipients.Add.Address := 'to@example.com';
      IdMessage.Subject := 'Test email';
      IdMessage.Body.Text := 'This is a test email.';
      IdSMTP.Send(IdMessage);
    finally
      IdMessage.Free;
    end;
  finally
    IdSMTP.Free;
  end;