Ir para conteúdo
  • Cadastre-se

dev botao

Espera o Status pmsDone para mostra msg de envio


EduProsystem
  • Este tópico foi criado há 2807 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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!!!

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

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

  • Curtir 2
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2807 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.