Código
- 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!');
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009