救救我啊。。。关于Delphi邮件群发的问题。。。速度快死了我。。

Question

部分文件如下if pos('.txt',Edit2.Text)>0 then begin
      Assignfile(EmailFile,Edit2.Text);//读取文件
      Reset(EmailFile);
      //下面发送
      While not EOF(EmailFile) do begin
        readln(EmailFile,EmailAdd);
        if pos('@',trim(EmailAdd))>0 then begin
          IdMessage1.Recipients.Add.Address:=EmailAdd;
          idsmtp1.Send(idMessage1);
          ShowMessage(EmailAdd);
        end;
      end;
end;
我是想用文本文件导入邮件，在.txt文件里面每个邮件地址单独一行。。
然后读取一行发送一条。。
每个邮件地址只发送一封邮件
但是。。实事不是这样的。。
我没个邮箱地址都可以连续收到三封邮件以上。。这是什么原因啊那位大哥快帮帮我。。

Answer 1

补充下上面的部分定义:EmailFile:Textfile
IdMessage1:IdMessage
idsmtp1:Idsmtp
还有特别说说这句：IdMessage1.Recipients.Add.Address:=EmailAdd;到底是单条加地址还是可以多条的呢》》》》？？？？？

Answer 2

IdMessage1.Recipients.Add.Address:=EmailAdd;这个地址是累加的。。不能每次循环都累加一次。。所以你越是前面的就收的邮件越多。。