Problem with bcc

Giganews Newsgroups
Subject: Problem with bcc
Posted by:  Robert Tulloch (tulta…@attglobal.net)
Date: Tue, 15 Mar 2005

Hi:

        if bccBulk then
          begin
            with RecipientListView do
              begin
                for I := 0 to RecipientListView.Items.Count-1 do
                  begin
                    WorkString := '';
                    WorkString :=  '" Id No. ';
                    WorkString := WorkString  + Items.Item[I].Caption;
                    WorkString := WorkString + '  ';
                    WorkString := WorkString +
Items.Item[I].SubItems.Strings[0] + '"  ';
                    WorkString := WorkString +
Items.Item[I].SubItems.Strings[1];
                    with BccList.Add do
                        BccList.EMailAddresses := WorkString;
                  end;
              end;
          end;

I seem to have a problem in that the only mail that goes out under bcc
is the last on ein the list.

Doesn't this:

  with BccList.Add do
    BccList.EMailAddresses := WorkString;

keep adding to the bcc list on each iteration?

Thanks.

Best regards

Replies