蛋疼旧项目(D7)增加email功能,居然搞不了ssl,于是用xe写了一个Dll (支持d6-xe 任一版本),其它语言也可以调用dll,大家不要使用了发垃圾邮件哦
dll sdk 下载链接:https://blog.csdn.net/bigwell918/article/details/101082208
{
SmtpClient 接口
作者:犇骉 10991135@qq.com http://qq-law.cn
}
unit uIMailIntf;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls;
Type
//调用方法一,通过接口 (D6,D7支持)
//IMail Smtp Sender 接口
IMailSender=interface
['{1A9BCD19-EC53-4961-8552-A7DF08968068}']
//设置smtp服务器参数
//主机名,端口,帐户名,密码,使用安全密码验证
procedure SetHostInfo(ahost:pwidechar;aport:integer;auser:pwidechar;apassword:pwidechar;Auth:Boolean);stdcall;
//发送邮件
//发件人,收件人,抄送,主题,邮件内容,html格式
function SendMail(MailFrom,MailTo,MailCC:pwidechar;aSubject,aContent:pwidechar;isHtml:Boolean):Boolean;stdcall;
//添加附件
procedure AttachFile(aFileName:pwidechar);stdcall;
//清空附件
procedure ClearFiles;stdcall;
//终止发送
procedure AbortSend;stdcall;
//读取错误信息
function GetLastError:pwidechar;stdcall;