各位高手过来，我要送分啦，送很多的分。。。。为了一个问题！！

Question

用delphi自带的邮件控件就可以做到，用程序控制不停的发就可以了。
不过你最好不要做这样的软件，实在是没有什么意思了

Answer 1

用TNMSMTP 在FASTNET面板中
Delphi自己有Demo

Answer 2

放置一个 TNMSMTP（在FASTNET面板中）
下面是属性设置：
  host:smtp.21cn.com (你的 smtp 服务器）
 Postmessage下属性设置:
  fromaddress:[email protected]  邮件发自方的地址
  toaddress:接受方的电子邮件
下面是对 '[email protected]' 发送 16*19 个垃圾邮件
procedure TFrm.Button1Click(Sender: TObject);
var
i,m:integer;
begin
NMSMTP1.Connect;
for m:=0 to 15 do
begin
  NMSMTP1.PostMessage.ToAddress.Clear;
  NMSMTP1.PostMessage.FromName:='YongMan' + inttostr(m);
  for i :=0  to 18 do
  begin
  NMSMTP1.PostMessage.ToAddress.Append('[email protected]');
  end;
  NMSMTP1.SendMail;
end;
NMSMTP1.Disconnect;
edit1.text:='Send completely';
end;

Answer 3

放置一个 TNMSMTP（在FASTNET面板中）
下面是属性设置：
  host:smtp.21cn.com (你的 smtp 服务器）
 Postmessage下属性设置:
  fromaddress:[email protected]  邮件发自方的地址
  toaddress:接受方的电子邮件
下面是对 '[email protected]' 发送 16*19 个垃圾邮件
procedure TFrm.Button1Click(Sender: TObject);
var
i,m:integer;
begin
NMSMTP1.Connect;
for m:=0 to 15 do
begin
  NMSMTP1.PostMessage.ToAddress.Clear;
  NMSMTP1.PostMessage.FromName:='YongMan' + inttostr(m);
  for i :=0  to 18 do
  begin
  NMSMTP1.PostMessage.ToAddress.Append('[email protected]');
  end;
  NMSMTP1.SendMail;
end;
NMSMTP1.Disconnect;
edit1.text:='Send completely';
end;