请问一个支持jmail的服务器，我要在上面做email发送该怎么做？最好有例子。谢

bigpate 2002-01-02 08:42:52

现在有一个支持jmail的服务器那么我想在上面做一个直接填表（收件地址，email内容，主题）然后发送倒所填写的信箱那么应该怎么做？望各位大侠指点一下小弟，如果有实例那是在好不过了。谢谢

...全文

44 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

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

19. **SendMailJMAIL()**：用于发送邮件，这里使用的是JMAIL组件。 20. **ResponseCookies()** 和 **CleanCookies()**：分别用于写入和清除cookies。 21. **GetTimeover()**：用于获取程序页面的执行时间。 22. *...