F�rum enviar email atrav�s do delphi 7 usando o Yahoo, idMessage e idSMTD #559084

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

Curtir t�pico

+ 0

Responder

Posts

12/07/2016

Mateus Ribeiro

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;

Responder

Gostei + 0