Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Barra progressão ao enviar email


Alberto Mota

Pergunta

Prezados colegas, estou usando o componente IDSmtp no Delphi 7

e esta enviando o email normalmente.

Gostaria de colocar uma barra de progressão até o término do envio.

O codigo utilizado é esse:

procedure TFrmbackup.BitBtn12Click(Sender: TObject);

var Anexo : Integer;

begin

IdMessage.Recipients.EMailAddresses := edtPara.Text;

IdMessage.Subject := edtAssunto.Text;

IdMessage.Body := mmMensagem.Lines;

//Manipulando os Anexos

for Anexo := 0 to lbxAnexos.Items.Count-1 do

TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo]));

IdSMTP.Connect;

try

IdSMTP.Send(IdMessage);

finally

IdSMTP.Disconnect;

end;

Application.MessageBox('Email enviado com sucesso!', 'Confirmação',

MB_ICONINFORMATION + MB_OK);

end;

Como coloco a barra de progressão?

Desde já, obrigado.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...