Controle De Thread Com Acbrmail

[Otavio Benini]

prezados,

 

usando thread no envio de e-mail - ACBrMail1.Send(true) - se houver erro a thread ficará "presa" ? como interrompe-la em caso de erro ?

 

obrigado

Otavio Benini

[Jean Patrick]

Se ocorrer um erro no envio, a thread é interrompida. Para saber se ocorreu um erro, impedindo o envio, ou se o envio foi bem sucedido, use o seguinte código no evento OnMailProcess:

case aStatus of
  pmsStartProcess:
    Memo1.Lines.Add( 'Iniciando processo de envio.');
  pmsConfigHeaders:
    Memo1.Lines.Add( 'Configurando o cabeçalho do e-mail.');
  pmsLoginSMTP:
    Memo1.Lines.Add( 'Logando no servidor de e-mail.');
  pmsStartSends:
    Memo1.Lines.Add( 'Iniciando os envios.');
  pmsSendTo:
    Memo1.Lines.Add( 'Processando lista de destinatários.');
  pmsSendData:
    Memo1.Lines.Add( 'Enviando dados.');
  pmsLogoutSMTP:
    Memo1.Lines.Add( 'Fazendo Logout no servidor de e-mail.');
  pmsDone, pmsError:
  begin
    if aStatus = pmsError then
       Memo1.Lines.Add(ACBrMail1.GetLastSmtpError) // Exibe o erro
    else
       Memo1.Lines.Add( 'E-mail enviado com sucesso.');
  end;
end;