Enviar e-mail para gmail (Indy)

 
unit uSendEMail;

interface

uses
  IdMessage, IdSMTP, uSystemConfig, SysUtils, uSystemUtils, Classes;

type
  TSendEMail = class
  private
    FMailMessage: TIdMessage;
    FSMTP: TIdSMTP;
    FListMensage: TStringList;
    { Private declarations }
  public
    constructor Create;
    destructor Destroy; override;
    //
    property ListMensage: TStringList read FListMensage write FListMensage;
    procedure SendEMail;
    { Public declarations }
  end;

implementation

{ TSendEMail }

constructor TSendEMail.Create;
begin
  FListMensage := TStringList.Create;
  //
  FMailMessage := TIdMessage.Create( nil );
  FMailMessage.Encoding := meMIME;
  //
  FSMTP := TIdSMTP.Create( nil );
  FSMTP.AuthType    := satNone;
  FSMTP.Port        := 25;
  FSMTP.ReadTimeout := 0;
end;

destructor TSendEMail.Destroy;
begin
  if FSMTP.Connected then
    FSMTP.Disconnect;
  //
  FListMensage.Free;
  FMailMessage.Free;
  FSMTP.Free;
  inherited Destroy;
end;

procedure TSendEMail.SendEMail;
begin
  //setup SMTP
  FSMTP.Host := 'smtp';
  //
  //setup mail message
  FMailMessage.From.Address := 'endereco';
  FMailMessage.Recipients.EMailAddresses := 'Destino';
  //
  FMailMessage.Subject   := 'titulo';
  FMailMessage.Body.Text := FListMensage.Text;
  //
  //send mail
  try
    try
      FSMTP.Connect;
      FSMTP.Send( FMailMessage );
    except
      on E: Exception do
        ShowMsgWarning( E.message );
    end;
  finally
    if FSMTP.Connected then
      FSMTP.Disconnect;
  end;
end;

end.

unit Unit1;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,  IdSSLOpenSSL, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,  IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,  IdSMTP;
type  TForm1 = class(TForm)  TParametrosEmail = record    SMTPHost, SMTPUsername, SMTPPassword: string;    SMTPConta, SMTPNomeExibicao, SMTPDestinatarios: string;    SMTPAutenticacao, SMTPSSL: boolean;    SMTPPorta: integer;    ClienteSMTP: TIdSMTP;    IdMessage1: TIdMessage;    SSLHandlerSMTP: TIdSSLIOHandlerSocketOpenSSL;    Button1: TButton;    procedure Button1Click(Sender: TObject);  private  FParametrosEmail: TParametrosEmail; // declaracao da variável    { Private declarations }  public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); //AQUI É ONDE DÁ O ERROvar  AutenticouSMTP: boolean;begin  //** configura SMTP **  if ClienteSMTP.Connected then    try      ClienteSMTP.Disconnect;    except    end ;
  ClienteSMTP.Host := FParametrosEmail.SMTPHost; // atribui o host (pop.gmail.com)  ClienteSMTP.Port := FParametrosEmail.SMTPPorta; // atribui a porta (465)
  if FParametrosEmail.SMTPAutenticacao then // se requer autenticacao  begin    ClienteSMTP.Username := FParametrosEmail.SMTPUsername; // atribui o nome do usuario    ClienteSMTP.Password := FParametrosEmail.SMTPPassword; // atribui a senha  end  else  begin // se não requer autenticacao    ClienteSMTP.Username := ''; // limpa o usuario    ClienteSMTP.Password := ''; // limpa a senha  end;
  if FParametrosEmail.SMTPSSL then // se requer conexao segura  begin    ClienteSMTP.IOHandler := SSLHandlerSMTP; // vincula o manipulador de SMTP ao cliente SMTP    ClienteSMTP.UseTLS := utUseImplicitTLS; // atribui ao cliente SMTP o suporte implícito a TLS
    SSLHandlerSMTP.Port := ClienteSMTP.Port; // atribui a porta ao manipulador (igual a do cliente FTP)    SSLHandlerSMTP.Destination := ClienteSMTP.Host + ':' + IntToStr(ClienteSMTP.Port); // indica o destino da conexão (pop.gmail.com:465)    SSLHandlerSMTP.Host := ClienteSMTP.Host; // atribui o host (pop.gmail.com)  end  else  begin // se não requer conexao segura    ClienteSMTP.IOHandler := nil; // desvincula o manipulador de SMTP    ClienteSMTP.UseTLS := utNoTLSSupport; // indica que nao ha suporte a TLS  end;
  AutenticouSMTP := False; // variavel para indicar se a autenticacao foi bem sucedida
  // *** montagem da mensagem ***  // ****************************  // cabecalho  IdMessage1.Clear;  IdMessage1.ContentType := 'text/html';  IdMessage1.From.Address := FParametrosEmail.SMTPConta; // conta do remetente  IdMessage1.From.Name := FParametrosEmail.SMTPNomeExibicao; // nome do remetente  IdMessage1.Recipients.EMailAddresses := FParametrosEmail.SMTPDestinatarios; // destinatarios (separados por vírgula! não é ponto e vírgula!)  IdMessage1.Subject := 'Envio de email automatico'; // assunto
  // corpo  IdMessage1.Body.Clear;  IdMessage1.Body.Add('<html>');  IdMessage1.Body.Add('    <body>');  IdMessage1.Body.Add('        <h4>SISTEMA DE EMAIL AUTOMATICO</h4>');  IdMessage1.Body.Add('        <font face="Verdana" size=2>');  IdMessage1.Body.Add('        Teste de envio de email');  IdMessage1.Body.Add('        <hr size=1 noshade>');  IdMessage1.Body.Add('        <font face="Courier New" size=2>');  IdMessage1.Body.Add('Isto é somente um exemplo que você pode tomar como base para gerar as suas mensagens');  IdMessage1.Body.Add('        </font>');  IdMessage1.Body.Add('        <b><font face="Tahoma" size=2 color="black">');  IdMessage1.Body.Add('        <hr size=1 noshade>');  IdMessage1.Body.Add('        EMITIDO AUTOMATICAMENTE PELO SISTEMA<br>');  IdMessage1.Body.Add('        <font color="blue">');  IdMessage1.Body.Add('        Boa semana');  IdMessage1.Body.Add('        </font>');  IdMessage1.Body.Add('        </font></b>');  IdMessage1.Body.Add('    </body>');  IdMessage1.Body.Add('</html>');
  // efetua a conexao ao servidor SMTP  if not ClienteSMTP.Connected then    try      ClienteSMTP.Connect; // conecta ao SMTP      if FParametrosEmail.SMTPAutenticacao then // se requer autenticacao        AutenticouSMTP := ClienteSMTP.Authenticate // efetua a atenticacao e retorna o resultado para a variável      else // se nao requer autenticacao        AutenticouSMTP := True; // assume que a conexao foi bem sucedida    except      on E:Exception do // em caso de erro gera um log com a mensagem de erro        ShowMessage('Não foi possível conectar ao servidor SMTP: '+E.Message);    end;
  // se a conexao foi bem sucedida, envia a mensagem  if AutenticouSMTP and ClienteSMTP.Connected then    ClienteSMTP.Send(IdMessage1);
  // depois de tudo pronto, desconecta do servidor SMTP  if ClienteSMTP.Connected then    ClienteSMTP.Disconnect;end;
end.

unit Unit1;

interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,
   IdSSLOpenSSL, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
   IdSMTP;

type
  // a definição fica TOTALMENTE FORA da definição do formulário
  TParametrosEmail = record
    SMTPHost, SMTPUsername, SMTPPassword: string;
    SMTPConta, SMTPNomeExibicao, SMTPDestinatarios: string;
    SMTPAutenticacao, SMTPSSL: boolean;
    SMTPPorta: integer;
  end;

  TForm1 = class(TForm)
    ClienteSMTP: TIdSMTP;
    IdMessage1: TIdMessage;
    SSLHandlerSMTP: TIdSSLIOHandlerSocketOpenSSL;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FParametrosEmail: TParametrosEmail; // declaracao da variável
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

// Enviar email
Message1.Body.Clear;
Message1.From.Name := FrmMenu.codEmpre +' - '+frmMenu.empresa;
Message1.Subject := 'Erro Boleto';
Message1.Body.Add('Data/Hora.: '+ DateTimeToStr(Now));
Message1.Body.Add(form);
Message1.Body.Add(e.Message);
Message1.From.Address := 'fdp@uol.com.br';
Message1.Recipients.EMailAddresses := 'suportecp80@gmail.com';
SMTP.Host          := 'smtps.uol.com.br';
SMTP.Username      := '*****@uol.com.br';
SMTP.Password      := '****';
SMTP.AuthType      := satNone;
SMTP.Port          := 25;
Application.ProcessMessages;
SMTP.Connect;
try
Application.ProcessMessages;
SMTP.Send(Message1);
finally
Application.ProcessMessages;
SMTP.Disconnect;
end;