mysql 易语言 邮件_求易语言发送HTML格式的邮件例程

[e]

.版本 2

.程序集 窗口程序集1

.程序集变量 jmail, 邮件发送

.版本 2

.支持库 internet

.支持库 iext

.支持库 spec

.支持库 EThread

.版本 2

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

运行 (“regsvr32 jmail.dll”, 真, #隐藏窗口)

.子程序 子程序_连接, 逻辑型

.局部变量 N, 整数型

.判断开始 (连接发信服务器 (编辑框_smtp.内容, , 超级列表框_发信帐号.取标题 (超级列表框_发信帐号.现行选中项, 1), 超级列表框_发信帐号.取标题 (超级列表框_发信帐号.现行选中项, 2), ))

编辑框_tp.加入文本 (“SMTP方式连接发信服务器” ＋ 超级列表框_发信帐号.取标题 (超级列表框_发信帐号.现行选中项, 1) ＋ “成功，马上进行发信--------” ＋ 到文本 (取现行时间 ()) ＋ #换行符)

延迟 (5000)

返回 (真)

启动线程 (&子程序_发信, , )

.默认

.判断结束

.子程序 子程序_发信, 逻辑型

.判断开始 (子程序_Jmail发送邮件 (“邮件群|发QQ：760401015”, 超级列表框_发信帐号.取标题 (超级列表框_发信帐号.现行选中项, 1) ＋ 编辑框3.内容, 编辑框_邮件标题.内容, “邮件群|发QQ：760401015”, 编辑框_邮件内容.内容, 超级列表框_收信帐号.取标题 (超级列表框_收信帐号.现行选中项, 1), 编辑框_smtp.内容, 超级列表框_发信帐号.取标题 (超级列表框_发信帐号.现行选中项, 1), 超级列表框_发信帐