关于网友提出的“ 用delphi 编写的程序发送邮件的怪现象”问题疑问，本网通过在网上对“ 用delphi 编写的程序发送邮件的怪现象”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 用delphi 编写的程序发送邮件的怪现象
描述:delphi sendmail
用以下的函数发送邮件，出现一个不正常的现象，
即我发送两封邮件给对方，但是对方只接收到一封邮件，但是对方收到的这封邮件的内容却
包含了
我发过去的两封邮件的内容，请问是什么问题？
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.
解决方案1: 两个邮件合并了？怪事。。可能是Body木有清空。。
以上介绍了“ 用delphi 编写的程序发送邮件的怪现象”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2195357.html
