虚拟主机Jmail问题集锦

Tags: 主机  空间  Jmail  Author:凯旋网络   Date:2012/7/8

1、JMAIL的版本是多少? JMAIL 是免费的4.0版本 2、JMAIL 需要单独的发信服务器吗? JMAIL 需要设置单独的发信服务器 如:set mail=server.CreateObject("jmail.SMTPMail") mail.ServerAddress = "mail.domain.com" 3、为什么使用jmail发信时发信失败? 最可能的原因是你指定的发信服务器需要发信认证,而你在程序中没有指定发信用户名和密码,具体的编码为: set mail=CreateObject("jmail.Message") mail.Charset ="gb2312" mail.From ="from@35yi.com" mail.AddRecipient "to@35yi.com" mail.MailDomain="mail.35yi.com" mail.MailServerUserName = " from @35yi.com" mail.MailServerPassWord = "****" mail.subject=”test” mail.body= “欢迎” ''On Error Resume Next mail.Send("mail.35yi.com") mail.close() set mail=nothing 4、Jmail 能发送附件吗? 可以 mail.AddAttachment (replace(server.MapPath("/test.doc"),"","")) 5、 Jmail 可以发送Html格式的邮件吗? 可以,具体看使用手册。 6、Jmail组件实例。(1)发信服务器需要认证(凯旋网络邮箱适用)<%set mail=CreateObject("jmail.Message") mail.Charset ="gb2312" mail.From ="test@35yi.com" ''发送人的邮件地址mail.AddRecipient "test@35yi.com"''接收者的邮件地址mail.MailDomain="mx.35yi.com"''改成可以正常使用的邮件服务器的IP或域名mail.MailServerUserName = "test@35yi.com"  ''邮件服务器的邮箱地址mail.MailServerPassWord = "*****"''邮件服务器的邮箱密码mail.subject="标题"  ''标题mail.body= "正文"  ''正文On Error Resume Next mail.Send("mx.35yi.com") ''改成可以正常使用的邮件服务器的IP或域名mail.close() set mail=nothing response.write "发送成功" %>(2)发信服务器不需要认证<% set mail=server.CreateObject("jmail.SMTPMail") mail.Charset="gb2312" mail.ServerAddress = "mx.35yi.com"''改成可以正常使用的邮件服务器的IP或域名mail.Sender="test@35yi.com"  ''发送人的邮件地址mail.SenderName="test" mail.AddRecipient("test@sina.com")''接收者的邮件地址mail.Subject ="标题"  ''标题mail.body="正文"  ''正文mail.Priority="1" ''On Error Resume Next mail.Execute() mail.Close Set mail=nothing response.write "发送成功" %>7、Jmail发信的实例,模块化随时调用一个用jmail发信的过程,及使用方法. 发信时,直接调用这个过程就行了。     <%   dim str,HtmlBody   HtmlBody="<html><body bgcolor=''red'' topmargin=''40''><p align=''center''>I Love 2Yup!</p></html>"   str=JmailSend( "hello","ILoveYou",true,HtmlBody,"youname@domain.com",youname@sina.com,   "hello","smtp.sina.com.cn","hello","Password")   if str="Y" then    response.write("发送成功")   else    response.write("发送失败!请重试!")   end if   ''=================================================   ''函数名:JmailSend   ''作 用:用Jmail发送邮件   ''参 数:Subject 邮件标题   '' Body 邮件内容   '' Body 邮件内容   '' isHtml 是否发送Html格式邮件 (true 是)   '' HtmlBody Html格式邮件内容   ''    MailTo 收件人Email   '' From 发件人Email   '' FromName 发件人姓名   '' Smtp smtp服务器   '' Username 邮箱用户名   '' Password 邮箱密码   ''返回值:JmailSend="N" 发送失败 JmailSend="Y" 发送成功   ''~~~~~~~~~~suercool~~~~~      ''=================================================    function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)    dim JmailMsg    set JmailMsg=server.createobject("jmail.message")    JmailMsg.mailserverusername=Username    JmailMsg.mailserverpassword=Password       JmailMsg.addrecipient MailTo    JmailMsg.from=From    JmailMsg.fromname=FromName       JmailMsg.charset="gb2312"    JmailMsg.logging=true    JmailMsg.silent=true       JmailMsg.subject=Subject    JmailMsg.body=Body    if isHtml=true then JmailMsg.htmlbody=HtmlBody       if not JmailMsg.send(Smtp) then    JmailSend="N"    else    JmailSend="Y"    end if    JmailMsg.close    set JmailMsg=nothing   end function   %>