Espera o Status pmsDone para mostra msg de envio

[EduProsystem]

Bom dia!

to tentando desenvolver um sistema com e-mail

só que na hora de enviar eu queria que ele só mostrasse a mensagem de "Envio com exito!" quando o aStatus for  pmsDone e dai em diante continuasse os processo abaixo deles.

Ex:

procedure TDataModuleGeral.ACBrMailMailProcess(const AMail: TACBrMail;
  const aStatus: TMailStatus);
begin
  case aStatus of
    ... 
    pmsDone:
    begin
      frmSplash.pnSplash.Caption := 'Email enviado com Êxito!!';
      frmSplash.Refresh;
      vEnviado := 'S';
     end;
  end;
end;

      try
        DataModuleGeral.ACBrMail.Send(DataModuleGeral.ACBrMail.UseThread);
        while not DataModuleGeral.ACBrMail.MailProcess(ACBrMail.pmsDone) do
        begin
          {Não sei o que por aqui!!}
        end;
      finally
//        frmSplash.pnSplash.Caption := 'Email enviado com Êxito!!';
//        frmSplash.Refresh;
        Sleep(1000);
      end;
      // Setando email como Enviado ou Não
      DataModuleGeral.tbAndamentosProcessuaisEMAIL_ENVIADO.AsString := vEnviado;

    end;

    Screen.Cursor := crDefault;
    // Evitar que a aplicação  trave ao executar um processo grande
    Application.ProcessMessages;
    frmSplash.Close;
  end;

  // Grava Andamento e possível mudança no Processo
  DataModuleGeral.tbProcessos.Post;
  DataModuleGeral.tbAndamentosProcessuais.Post;

se auguem poder me ajudar!!!

 

[Daniel Simoes]

Basta não usar Threads... o envio será de forma procedural... ou seja, ele só sairá do "ACBrMail.Send", quando terminar...

[EduProsystem]

ok 

Vou Testar e....

Editado 22 Julho, 2016 por EduProsystem
Faltou palavras

[EduProsystem]

Ficou Beleza Muito Obrigado!