Buscar por:

Envio de e-mail com indy no delphi7 com idsmtp e autentificação

Código

//envio de e-mail com o servidor yahoo muito bom, um pequeno exemplo

IdSMTP1.Port:=465;

IdSMTP1.Host:='smtp.mail.yahoo.com.br';

IdSMTP1.Username:='email_loja';

IdSMTP1.Password:='987654';

IdSMTP1.AuthenticationType:=atLogin;

IdSMTP1.Connect(0);

//O seu endereço de e-mail

IdMessage1.From.Address :='email_loja@yahoo.com.br';

//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail

IdMessage1.Recipients.EMailAddresses :='renatoasp@gmail.com,renatoasp@hotmail.com,claudinha164@hotmail.com';

//O assunto da mensagem

IdMessage1.Subject :='teste';

try

IdSMTP1.Send(IdMessage1);

finally

IdSMTP1.Disconnect;

end;

Application.MessageBox('Email enviado com sucesso!', 'Confirmação',

MB_ICONINFORMATION +   MB_OK);

end;