[Resolvido] Enviar Email - Delphi 7 Indy 9

[kleinkauff 0]

Boa noite galera, seguinte estou tentanto fazer isso mas o erro q me ocorre eh 'Already Connected'. Nao sei oq possa ser, vou colocar meu codigo ..

para testar fiz apenas com um botao mesmo..

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 

IdSMTP.Username:= 'meulogin@gmail.com';

IdSMTP.Password:= 'minhasenha';

IdSMTP.Host:= 'smtp.gmail.com';

IdSMTP.Port:= 465;

try

IdSMTP.Connect;

IdSMTP.Send(IdMessage);

showmessage('MSG enviada');

finally;

IdSMTP.Disconnect;

 

end;

end;

 

 

eu tinha configurado o id message ali tb mas, para testar tirei coloquei no componente mesmo ficando assim..

 

IdMessage

body := 'blabla';

receiptrecipients.adsress := farmaciafloresta@pop.com.br

receiptrecipients.name := Jhonatas

 

eu tentei tb conectar ao pop3 antes do smtp mas mesmo assim nao deu certo.. se alguem puder me ajuder..

 

 

Obrigado Pessoal!

[Chrnos 30]

Este tópico tem um exemplo pronto de envio de e-mail com Indy. Veja se ajuda.

 

[]'s

[kleinkauff 0]

ja tinha lido o topico cara, mas preferi dexa.. whateva

ja resolvi meu problema, coloquei IdSSLIOHandlerSocket e tah funcionando..

Obrigado Chronos!