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...@yahoo.com.br> 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]
