Oi Luciano, Creio que teu servidor de SMTP requer que você defina se usa (ou não) SSL e/ou TLS. Não gosto do Indy, devido alguns bugs e memory leaks que parece que nunca serão resolvidos, mas mesmo eu usando outro framework, você poderá checar o que precisei usar (.so no Linux, .dll no Win) para enviar o email com sucesso em Linux e Win, testei atualmente em servidores GMail, Uol, Yahoo e Hotmail. Também consigo enviar usando o meu "ad...@silvioprog.com.br".
Veja o LazSendMail (tem fotos na home page) no link: <http://code.google.com/p/lazsolutions/> Espero que dê tudo certo aí, sucesso. :) Em 10 de junho de 2010 14:16, simoesluciano <simoesluci...@yahoo.com.br> escreveu: > Uma pista. Troquei o servidor de SMTP para o yahoo.com.br e funcionou. O mais > interessante é que se eu usar as configurações abaixo em um cliente de e-mail > (thunderbird, windows mail, ...), aí funciona. > Só não funciona quando envio pela rotina do Delphi. > > Luciano C. Simões > > --- Em delphi-br@yahoogrupos.com.br, "simoesluciano" <simoesluci...@...> > escreveu > > > > Utilizando o componente TIdSMTP (Indy) (D2006) para envio de e-mail, o > > destinatário não recebe o e-mail. Rotina funcionava perfeitamente, sem > > alteração parou de funcionar. > > > > Segue trecho do código: > > > > vIdMsgSend.ContentType := 'text/html'; > > vIdMsgSend.Encoding := meMIME; > > vIdMsgSend.Organization := 'Empresa'; > > vIdMsgSend.Body.Text := 'Texto do e-mail'; > > vIdMsgSend.From.Address := 'ori...@...'; > > vIdMsgSend.From.Name := 'Empresa'; > > vIdMsgSend.ReplyTo.EMailAddresses := 'ori...@...'; > > vIdMsgSend.Subject := 'E-Mail'; > > vIdMsgSend.Priority := mpNormal; { Message Priority } > > vIdMsgSend.Recipients.EMailAddresses := 'dest...@...'; { To: header } > > vIdMsgSend.BccList.EMailAddresses := ''; > > vIdMsgSend.CCList.EMailAddresses := ''; > > > > > > {authentication settings} > > vSMTP.AuthenticationType := atLogin; {Simple Login} > > vSMTP.Username := 'ori...@...'; > > vSMTP.Password := 'senha123'; > > > > {General setup} > > vSMTP.Host := 'mail.empresa.com.br'; > > vSMTP.Port := 587; > > > > {now we send the message} > > vSMTP.Connect; > > try > > vSMTP.Send(vIdMsgSend); > > finally > > vSMTP.Disconnect; > > end; > > > > > > > > Creio que tem alguma coisa relacionada com vIdMsgSend.Encoding := meMIME, > > porque se usar meUU o e-mail é entregue só que todo desformatado. > > > > Obrigado > > > > Luciano C. Simões -- []'s Silvio Clécio -- programmer ObjectPascal - http://silvioprog.com.br -- twitter - http://twitter.com/silvioprog -- Grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br
