Acbrmail - Arquivo Txt

[marcelo frança]

Boa tarde pessoal, tenho um arquivo em txt onde constam todos os e-mail para serem enviados, estou tentando passar o valor do listbox para o componente mas não estou tendo muito sucesso, se alguem souber fico agradecido.

 

segue meu codigo.

 

i:=0;
if ListBox2.Count <> 0 then
  Begin
    for x:= 1 to ListBox2.Count do
      Begin
        //---------------------------enviar email começa aqui-------------------
        // 0 for ha cima serve para fazer um loop para enviar para varios enails
        F:= TForm.Create(Application);
        F.BorderStyle:= bsNone;
        F.Position:= poDesktopCenter;
        F.Width:= 200;
        F.Height:= 16;
        MSG:= TLabel.Create(Application);
        MSG.Parent:=F;
        MSG.AutoSize:= false;
        MSG.Width:= 198;
        MSG.Caption:='Aguarde... enviando: '+IntToStr(i+1)+'/'+IntToStr(ListBox2.Count);
        MSG.Color:=clBlack;
        MSG.Font.Color:=clWindow;
        MSG.Alignment:= taCenter;
        F.Show;
        F.Update;
    ProgressBar1.Position := 1;
    Sleep(500);
    ACBrMail1.Clear;
    ACBrMail1.From := vUsuario;
    ACBrMail1.FromName := vNome;
    ACBrMail1.Host := vSmtp; // troque pelo seu servidor smtp
    ACBrMail1.Username := vUsuario;
    ACBrMail1.Password := vSenha;
    ACBrMail1.Port := vPorta; // troque pela porta do seu servidor smtp
    ACBrMail1.AddAddress (ListBox2.Items.Strings,'IDEA');
    ACBrMail1.Subject := Assunto.Text;
    ACBrMail1.ReadingConfirmation := True; // solicita confirmação de leitura
    ACBrMail1.AltBody.Text := Menssagem.Text;
    ACBrMail1.Send;
 

 

 

 

[EMBarbosa]

O código está incompleto;

não tem END para cada BEGIN;

As variáveis F e MSG não estão definidas;

A variável i não tem sentido algum;

Objetos como Assunto.TEXT e Menssagem.TEXT não estão definidos;

 

É impossível ajudar sem correções ou mais informações...

 

Note, no entanto, que você tem um problema de programação e não com o componente em si.