163邮箱批量发送邮件工具源代码

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

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

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