Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Фев

INDY — отправка на емейл

Posted by obzor under Delphi

Реализовать отправку сообщений из Memo на указанный e-mail средствами Indy по нажатию кнопки. Как?

xxbesoxx


procedure TfrmAbout.btnSendClick(Sender: TObject);
var
  SMTP    : TIdSMTP;
  msg     : TIdMessage;
  SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
  oldcur: TCursor;
begin
 if Trim(Memo1.Lines.Text) ='' then
   begin
     ShowMessage(' Письмо пустой .!!! ');
     Memo1.SetFocus;
     Abort;
   end
   else
   //-------------------------
    oldcur := screen.Cursor;
    screen.Cursor := crHourGlass;
   //-------------------------
   try
    SMTP := TIdSMTP.Create(Application);
    SMTP.Host := 'smtp.mail.ru';
    SMTP.Port := 465;
    SMTP.AuthType := satDefault;
    SMTP.Username := '****"@mail.ru';
    SMTP.Password := '********';

    //--- SSL
    SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
    SSLOpen.Host := SMTP.Host;
    SSLOpen.Port := SMTP.Port;
    SSLOpen.DefaultPort := 0;
    SSLOpen.SSLOptions.Method := sslvSSLv23;
    SSLOpen.SSLOptions.Mode := sslmUnassigned;

    SMTP.IOHandler := SSLOpen;
    SMTP.UseTLS := utUseImplicitTLS;

    msg := TIdMessage.Create(Application);

    msg.Subject := 'Название темы';
    msg.From.Address := '****@mail.ru'; //  From= от куда
    msg.From.Name := 'xxxxxx ';  // Фио отправители
    msg.Recipients.EMailAddresses := 'Vasia@gmail.com';    //  Получатель

    msg.ContentType := 'text/plain; CharSet = UTF-8'; // Кодировка
    msg.Body.Text := AnsiToUtf8(Memo1.Lines.Text);

    SMTP.Connect;
    if SMTP.Connected then
      begin
        SMTP.Send(msg);
        ShowMessage ('Сообщение отправлено!');
      end else
        ShowMessage ('Не удалось отправить сообщение');
    SMTP.Disconnect();
    SMTP.Free;
    msg.Free;
   finally
       //------------------------------------
      screen.Cursor := oldcur;
      Memo1.Lines.Text := '';
   end;

end;