这个在 DEPHI 里面非常简单,但在vb 里面就困难。
邮件群发系统 也就是相同的一丰信发送给很多用户。
在 dephi 里面 使用 fastnet 里的 nmsmtp 控件。
下面是我对同一个人发送 16* 19 丰相同内容的信,其它的属性基本设置自己看帮助巴。
切记,一次发信接收者不能 大于 19(可能和邮件服务器有关),因此,你需要两个循环来
做这个群发系统。
procedure TFrm.Button1Click(Sender: TObject);
var
i,m:integer;
begin
NMSMTP1.Connect;
for m:=0 to 15 do
begin
  NMSMTP1.PostMessage.ToAddress.Clear;
  for i :=0  to 18 do
  begin
  NMSMTP1.PostMessage.ToAddress.Append('[email protected]');
  end;
  NMSMTP1.SendMail;
end;
NMSMTP1.Disconnect;
edit1.text:='Send completely';
end;