Delphi 发EMail stmpclient SDK 支持ssl

蛋疼旧项目（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;