Delphi 发EMail stmpclient SDK 支持ssl_delphi foxmail发送接口sdk-优快云博客

本文链接：https://blog.youkuaiyun.com/bigwell918/article/details/101082208

本文介绍如何在Delphi（D7）旧项目中添加SSL支持的电子邮件功能，通过创建DLL (适用于D6到XE版本)，提供两种调用方式。详细介绍了DLL中的接口和函数，并提供了SDK下载链接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

蛋疼旧项目（D7)增加email功能，居然搞不了ssl，于是用xe写了一个Dll (支持d6-xe 任一版本），其它语言也可以调用dll，大家不要使用了发垃圾邮件哦

dll sdk 下载链接：https://blog.youkuaiyun.com/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;
end;
//通过接口调用smtp send mail
&