易语言利用163邮箱发送邮件

利用163邮箱发送邮件

.版本 2
.支持库 internet

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序
.局部变量 邮箱帐号, 文本型, , , 163邮箱帐号，不需要后缀 【.com】
.局部变量 授权码, 文本型, , , 163邮箱的授权码，不是登录密码，在163邮箱--设置--左边--客户端授权密码。

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
邮箱帐号 ＝ “11”
授权码 ＝ “11”
输出调试文本 (开始发邮件 (邮箱帐号, 授权码, “标题001”, “正文001”, “18900000000@189.cn”, , ))

.子程序 开始发邮件, 文本型, 公开, 帐号，授权码，标题，正文，收件人，抄送地址【可空】,暗送地址【可空】
.参数 邮箱帐号, 文本型, , 163邮箱帐号，不需要后缀 【.com】
.参数 授权码, 文本型, , 163邮箱的授权码，不是登录密码，在163邮箱--设置--左边--客户端授权密码。
.参数 邮件标题, 文本型, , 邮件的标题
.参数 邮件正文, 文本型, , 你发送的内容
.参数 收件地址, 文本型, , 发邮件给谁
.参数 抄送地址, 文本型, 可空, 可空
.参数 暗送地址, 文本型, 可空, 可空
.局部变量 进度, 文本型
.局部变量 连接情况, 文本型
.局部变量 发送情况, 文本型

.如果 (连接发信服务器 (“smtp.163.com”, 25, 邮箱帐号, 授权码, ) ＝ 真)
    连接情况 ＝ “连接成功”
    ' ’发送邮件 (“GT网吧测试邮件”, “警告信息内容”, 收件地址, 抄送地址, 暗送地址, 发信地址, )
    .如果 (发送邮件 (邮件标题, 邮件正文, 收件地址, 抄送地址, 暗送地址, 邮箱帐号 ＋ “@163.com”, ) ＝ “”)
        发送情况 ＝ “发送成功”
    .否则
        发送情况 ＝ “发送失败”
    .如果结束

.否则
    连接情况 ＝ “连接失败”
.如果结束
返回 (连接情况 ＋ “|” ＋ 发送情况)

@qq43142691