ACBREMAIL

[VagnerCiec]

Tenho uma aplicação simples que envia o email de um determinado arquivo.

Está anexando e está enviando tudo normalmente sem erro algum.

Porém preciso colocar uma progressbar quando eu for anexar algum arquivo, para que a pessoa que esteja utilizando saiba que está anexando o arquivo, como faço?

[Daniel Simoes]

Anexar um arquivo não consome um tempo demorado....

Já viu os Demos do ACBrMail?

[VagnerCiec]

Sim!

já olhei é mesmo depois da aplicação pronta já dei varias olhadas na demo e não tem nada, se tiver passou despercebido, quero algo que mostre o processo de anexo, por isso pensei na progressbar.

Moro no estado do para, a internet aqui você contrata 1MB no máximo 10MB e você recebe no minimo 20% do contratado e sempre está no mínimo se tem 10MB recebe 2MB e assim por diante!

Então como viu qualquer coisa que eu for anexar ira demorar mesmo que seja 100 kb demora 10 segundos ou mais  

Então se puder me ajudar irei agradecer. 

Editado 21 Janeiro, 2017 por VagnerCiec

[VagnerCiec]

Galera mil desculpas!

Não tinha enviado email atraves do demo, somente tinha olhado os pas e feito no meu, resolvi enviar um email porque o daniel perguntou se eu ja tinha olhado o demo e ja tinha olhado porem nao tinha visto a progressbar.

no envento onprocess do acbrmail ja tem o codigo pronto

 

  PgbEmail.Position := Integer(aStatus);

  case aStatus of
    pmsStartProcess:
      memlogemail.Lines.Add('Iniciando processo de envio.');
    pmsConfigHeaders:
      memlogemail.Lines.Add('Configurando o cabeçalho do e-mail.');
    pmsLoginSMTP:
      memlogemail.Lines.Add('Logando no servidor de e-mail.');
    pmsStartSends:
      memlogemail.Lines.Add('Iniciando os envios.');
    pmsSendTo:
      memlogemail.Lines.Add('Processando lista de destinatários.');
    pmsSendCC:
      memlogemail.Lines.Add('Processando lista CC.');
    pmsSendBCC:
      memlogemail.Lines.Add('Processando lista BCC.');
    pmsSendReplyTo:
      memlogemail.Lines.Add('Processando lista ReplyTo.');
    pmsSendData:
      memlogemail.Lines.Add('Enviando dados.');
    pmsLogoutSMTP:
      memlogemail.Lines.Add('Fazendo Logout no servidor de e-mail.');
    pmsDone:
      begin
        memlogemail.Lines.Add('Terminando e limpando.');
        PgbEmail.Position := PgbEmail.Max;
      end;
  end;

  memlogemail.Lines.Add('   ' + AMail.Subject);

  Application.ProcessMessages;

 

Desculpa ai galera!