Отправка писем через gmail - Delphi - Ответ 13975450

unit gmUnit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  IdSMTP,IdMessage,IdEmailAddress,IdSSLOpenSSL, StdCtrls;
 
type
  Tgm_sender_Form = class(TForm)
    Edit_email: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Memo_msg: TMemo;
    Edit_subj: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    procedure send;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  gm_sender_Form: Tgm_sender_Form;
 
implementation
 
{$R *.DFM}
 
procedure Tgm_sender_Form.send;
var
  IdSMTP: TIdSMTP;
  IdMessage: TIdMessage;
  IdEmailAddressItem: TIdEmailAddressItem;
 
  IdSSLIOHandlerSocket1:TIdSSLIOHandlerSocket;
begin
  IdSMTP := TIdSMTP.Create(nil);
 
IdSSLIOHandlerSocket1:=TIdSSLIOHandlerSocket.create(self);
IdSMTP.IOHandler:=IdSSLIOHandlerSocket1;
IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvTLSv1_2;
 
  try
    IdSMTP.Host := 'smtp.gmail.com';
    IdSMTP.Port := 465;      // 587
    IdSMTP.AuthenticationType:= atLogin;//satDefault;  
    //  или IdSMTP.AuthType := satDefault;   здесь зависит от версии indy возможно и без этого параметра работает
    IdSMTP.Username := ''; //  в e-mail вашей учетной записи
    IdSMTP.Password := ''; // пароль вашей учетной записи
    IdSMTP.Connect;
    if IdSMTP.Authenticate then
    begin
      IdMessage := TIdMessage.Create(nil);
      try
        IdMessage.From.Name := 'Test Name'; // конвертировать в UTF-8
        IdMessage.From.Address := Edit_email.text;//'firstal4@gmail.com';
        IdMessage.Subject := Edit_subj.Text;// 'E-mail subject';  // конвертировать в UTF-8
        IdMessage.Body.Add(Memo_msg.Lines.text); //'E-mail body.');  // конвертировать в UTF-8 
 
        IdEmailAddressItem := IdMessage.Recipients.Add;
        IdEmailAddressItem.Address := Edit_email.text;//'firstal4@gmail.com';
 
        IdSMTP.Send(IdMessage);
      finally
        IdMessage.Free;
      end;
    end;
    IdSMTP.Disconnect;
  except
 
    on E: Exception do
    begin
        memo_log.lines.add(e.message);
 
    end;
 
 
  end;
IdSMTP.Free;
 
IdSSLIOHandlerSocket1.free;  
 
end;
 
procedure Tgm_sender_Form.Button1Click(Sender: TObject);
begin
send;
end;
 
end.