Buscar

ENVIO DE E-MAIL - FUNCIONANDO GMAIL DELPHI 2009

Código

COMPONENTES E DLL´S NECESSARIAS:
- IdMessage
- IdSMTP
- IdSSLIOHandlerSocketOpenSSL
- libeay32.dll*
- ssleay32.dll*
http://indy.fulgan.com/SSL/
Devem ser incorporadas em C:WindowsSystem32 ou Junto ao projeto

1) NO EVENTO CREATE DO FORM
procedure TForm2.FormCreate(Sender: TObject);
begin
     with IdSMTP do
     begin
          AuthType := satDefault;
          Host := 'smtp.gmail.com';
          IOHandler := IdSSLIOHandlerSocketOpenSSL;
          Password := 'sua senha';
          Port := 587;
          Username := seu email@gmail.com'; //não esqueça o @gmail.com!!
     end;
     IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv3;
     IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmClient;
end;

2) NA AÇÃO DE ENVIO: PODE SER UM BUTTON, ACTION, ETC

        with IdMessage do
        begin
             Body.Add('
corpo da mensagem');
             From.Address := '
seu email@gmail.com'; //opcional
             From.Name := '
nome'; //opcional
             Recipients.Add;
             Recipients.Items[0].Address := '
seu email@gmail.com';
             Recipients.Items[0].Name := '
nome do destinatario'; //opcional
             Subject := '
Teste De Envio Automático de Email';
        end;
        try
             IdSMTP.Connect();
             IdSMTP.Send(IdMessage);
             IdSMTP.Disconnect;
        except
             ShowMessage('
Falha no envio!');
             exit;
        end;
        ShowMessage('
Mensagem enviada com sucesso!');

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 16/11/10
Por: Marcos Naves Calixto
Visualizada: 8064 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009