Provavelmente, ao preencher a data e hora do seu e-mail, vc está colocando a
data e hora locais sem converter para o GMT. Por isso acontece a diferença.
Para a sua próxima pergunta - como fazer a conversão para o GMT - não tenho a
resposta sobre como ou se é possível. Provavelmente é possível e existe uma
maneira.
[]'sRicardo.
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...@yahoo.com.br> escreveu:
De: rmpena25 <rmpen...@yahoo.com.br>
Assunto: [delphi-br] Re: Email enviado com Atraso - Indy
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 15 de Setembro de 2009, 16:18
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...@yahoogrup os.com.br, Ricardo César Cardoso <ricardo_engsoft@
...> 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.maisbusca dos.yahoo. com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
____________________________________________________________________________________
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]
