enviar email através do delphi 7 usando o Yahoo, idMessage e idSMTD

Delphi

08/07/2016

Estou utilizando os componentes citados acima mas não obtive sucesso. Abaixo listo o preenchimento das propriedades dos componetes e o erro de retorno. Se alguém pude dar uma dica serei muito grato.

try
IdSMTP.Host := 'smtp.mail.yahoo.com.br'; // servidor yahoo
IdSMTP.Port := 587; // porta usado pelo yahoo

IdSMTP.AuthenticationType := atLogin;
IdSMTP.Username := 'origem@yahoo.com.br'; // endereço de quem está enviando
IdSMTP.Password := '******';

IdMessage.Recipients.EMailAddresses := 'destino@yahoo.com.br'; // endereço do destinatário
IdMessage.Subject := 'Teste de email';
IdMessage.Body.Text := 'Corpo do email'; // corpo do email

IdMessage.From.Address := 'origem@yahoo.com.br'; // de quem está enviando
IdMessage.From.Name := 'carlos'; // de quem está enviando

IdSMTP.Connect;
IdSMTP.Authenticate;

try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;

except
Showmessage('houve falha no envio do email');
end;


Ocorre o erro: 5.7.0 MUST ISSUE STARTTLS COMMAND FIRST

Agradeço antecipadamente a ajuda.

Sds,

Marcelo
Marcelo Calmon

Marcelo Calmon

Curtidas 0

Respostas

Mateus Ribeiro

Mateus Ribeiro

08/07/2016

Boa tarde!

IdSMTP1.AuthenticationType := atLogin;

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

idSMTP1.Port := 25;

idSMTP1.Username := 'SeuEmail@yahoo.com.br';

idSMTP1.Password := 'SuaSenha';

idSMTP1.Connect(30000);

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

IdMessage1.Sender.Name := 'SeuEmail@yahoo.com.br';

IdMessage1.Sender.Address := 'SeuEmail@yahoo.com.br';

IdMessage1.Recipients.EMailAddresses := 'SeuEmail@yahoo.com.br';

IdMessage1.Subject := 'Assunto do seu email!';

IdSMTP1.Send(IdMessage1);

IdSMTP1.Disconnect;
GOSTEI 0
POSTAR