Delphi7中群发Email邮件的方法
更新时间：2020年6月30日 23:43 点击：2469
本文实例讲述了Delphi7中群发Email邮件的方法。分享给大家供大家参考。具体分析如下：
这段时间需要对所有参加考试的考生将考生信息及考试信息通过电子邮件群发，经过多次调试，算是成功了，发来给大家参考一下：
总的思路是：
1、安装局域网版的邮件服务器，并通过设置DNS使得给服务器能给网外用户发送电邮，这方面的软件比较多，例如WinWebMail就不错，可以从官网下载；
2、需要使用到的控件：Indy10.0.15,可以通过百度搜索下载；
3、设置需要发送的电子邮箱服务器及账号信息
复制代码 代码如下:
function setEmailInfo:integer; //返回值0：邮箱设置失败；1：邮箱设置成功
var
selectStr:string;
thisresult:integer;
begin
thisresult := 0;
//设置账户
IdSMTP1.AuthType := atNone; //或者是atSASL;
IdSMTP1.Host := hostString;
IdSMTP1.Username := userNameString;
IdSMTP1.Password := passWordString;
try
IdSMTP1.connect;
thisresult := 1;
if not IdSMTP1.Authenticate then
begin
showmessage('发送邮箱账号验证失败！请检查SMTP账户设置！');
thisresult := 0;
end
except
showmessage('SMTP服务器连接失败！请检查SMTP账户设置及网络是否正常！');
thisresult := 0;
end
end;
result := thisresult;
end;
var
selectStr:string;
thisresult:integer;
begin
thisresult := 0;
//设置账户
IdSMTP1.AuthType := atNone; //或者是atSASL;
IdSMTP1.Host := hostString;
IdSMTP1.Username := userNameString;
IdSMTP1.Password := passWordString;
try
IdSMTP1.connect;
thisresult := 1;
if not IdSMTP1.Authenticate then
begin
showmessage('发送邮箱账号验证失败！请检查SMTP账户设置！');
thisresult := 0;
end
except
showmessage('SMTP服务器连接失败！请检查SMTP账户设置及网络是否正常！');
thisresult := 0;
end
end;
result := thisresult;
end;
4、将Email发送一个信息作为独立函数，发送时需要进行延时控制
复制代码 代码如下:
procedure sendEmailOnce(emailusername:string;
formAddress:string;receiptRecipientAddress:string;sendtoAdd:string;emailSubject:string);
begin
MsgKsbkxx.From.Name := emailusername; //邮件发送人姓名
MsgKsbkxx.From.Address := formAddress; //邮件发送人地址
MsgKsbkxx.ReceiptRecipient.Address := receiptRecipientAddress;
//回复地址，可以与邮件发送人地址不同
MsgKsbkxx.Recipients.EMailAddresses := sendtoAdd; //发送地址？
MsgKsbkxx.Sender.Address := formAddress; //sendtoAdd; //邮件发送至......地址
MsgKsbkxx.Subject := emailSubject; //主题
MsgKsbkxx.Body.Assign(emailMemo.Lines); //邮件内容
IdSMTP1.Send(MsgKsbkxx); //发送邮件指令
end;
formAddress:string;receiptRecipientAddress:string;sendtoAdd:string;emailSubject:string);
begin
MsgKsbkxx.From.Name := emailusername; //邮件发送人姓名
MsgKsbkxx.From.Address := formAddress; //邮件发送人地址
MsgKsbkxx.ReceiptRecipient.Address := receiptRecipientAddress;
//回复地址，可以与邮件发送人地址不同
MsgKsbkxx.Recipients.EMailAddresses := sendtoAdd; //发送地址？
MsgKsbkxx.Sender.Address := formAddress; //sendtoAdd; //邮件发送至......地址
MsgKsbkxx.Subject := emailSubject; //主题
MsgKsbkxx.Body.Assign(emailMemo.Lines); //邮件内容
IdSMTP1.Send(MsgKsbkxx); //发送邮件指令
end;
5、简单判断电子邮件地址的合法性
复制代码 代码如下:
//根据字符串Separator的表示将字符串s分隔为若干个字符串，存入rs字符串列表中
procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr: string;
idx: Integer;
ASubStr: string;
begin
AStr := Trim(s);
while Pos(Separator, AStr) > 0 do
begin
idx := Pos(Separator, AStr);
ASubStr := Copy(AStr, 1, idx - 1);
rs.Add(ASubStr);
AStr := Copy(AStr, idx + 1, Length(AStr));
end;
if AStr+'a' <> 'a' then rs.Add(AStr); //如果存在剩余的字符串，则将其存入字符串列表中
end;
//判断某个字符串是否符合电邮邮件地址标准
//正确：返回ok，错误返回error
function emailAddressYesOrNo (emailAddress:String):string;
var
getStrings:TStringList;
getYesOrNo:string;
begin
getYesOrNo := 'error';
getStrings := TStringList.Create;
SeparateTerms2(emailAddress,'@',getStrings);
if getStrings.Count=2 then
begin
getStrings.Clear;
SeparateTerms2(emailAddress,'.',getStrings);
if getStrings.Count>1 then getYesOrNo := 'ok';
end;
getStrings.Free;
result := getYesOrNo;
end;
procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr: string;
idx: Integer;
ASubStr: string;
begin
AStr := Trim(s);
while Pos(Separator, AStr) > 0 do
begin
idx := Pos(Separator, AStr);
ASubStr := Copy(AStr, 1, idx - 1);
rs.Add(ASubStr);
AStr := Copy(AStr, idx + 1, Length(AStr));
end;
if AStr+'a' <> 'a' then rs.Add(AStr); //如果存在剩余的字符串，则将其存入字符串列表中
end;
//判断某个字符串是否符合电邮邮件地址标准
//正确：返回ok，错误返回error
function emailAddressYesOrNo (emailAddress:String):string;
var
getStrings:TStringList;
getYesOrNo:string;
begin
getYesOrNo := 'error';
getStrings := TStringList.Create;
SeparateTerms2(emailAddress,'@',getStrings);
if getStrings.Count=2 then
begin
getStrings.Clear;
SeparateTerms2(emailAddress,'.',getStrings);
if getStrings.Count>1 then getYesOrNo := 'ok';
end;
getStrings.Free;
result := getYesOrNo;
end;
6、批量发送电子邮件
复制代码 代码如下:
procedure bEmailKsxxClick;
var
AccordAmount,i,j,tag:integer;
emailusername,formAddress,sendtoAdd,emailSubject,receiptRecipientAddress,selectStr:string;
begin
//判断数据表里面是否有需要发送电子邮件的数据，如果有则发送
if Bmb.RecordCount >0 then
AccordAmount := Bmb.RecordCount
else
exit;
//
//获取账户信息,一般存放在数据表或INI文件中
emailusername := userNameString; //发送邮件人
formAddress := fromAddressString; //发送邮件地址
receiptRecipientAddress := receiptRecipientAddressString; //回复邮件地址
emailSubject := emailSubjectString; //邮件主题
//
tag := 1; //标志位：发送出错则停止
i:=1; //发送邮件的总数
j:=0; //让进度条逐步递进的记录处理条数
list1.Clear; //显示已经成功发送电子邮件的学员信息
//判断是否能与设置的邮箱连接,如果返回值为1，则获取邮件内容及相关设置并发送
if setEmailInfo = 1 then
begin
Pb.BlockSize := 1;
Pb.Max := AccordAmount ;
Formsjtj.Refresh;
Bmb.First;
try
while (not tBmb.Eof) do
begin
//判断邮件地址是否为空且是否符合电邮规范，如都满足条件则给该地址发送电邮
if Bmb.FieldByName('s_emailAddress').AsString+'a' <> 'a' then
begin
//获取发送邮件的内容
emailMemo.Clear;
..........................
//设置邮件信息，如发送邮件错误，则直接退出
if tag=0 then exit;
//发送邮件
sendtoAdd := trim(Bmb.FieldByName('s_emailAddress').AsString); //需要发送至...邮箱
if emailAddressYesOrNo(sendtoAdd)= 'ok' then //检查电子邮件格式是否正确
begin
sendEmailOnce(emailusername,formAddress,receiptRecipientAddress,sendtoAdd,emailSubject); //发送邮件
i := i+1; //计数器加1
list1.Items.Add(......); //将已经成功发送电邮的考生信息放在列表中
end;
//
end;
//每发送50封邮件停滞2s钟
if (i mod 50) = 0 then sleep(2000);
dm_sjtj.ListBmb.next;
Application.ProcessMessages ; //循环中处理进程信息
//刷新进度指示
j := j+1;
PB.Progress:=j;
PB.StepIt ;
PB.Refresh;
end;
finally
tag := 0;
IdSMTP1.Disconnect;
end;
end;
showmessage('共发送 '+intToStr(i-1)+' 封邮件。');
end;
var
AccordAmount,i,j,tag:integer;
emailusername,formAddress,sendtoAdd,emailSubject,receiptRecipientAddress,selectStr:string;
begin
//判断数据表里面是否有需要发送电子邮件的数据，如果有则发送
if Bmb.RecordCount >0 then
AccordAmount := Bmb.RecordCount
else
exit;
//
//获取账户信息,一般存放在数据表或INI文件中
emailusername := userNameString; //发送邮件人
formAddress := fromAddressString; //发送邮件地址
receiptRecipientAddress := receiptRecipientAddressString; //回复邮件地址
emailSubject := emailSubjectString; //邮件主题
//
tag := 1; //标志位：发送出错则停止
i:=1; //发送邮件的总数
j:=0; //让进度条逐步递进的记录处理条数
list1.Clear; //显示已经成功发送电子邮件的学员信息
//判断是否能与设置的邮箱连接,如果返回值为1，则获取邮件内容及相关设置并发送
if setEmailInfo = 1 then
begin
Pb.BlockSize := 1;
Pb.Max := AccordAmount ;
Formsjtj.Refresh;
Bmb.First;
try
while (not tBmb.Eof) do
begin
//判断邮件地址是否为空且是否符合电邮规范，如都满足条件则给该地址发送电邮
if Bmb.FieldByName('s_emailAddress').AsString+'a' <> 'a' then
begin
//获取发送邮件的内容
emailMemo.Clear;
..........................
//设置邮件信息，如发送邮件错误，则直接退出
if tag=0 then exit;
//发送邮件
sendtoAdd := trim(Bmb.FieldByName('s_emailAddress').AsString); //需要发送至...邮箱
if emailAddressYesOrNo(sendtoAdd)= 'ok' then //检查电子邮件格式是否正确
begin
sendEmailOnce(emailusername,formAddress,receiptRecipientAddress,sendtoAdd,emailSubject); //发送邮件
i := i+1; //计数器加1
list1.Items.Add(......); //将已经成功发送电邮的考生信息放在列表中
end;
//
end;
//每发送50封邮件停滞2s钟
if (i mod 50) = 0 then sleep(2000);
dm_sjtj.ListBmb.next;
Application.ProcessMessages ; //循环中处理进程信息
//刷新进度指示
j := j+1;
PB.Progress:=j;
PB.StepIt ;
PB.Refresh;
end;
finally
tag := 0;
IdSMTP1.Disconnect;
end;
end;
showmessage('共发送 '+intToStr(i-1)+' 封邮件。');
end;
7、需要注意的问题
① 滥发电邮是国家所不允许的
② 由于群发电邮是绝大多数电邮提供商都控制，往往2封电邮之间必须要有一段时间的延迟，建议自行架设邮件服务器
③ 由于Indy控件只有atNone和atSASL两种模式，架设好邮件服务器后，需要设置不需要验证的IP地址及账号；
④ 由于内部邮件地址无法获得电邮回复，因此往往回复地址与发信地址设置为不同。现在出现的一个问题就是通过浏览器打开邮件无法回复，但是通过Foxmail接收邮件后可以获得回复。这点需要注意。
希望本文所述对大家的Delphi程序设计有所帮助。
上一篇: delphi实现保存和读取图片的方法
下一篇: Delphi实现获取磁盘空间大小的方法
相关文章
php 中file_get_contents超时问题的解决方法
file_get_contents超时我知道最多的原因就是你机器访问远程机器过慢，导致php脚本超时了，但也有其它很多原因，下面我来总结file_get_contents超时问题的解决方法总结。...2016-11-25- 相信很多站长都遇到过这样一个问题，访问页面时出现408错误，下面一聚教程网将为大家介绍408错误出现的原因以及408错误的解决办法。 HTTP 408错误出现原因： HTT...2017-01-22
- 下面我们来看一篇关于Android子控件超出父控件的范围显示出来方法，希望这篇文章能够帮助到各位朋友，有碰到此问题的朋友可以进来看看哦。 <RelativeLayout xmlns:an...2016-10-02
- php如何实现抓取网页图片，相较于手动的粘贴复制，使用小程序要方便快捷多了，喜欢编程的人总会喜欢制作一些简单有用的小软件，最近就参考了网上一个php抓取图片代码，封装了一个php远程抓取图片的类，测试了一下，效果还不错分享...2015-10-30
- ps软件是现在非常受大家喜欢的一款软件，有着非常不错的使用功能。这次文章就给大家介绍下ps把文字背景变透明的操作方法，喜欢的一起来看看。 1、使用Photoshop软件...2017-07-06
intellij idea快速查看当前类中的所有方法(推荐)
这篇文章主要介绍了intellij idea快速查看当前类中的所有方法,本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下...2020-09-02- 1.在没有设置默认值的情况下： 复制代码 代码如下:SELECT userinfo.id, user_name, role, adm_regionid, region_name , create_timeFROM userinfoLEFT JOIN region ON userinfo.adm_regionid = region.id 结果：...2014-05-31
js导出table数据到excel即导出为EXCEL文档的方法
复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta ht...2013-10-13- 本文涉及的主题虽然很基础，在许多人看来属于小伎俩，但在JavaScript基础知识中属于一个综合性的话题。这里会涉及到对象属性的封装、原型、构造函数、闭包以及立即执行表达式等知识。公有方法 公有方法就是能被外部访问...2015-11-08
- 批量更新mysql更新语句很简单，更新一条数据的某个字段，一般这样写：复制代码 代码如下:UPDATE mytable SET myfield = 'value' WHERE other_field = 'other_value';如果更新同一字段为同一个值，mysql也很简单，修改下where即...2013-10-04
- 单个字符分割 string s="abcdeabcdeabcde"; string[] sArray=s.Split('c'); foreach(string i in sArray) Console.WriteLine(i.ToString()); 输出下面的结果: ab de...2020-06-25
- 最近想自学PHP ，做了个验证码，但不知道怎么搞的，总出现一个如下图的小红叉，但验证码就是显示不出来，原因如下 未修改之前，出现如下错误； （1）修改步骤如下，原因如下，原因是apache权限没开， （2）点击打开php.int.， 搜索extension=ph...2013-10-04
安卓手机wifi打不开修复教程，安卓手机wifi打不开解决方法
手机wifi打不开？让小编来告诉你如何解决。还不知道的朋友快来看看。 手机wifi是现在生活中最常用的手机功能，但是遇到手机wifi打不开的情况该怎么办呢?如果手机wifi...2016-12-21- ps软件是一款非常不错的图片处理软件，有着非常不错的使用效果。这次文章要给大家介绍的是ps怎么制作倒影，一起来看看设计倒影的方法。 用ps怎么做倒影最终效果̳...2017-07-06
连接MySql速度慢的解决方法(skip-name-resolve)
最近在Linux服务器上安装MySql5后，本地使用客户端连MySql速度超慢，本地程序连接也超慢。 解决方法：在配置文件my.cnf的[mysqld]下加入skip-name-resolve。原因是默认安装的MySql开启了DNS的反向解析。如果禁用的话就不能...2015-10-21- javascript控制页面控件隐藏显示的两种方法，方法的不同之处在于控件隐藏后是否还在页面上占位 方法一： 复制代码 代码如下: document.all["panelsms"].style.visibility="hidden"; document.all["panelsms"].style.visi...2013-10-13
- 本篇文章是对C#方法进行了详细的总结与介绍，需要的朋友参考下...2020-06-25
- 步骤：Window -> PHP -> Editor -> Templates，这里可以设置（增、删、改、导入等）管理你的模板。新建文件注释、函数注释、代码块等模板的实例新建模板，分别输入Name、Description、Patterna)文件注释Name: 3cfileDescriptio...2013-10-04
- EXCEL数据上传到SQL SERVER中的方法需要注意到三点!注意点一:要把EXCEL数据上传到SQL SERVER中必须提前把EXCEL传到服务器上.做法: 在ASP.NET环境中,添加一个FileUpload上传控件后台代码的E.X: 复制代码 代码如下: if...2013-09-23
- mysql锁定单个表的方法 复制代码 代码如下:mysql>lock table userstat read; mysql>unlock tables; 页级的典型代表引擎为BDB。 表级的典型代表引擎为MyISAM,MEMORY以及很久以前的ISAM。 行级的典型代表引擎为INN...2014-05-31