用delphi 编写的程序发送邮件的怪现象

贵生 2013-06-29 06:08:18
用以下的函数发送邮件,出现一个不正常的现象,

即我发送两封邮件给对方,但是对方只接收到一封邮件,但是对方收到的这封邮件的内容却包含了

我发过去的两封邮件的内容
,请问是什么问题?


function sendemail(sDisplayUser,sPasswd,sMailSrvIP,sSrvPort,sAgentMail,sFrom,MailAddress, MailSubject, MailBody: string):Boolean;
var
srv: TIdSMTP;
msg: TIdMessage;
begin

srv := TIdSMTP.Create(nil);
msg := TIdMessage.Create(nil);

with srv do
begin
AuthenticationType := atLogin;
Username := sDisplayUser; //**邮件发送用户名
Password := sPasswd; //**邮件发送用户密码
Host := sMailSrvIP; //**邮件服务器
Port := StrToInt(sSrvPort);
with msg do
begin
Clear;
From.Address := sAgentMail; //**发件人邮件地址
From.Name := sFrom; //**发件人名字
Recipients.EMailAddresses := MailAddress;
Subject := MailSubject;
Body.Add(MailBody);
end;
try
begin
Connect();
Send(msg);
Disconnect;
end;
except
begin
//ShowMessage(Exception(ExceptObject).message);
MessageBox(0,'您可能设定了错误的邮箱,请及时更正!','提示',48+mb_systemmodal);
Disconnect;
Result := False;
//Abort;
Exit;
end;
end;
end;
FreeAndNil(srv);
FreeAndNil(msg);
Result := True;
end;

end.
...全文
72 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hsfzxjy 2013-07-08
两个邮件合并了?怪事。。可能是Body木有清空。。
  • 打赏
  • 举报
回复
sololie 2013-07-02
不会,撸过消灭0回复
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4929

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2013-06-29 06:08
社区公告
暂无公告