Silvio, acho que achei o problema, ainda não está provado, mas a probabilidade é grande:
Mensagem da Locaweb onde está hospedado o servidor SMTP: "Alguns dos nossos servidores de envio de email foram bloqueados pela lista anti-spam Trend Micro Maps www.mail-abuse.com. Já estamos em contato com essa para a remoção do bloqueio. Durante o problema não será possível o envio de email para domínios que consultam essa lista de bloqueio e ao tentar enviar você receberá erro informando o bloqueio. Ainda não temos previsão e continuamos em contato com essa empresa para sanarmos o problema." Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Silvio Clecio <silviop...@...> escreveu > > 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...@...". > > 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...@...> 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" <simoesluciano@> > > 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 := 'origem@'; > > > vIdMsgSend.From.Name := 'Empresa'; > > > vIdMsgSend.ReplyTo.EMailAddresses := 'origem@'; > > > vIdMsgSend.Subject := 'E-Mail'; > > > vIdMsgSend.Priority := mpNormal; { Message Priority } > > > vIdMsgSend.Recipients.EMailAddresses := 'destino@'; { To: header } > > > vIdMsgSend.BccList.EMailAddresses := ''; > > > vIdMsgSend.CCList.EMailAddresses := ''; > > > > > > > > > {authentication settings} > > > vSMTP.AuthenticationType := atLogin; {Simple Login} > > > vSMTP.Username := 'origem@'; > > > 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 >
