asp程序怎样使用jmail

asp程序怎样使用jmail

<%
function SendMail(SMTPServer,SMTPServerUserName,SMTPServerPassword,MailDomain,MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
　　　　dim JMail, msg
　　　　set JMail=Server.CreateObject("JMail.Message")
　　　　JMail.Charset="gb2312" '编码
　　　　JMail.silent=true '设置为true,JMail不会抛出例外错误.
　　　　JMail.ContentType = "text/plain" '邮件正文格式
　　　　'JMail.ServerAddress = SMTPServer '用来发送邮件的SMTP服务器(无效)
　　　　'指定邮件服务器的地址。可以指定多个服务器，用分号点开。可以指定端口号。
　　　　'如果serverAddress保持空白，JMail会尝试解决远程邮件服务器，然后直接发送到服务器上去。
　　　　'如：JMail.ServerAddress = &tquo;mail.mydom.net; mail2.mydom.net:2500"
　　　　JMail.MailServerUserName = SMTPServerUserName '登录用户名
　　　　JMail.MailServerPassWord = SMTPServerPassword '登录密码
　　　　JMail.MailDomain = MailDomain '域名（如果用“name@domain.com”这样的用户名登录时，请指明domain.com
　　　　JMail.AddRecipient MailtoAddress,MailtoName '收信人
　　　　JMail.Subject = Subject '主题
　　　　JMail.Body = MailBody '邮件正文（纯文本格式）
　　　　JMail.FromName = FromName '发信人姓名
　　　　JMail.From = MailFrom '发信人Email
　　　　JMail.Priority = Priority '邮件等级12345
　　　　msg = JMail.Send(SMTPServer)
　　　　JMail.Close
　　　　set JMail = nothing
　　　　SendMail = msg
end function
%>

直接安装JMAIL， mailtest=request("mailtest")      Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象      'jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j      jmail.Charset = "GB2312" '邮件的文字编码      jmail.ContentType = "text/html" '邮件的格式为HTML格式或纯文      jmail.AddRecipient "wanxiash@126.com" '邮件收件人的地址      jmail.From = admin@mycodes.net '发件人的E-MAIL地址      jmail.MailServerUserName = admin@mycodes.net '登录邮件服务器的用户名 (您的邮件地址)      jmail.MailServerPassword = "123456" '登录邮件服务器的密码 (您的邮件密码)      jmail.Subject = "访客留言" '邮件的标题      jmail.Body = "网站访客留言的内容：" & mailtest '邮件的内容      jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值      jmail.Send(" www.mycodes.net") '执行邮件发送（通过邮件服务器地址）      jmail.Close()      set jmail = nothing

jmail是目前功能最齐全、稳定及高效的邮件发送组件，我们的windows系列空间服务器均装有些组件。以下为利用该组件进行邮件发送的示例： 例子一： <% set msg = server.createobject("jmail.message") msg.silent = true msg.logging = true msg.charset = "gb2312" msg.mailserverusername = "sales@abc.com" '此为您邮箱的登录帐号，使用时请更改为自己的邮箱登录帐号 msg.mailserverpassword = "56789" '此为您邮箱的登录密码，使用时请更改为自己的邮箱登录密码 msg.from = "sales@abc.com" '发件人email msg.fromname = "某某公司" '发件人姓名 msg.addrecipient "tech@abc.com" '收件人email msg.subject = "jmail发送测试" '邮件主题 msg.body = "这是由jmail组件发送的邮件！" '邮件正文 msg.send ("mail.abc.com") 'smtp服务器地址 msg.close() set msg = nothing %> 例子二： <% name=request.form("name") email=request.form("email") note=request.form("note") set msg = server.createobject("jmail.message") msg.silent = true msg.logging = true msg.charset = "gb2312" msg.mailserverusername = "sales@abc.com" '此为您邮箱的登录帐号，使用时请更改为自己的邮箱登录帐号 msg.mailserverpassword = "56789" '此为您邮箱的登录密码，使用时请更改为自己的邮箱登录密码 msg.from = email '发件人email msg.fromname = name '发件人姓名 msg.addrecipient "tech@abc.com" '收件人email msg.subject = "jmail发送测试" '邮件主题 msg.body = "这是由"&name&"订单的邮件，订单留言为"¬e&"" '邮件正文 msg.send ("mail.abc.com") ' smtp服务器地址 msg.close() set msg = nothing %>