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

凌霄

求易语言发送HTML格式的邮件例程，比如我编辑框1里是HTML的源码，让我发出去的邮件收件人那里看到是是转换后的格式，而不是一堆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), 超级列表框_发信帐号.取标题 (超级列表框_发信帐号.现行选中项, 2)))
编辑框_tp.加入文本 (“smtp方式发送已经成功投递到” ＋ 超级列表框_收信帐号.取标题 (超级列表框_收信帐号.现行选中项, 1) ＋ “邮箱” ＋ 到文本 (取现行时间 ()) ＋ #换行符)
延迟 (5000)
返回 (真)
.默认

.判断结束

.版本 2
.子程序 子程序_Jmail发送邮件, 逻辑型
.参数 发信人姓名, 文本型
.参数 发件人地址, 文本型
.参数 邮件标题, 文本型
.参数 回复地址, 文本型
.参数 内容, 文本型
.参数 收信人地址, 文本型
.参数 发信服务器, 文本型
.参数 发信用户名, 文本型
.参数 发信密码, 文本型
.局部变量 是否发送成功, 逻辑型
jmail.清除所有邮件信息 ()
jmail.置_发件人姓名 (发信人姓名)
jmail.置_发件人地址 (发件人地址)
jmail.置_邮件标题 (邮件标题)
jmail.置_回复地址 (回复地址)
jmail.追加HTML正文 (内容)
jmail.添加收件人 (收信人地址, 邮件标题, 收信人地址)
jmail.置_邮件服务器SMTP登录用户名 (发信用户名)
jmail.置_邮件服务器SMTP登录密码 (发信密码)
jmail.置_设置字符集 (“UTF-8”)
是否发送成功 ＝ jmail.发送邮件 (发信服务器, 假)
jmail.关闭连接 ()
返回 (是否发送成功)

[/e]
http://bbs.125.la/thread-13638179-1-1.html参考这个

凌霄

求解