(Resolvido) Barra progressão ao enviar email

[Alberto Mota]

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.

[Jhonas]

exemplo:

metodos do IdSMTP

OnBeginWork

ProgressBar1.Visible:= True;

ProgressBar1.Max:= AWorkCountMax;

OnWork

ProgressBar1.Position:= AWorkCount;

OnWorkEnd

ProgressBar1.Visible:= False;

abraço

[Alberto Mota]

Jhonas,

Resolveu! Está ok.

Mais uma vez obrigado.