ActiveDelphi

[juniorinfo]

Bom dia,

Fiz uma rotina de envio de email no delphi, mas ta dando erro quando o email de envio é do yahoo, por outro email que não seja yahoo da certo. Alguem poderia ajudar? Segue o codigo.

IdMessage.From.Address := gPAR_USERNAME_CAD; // Email do Remetente
IdMessage.From.Name := gPAR_NOME_CAD; // Nome do Remetente, que aparecerá qdo chegar.

idmessage.ReceiptRecipient.Text := IDMessage.From.Text;

IdSMTP.Host :=smtp.mail.yahoo.com.br;
IdSMTP.Username := _USERNAME_;
IdSMTP.Password := _PASSWORD_;

IdSMTP.Connect;
IdSMTP.Authenticate;

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

[filippe]

Cara ..

o Yahoo Trocou a porta esses dias ..

Coloca o parâmetro de porta ..
Port := 587;
e também autenticação

AuthType := satDefault;


Testa ai se vai....
_________________
Filippe Maymone

[juniorinfo]

Não funcionou.

[faccruz]

[juniorinfo]

Consegui resolver adicionando as linhas abaixo.

IdSMTP.Port := 465;

idSSL.Destination := smtp.mail.yahoo.com.br:465
idSSL.Host := smtp.mail.yahoo.com.br
idSSL.Port := 465