28,406
社区成员
发帖
与我相关
我的任务
分享请问一个支持jmail的服务器，我要在上面做email发送该怎么做？最好有例子。谢
现在有一个支持jmail的服务器那么我想在上面做一个直接填表（收件地址，email内容，主题）然后发送倒所填写的信箱那么应该怎么做？望各位大侠指点一下小弟，如果有实例那是在好不过了。谢谢
...全文
请发表友善的回复…
发表回复
mkiss 2002-01-03
- 打赏
- 举报
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer '发送邮件的smtp服务器
JMail.Sender=SystemEmail '发送人邮件地址
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email '收件人地址
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer '发送邮件的smtp服务器
JMail.Sender=SystemEmail '发送人邮件地址
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email '收件人地址
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
