Fórum E-mail com imagens em anexo no yahoo/gmail #369617

Bom dia....eu não estou nem conseguindo enviar pelo yahoo e gmail...será q vc poderia dar um exemplo de como enviar por estes dois provedore???

Ficaria mt grato....

Esta é a configuração do yahoo !!!

Servidor (POP3): pop.mail.yahoo.com.br
Use SSL, porta: 995

Servidor (SMTP): smtp.mail.yahoo.com.br
Use SSL, porta: 465, use autenticação

Agora, se você especificar melhor qual o seu problema talvez possa lhe ajudar melhor.

Abaixo está um exemplo do código para conexão.

IdSMTP1.AuthenticationType := atLogin
IdSMTP1.UserName := // usuario de login
IdSMTP1.Password := // senha do servidor
IdSMTP1.Host := // smtp do servidor

if not (IdSMTP1.Connected) then
IdSMTP1.Connect(60000) ;

Abaixo está um exemplo do envio de e-mail

//
// Configura o Remetente
//
IdMessage1.Subject := Assunto;
IdMessage1.From.Text := // Email origem
IdMessage1.From.Name := // Nome origem
IdMessage1.Priority := mpHigh;
IdMessage1.CCList.EMailAddresses := // Email destino
IdMessage1.ReplyTo.EMailAddresses := // Email origem

//
// Atacha o texto.
//
W_Texto := TIdText.Create(IdMessage1.MessageParts,nil);
W_Texto.ContentType := ´text/plain´;
W_Texto.ContentTransfer := ´quoted-printable´;
W_Texto.Body.Add(´.´);

//
// Atacha o HTML.
//
W_Texto := TIdText.Create(IdMessage1.MessageParts,nil);
W_Texto.ContentType := ´text/html´;
W_Texto.Body.Clear;
W_Texto.Body.Add(´aqui vai o texto HTML´);

IdSMTP1.Send(IdMessage1);

mt obrigado pela ajuda...o problema é o seguinte...

Eu tenho o endereço de vários servidores smtp, como : AOL, NEXTEL, GMAIL, BOL, dentre outros.

Tenho email do yahoo e do gmail....mas não consegui enviar por nenhum dos dois....o erro q dá é connection failed ou connection time out.

e o usuário tbm pod inserir o email da empresa em q trab....por exemplo...qdo eu coloco o endereço do servidor da empresa em q trab...o email é enviado sem problemas...

será q pra kda servidor tem uma configuração diferente??