邮局问题

邮箱Jmail问题集锦

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@hichina.com"
mail.AddRecipient "to@hichina.com"
mail.MailDomain="mail.hichina.com"
mail.MailServerUserName = " from @hichina.com"
mail.MailServerPassWord = "****"
mail.subject=”test”
mail.body= “欢迎”
'On Error Resume Next
mail.Send("mail.hichina.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@hichina.com"    '发送人的邮件地址
mail.AddRecipient "test@hichina.com"   '接收者的邮件地址
mail.MailDomain="mx.hichina.com"   '改成可以正常使用的邮件服务器的IP或域名
mail.MailServerUserName = "test@hichina.com"  '邮件服务器的邮箱地址
mail.MailServerPassWord = "*****"   '邮件服务器的邮箱密码
mail.subject="标题"     '标题
mail.body= "正文"     '正文
On Error Resume Next
mail.Send("mx.hichina.com")    '改成可以正常使用的邮件服务器的IP或域名
mail.close()
set mail=nothing
response.write "发送成功"
%>

(2)发信服务器不需要认证
<%
set mail=server.CreateObject("jmail.SMTPMail")
mail.Charset="gb2312"
mail.ServerAddress = "mx.hichina.com"   '改成可以正常使用的邮件服务器的IP或域名
mail.Sender="test@hichina.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
  %>