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 %>