易语言POST发送邮件

云上的幻象2020-05-02更新于 2026-10-063 分钟阅读1,034 字54

100%

易语言自带的发信，有一点不好的是，会暴露帐号信息，因为他是明文显示的。

上文说到，”使用 phpmail 发送邮件“，本文将对接到易语言(前提是你已经把上文的源码部署好，并测试可以正常发送后在来本文)，从而实现易语言 post 发送邮件的功能。

上文已经给出 post 的链接地址”https://你的域名/sendmail.php?toemail=收件人邮箱&title=标题&content=内容”，我们只需要利用这个链接即可，下面我们来看代码：

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

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



.子程序 sendmail, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST 数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST 数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

局_网址 ＝ “http://www.worldurl.cn/sendmail.php”
局_方式 ＝ 1
ADD_数据包.添加 (“toemail”, toemail.内容)
ADD_数据包.添加 (“title”, title.内容)
ADD_数据包.添加 (“content”, content.内容)

局_提交数据 ＝ ADD_数据包.获取 Post 数据 ()
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)

局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()

局_结果 ＝ 网页_访问 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)

.子程序 _按钮 1_被单击

调试输出 (sendmail ())