易语言SSL发邮件源码

压缩包中的ssleay32.dll，可以到ＱＱ或是别的软件中提取（很多要SSL连接的软件都会有这个文件）

.版本 2
.支持库 spec

.程序集 窗口程序集
.程序集变量 Smtp, 发件类

.子程序 _发送_被单击
.局部变量 数据返回, 文本型

.如果 (Smtp.连接 (编辑框_服务器.内容, 到整数 (编辑框_端口.内容), 编辑框_帐号.内容, 编辑框_密码.内容))
    日志.加入文本 (“Smtp 服务端连接成功！” ＋ #换行符)
    数据返回 ＝ Smtp.发送邮件 (邮件标题.内容, 邮件内容.内容, 编辑框_收件人地址.内容, 编辑框_抄送人地址.内容, 编辑框_暗送人地址.内容, 编辑框_发信人地址.内容, 编辑框_回复人地址.内容)
    .如果 (数据返回 ＝ “”)
        日志.加入文本 (“发送邮件成功！” ＋ #换行符)
    .否则
        日志.加入文本 (“发送邮件失败：” ＋ 数据返回 ＋ #换行符)
    .如果结束
    日志.加入文本 (“**************************************”)
    Smtp.关闭 ()
.否则
    日志.加入文本 (“Smtp 服务端连接失败！” ＋ #换行符)
.如果结束


.子程序 _添加附件按钮_被单击

.如果真 (通用对话框.打开 () ＝ 真)  ' 打开通用对话框
    Smtp.添加附件文件 (通用对话框.文件名)
    列表框_附件.加入项目 (通用对话框.文件名, )
.如果真结束


.子程序 _清除附件按钮_被单击

列表框_附件.清空 ()
Smtp.清空附件 ()

.子程序 __启动窗口_创建完毕

调试输出 (到文本 (Base64解码 (“t6LTyrz+suLK1A==”)))

@风精灵