用delphi自带的邮件控件就可以做到,用程序控制不停的发就可以了。
不过你最好不要做这样的软件,实在是没有什么意思了
不过你最好不要做这样的软件,实在是没有什么意思了
解决方案 »
- 动态创建WEB,求求高手了,求你们了 好吗?帮帮我吧
- adoquery insert问题为什么零没了.
- 请教yuv420格式视频文件的播放方法
- 关于数据库备份的问题
- 一个关于子窗口的问题
- TMaskEdit控件如何设置为这样的格式输出1999/01/01(日期)
- Delphi的安装问题:安装之初如何解决:BDE is currently running
- 今天我心情不错,有好事!!!!快来
- corba应用服务器接口写方法接收客户端的update语句更新后台Oracle数据库,急!急!急!
- 关于用程序控制论坛回复(类似与论坛灌水机)如何用idhttp提交表单? 跪谢
- 100分求购fastreport 2.3的控件(带源码)
- 各位大虾,谁能给我提供,匿名发送邮件的程序代码啊。。。。
Delphi自己有Demo
下面是属性设置:
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;
下面是属性设置:
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;