Ricardo, Se eu envio pelo Outlook a data/hora fica correta. Isso só acontece se mando pelo Delphi usando o Indy.
Tá muito estranho... --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso <ricardo_engs...@...> escreveu > > O servidor de e-mail está usando o GMT (Greenwich Mean Time, também conhecido > como Hora de Greenwich) > http://pt.wikipedia.org/wiki/Greenwich_Mean_Time > > Atte,Ricardo. > 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. > > 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor > compreendida. > > 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! > > --- Em ter, 15/9/09, rmpena25 <rmpen...@...> escreveu: > > > > > > > > > > > > > > > > > > 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] >
