o problema pode ser no seu servidor de envio. Pois depois que saiu do seu sistema, quem controla isso é o servidor.
---------------------------------------------------------------------------------------- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 ---------------------------------------------------------------------------------------- ________________________________ De: rmpena25 <rmpen...@yahoo.com.br> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 15 de Setembro de 2009 13:51:11 Assunto: [delphi-br] Email enviado com Atraso - Indy Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===>IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject := self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
