1，可发送本文或者html类型的邮件（TCP）接口如下：
首先需要服务端的设置里面把邮件服务器的账号，密码等信息设置好。
“附件文件夹“：必须先在网盘映射里面建立对应的路径；发带附件邮件的时候，需先调用文件上传接口上传附件。
【SendEmail 邮件发送函数】范例如下：
var
SubjectText, bodytext,FromAddress,ToAddress: string;
CCList,BccList,AttachmentFiles,sErrorMsg: string;
begin
//组装html 格式字符串，文本就直接输入
bodytext := '<html>' + '<body style="background-color:PowderBlue;"> ' +
'<h1>我是简体字</h1>' +
'<p style="font-family:times;color:green"> 繁體中國人</p> ' +
'<p style="font-size:30px">This text is 30 pixels high</p>' +
'</body></html>';
//主旨
SubjectText:='测试系统測試';
//发送人地址
FromAddress:='meme@163.com';
//收件人
ToAddress:= '123@163.com;456@163.com';
//抄送人
CCList:='';
//密送
BccList:='';
//带后缀的附件名称 （需先调用上传文件函数上传附件）
AttachmentFiles:='123.pdf;567.pdf' ;
if ser.SendEmail(SubjectText, bodytext,FromAddress,ToAddress
,CCList, BccList,AttachmentFiles, sErrorMsg) then
showmessage('邮件发送成功')
else
exception.Create(sErrorMsg);
end;
1223
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
