opa..
eu tenho um sistema so de envio de e-mail no delphi 2009, usando componentes
indy10
quando envio por ele, na hora chega no meu email.
eu uso o gmail pra enviar.
qual seu servidor de email??
To: delphi-br@yahoogrupos.com.br
From: rmpen...@yahoo.com.br
Date: Tue, 15 Sep 2009 19:18:35 +0000
Subject: [delphi-br] Re: Email enviado com Atraso - Indy
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]
>
_________________________________________________________________
Você sabia que com o Hotmail você tem espaço ilimitado para guardar seus
e-mails? Começe a usar já!
http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx
[As partes desta mensagem que não continham texto foram removidas]
