易语言编制的程序不能正常发送邮件

发邮件首先要确保你的邮箱开启了smtp服务才行
我把我以前写的一段代码给你看一下
.版本 2
.支持库 internet
.支持库 eAPI

.子程序 发邮件
.局部变量 连接, 逻辑型
.局部变量 主题, 文本型
.局部变量 结果, 文本型
.局部变量 信箱类型, 文本型
.局部变量 端口, 整数型
.局部变量 用户名, 文本型
.局部变量 密码, 文本型
.局部变量 收信人, 文本型
.局部变量 发信人, 文本型

主题 ＝ 取计算机名 () ＋ “：外网IP地址 = ” ＋ 到文本 (IP地址)
信箱类型 ＝ 读配置项 (取运行目录 () ＋ “\自动发送IP.ini”, “连接设置”, “信箱类型”, )
端口 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\自动发送IP.ini”, “连接设置”, “端口”, ))
用户名 ＝ 读配置项 (取运行目录 () ＋ “\自动发送IP.ini”, “连接设置”, “用户名”, )
密码 ＝ 读配置项 (取运行目录 () ＋ “\自动发送IP.ini”, “连接设置”, “密码”, )
收信人 ＝ 读配置项 (取运行目录 () ＋ “\自动发送IP.ini”, “发信设置”, “收信人”, )
发信人 ＝ 读配置项 (取运行目录 () ＋ “\自动发送IP.ini”, “发信设置”, “发信人”, )
标签3.标题 ＝ 信箱类型
标签4.标题 ＝ 到文本 (端口)
标签5.标题 ＝ 用户名
标签6.标题 ＝ 密码
标签7.标题 ＝ 收信人
标签8.标题 ＝ 发信人
连接 ＝ 连接发信服务器 (信箱类型, 端口, 用户名, 密码, )
标签1.标题 ＝ 到文本 (连接)
.如果 (连接 ＝ 真)
结果 ＝ 发送邮件 (主题, 主题 ＋ #换行符 ＋ “内网IP = ” ＋ 取IP地址 (), 收信人, , , 发信人, )
标签2.标题 ＝ 结果
写配置项 (取运行目录 () ＋ “\自动发送IP.ini”, “IP地址”, “IP记录”, IP地址)
.否则

.如果结束
断开发信服务器 ()
内存优化 ()

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vvyv2yjrr.html