|
楼主
发表于 2013-9-19 02:34:16
|
只看该作者
江苏省无锡市
[e]
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 发邮件
.参数 图片文件名, 文本型
.局部变量 N1, 整数型
.局部变量 邮件标题, 文本型
.局部变量 正文, 文本型
.局部变量 收信地址, 文本型
.局部变量 发信地址, 文本型
.局部变量 发送结果, 文本型
.如果 (连接发信服务器 (“SMTP.126.com”, 25, “邮箱账号”, “邮箱密码”, 5000) = 真)
调试输出 (“连接邮件服务器成功!”)
.如果真 (添加附件文件 (图片文件名) = 假)
调试输出 (“添加图片文件附件失败!”)
返回 ()
.如果真结束
.否则
调试输出 (“连接邮件服务器失败!”)
返回 ()
.如果结束
邮件标题 = 时间到文本 (D开始时间, )
正文 = “测试”
收信地址 = “邮箱账号@126.com”
发信地址 = “邮箱账号@126.com”
发送结果 = 发送邮件 (邮件标题, 正文, 收信地址, , , 发信地址, )
.如果 (发送结果 = “”)
调试输出 (“发送邮件成功!”)
.否则
调试输出 (“发送邮件错误:” + 发送结果)
.如果结束
返回 ()
[/e] |
|