[firebase-br] Envio de email com firebird e delphi demorado!

[Fábio Leandro Gialdi]

Tente colocar o código abaixo na propriedade do OnStatus 
do TidSMTP para acompanhar onde realmente está a demora...
Coloquei o status em um TMemo para o usuário acompanhar o
processo.

Nos meus casos, o processo é rápido, o que pode gerar 
morosidade no sistema é a conexão com o seu provedor ou o
anexo aos arquivos... Assim sendo, acompanhe onde está
ficando lento e verifique o processo. 

  If Pos('Resolving', AStatusText) > 0 Then
    mStatus.Lines.Add('Acessando Servidor...')
  Else If Pos('Connecting', AStatusText) > 0 Then
    mStatus.Lines.Add('Conectando...')
  Else If Pos('Connected', AStatusText) > 0 Then
    mStatus.Lines.Add('Enviando Mensagem...')
  Else If Pos('Encoding attachment', AStatusText) > 0 Then
    mStatus.Lines.Add('Anexando Arquivos...')
  Else If Pos('Disconnecting', AStatusText) > 0 Then
    mStatus.Lines.Add('Desconectando...')
  Else If Pos('Disconnected', AStatusText) > 0 Then
    mStatus.Lines.Add('Desconectado.')

Espero ter ajudado!

Atenciosamente,

Fábio L. Gialdi
JB Software


<ronaldo em grupolta.com.br> wrote:

> Pessoal,
> Bom dia,
> 
>     Estou com um problema aqui que é o seguinte:
>     Temos uma tela em delphi7 que utiliza os componentes
> INDY(IdMessage e IdSMTP) para envio de email com informações
> extraídas do banco firebird, porém no momento de envio do email o
> mesmo demora muito.      Alguém já se encontrou com este problema? É
> alguma configuração? Alguém pode ajudar?
> 
>     Abaixo a rotina utilizada:
> 
> 
>  IdMessage.Recipients.EMailAddresses := edtPara.Text;
>  IdMessage.CCList.EMailAddresses     := edtCC.Text;
>  IdMessage.BccList.EMailAddresses    := edtCCO.Text;
> 
>     //Trata a Prioridade da mensagem
>     case cbxPrioridade.ItemIndex of
>      0 : IdMessage.Priority := mpHigh;
>      1 : IdMessage.Priority := mpNormal;
>      2 : IdMessage.Priority := mpLow;
>     end;
> 
>  IdMessage.Subject := edtAssunto.Text;
>  IdMessage.Body := mmMensagem.Lines;
> 
>  //Tratando os arquivos anexos
>  for xAnexo := 0 to rzAnexos.Items.Count-1 do
>  TIdAttachment.create(idmessage.MessageParts,
> TFileName(rzAnexos.Items.Strings[xAnexo]));
> 
>  IdSMTP.Connect;
> 
>   try
>    IdSMTP.Send(IdMessage); -- NESTE MOMENTO DEMORA MUITO
>   finally
>    IdSMTP.Disconnect;
>   end;
> 
> Obrigado,
> 
> Ronaldo
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107 Para consultar
> mensagens antigas: http://firebase.com.br/pesquisa



--