SMTP 发送邮件怎么发送.html格式的网页源码

沉·寂

如题:

SMTP 发送邮件怎么发送  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]


补充内容 (2013-6-23 07:01):
这个是我以前写的。自己看着去改吧。其实用到的就是一个Jmail发信。

fengyizi

这个可以把代码在邮件内容里面加上的吧

kfnpzn

直接把源码发送出去即可，查看邮件的时候会自动解析HTML源码。

沉·寂

kfnpzn 发表于 2013-3-12 11:43
直接把源码发送出去即可，查看邮件的时候会自动解析HTML源码。

不行的,已经试过了

三人游

直接发HTML源码。

我爱逗妇乳

我也在等待回答，遇到了同样的问题

痞子大叔

jmail.dll.用这个吧！这个才能发送HTML格式的邮件。

痞子大叔

jmail.rar (115.24 KB, 下载次数: 145)

2013-6-23 07:02 上传

点击文件名下载附件

痞子大叔

邮件发送模块.rar (3.93 KB, 下载次数: 346)

2013-6-23 07:04 上传

点击文件名下载附件 忘记模块了。补上。求最佳。