然后尝试简历jmail实例：
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
对实例做出判断，如果组件没有安装成功，则没有创建实例：
If JMail Is Nothing Then
Response.Write "不支持"
Else
Response.Write "支持"
End If
其他组件同样处理，非常简单了。
最好在global文件中处理，里面使用的时候不用那么麻烦了。
最好的方法把邮件生成放到一个表里，然后再说发送的事情。
代码如下:
<BR />Function IsObjInstalled(strClassString) <BR />On Error Resume Next <BR />IsObjInstalled = False <BR />Err = 0 <BR />Dim xTestObj <BR />Set xTestObj = Server.CreateObject(strClassString) <BR />If 0 = Err Then IsObjInstalled = True <BR />Set xTestObj = Nothing <BR />Err = 0 <BR />End Function <BR /> <BR />判断代码: <BR />if IsObjInstalled("JMail.Message")=True then{ <BR />if IsObjInstalled("JMail.Message") =True then <BR />SendStat = Jmail("***@jb51.net","来自网上的客户留言","<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><title>网站用户留言</title></head><body>留言人："&txtname&"<br>性别："&xingbie&"<br>咨询网站："&txtweb&"<br>联系方式："&txttel&"<br>留言内容："&content&"<br>IP地址:"&ipaddress&"<br>留言时间:"&now()&"<br><br>本邮件由系统自动发送,无须回复<!--硕编程www.51frw.cn--><br><br></body></html>","GB2312","text/html") <BR />end if <BR />} <br /><br />jmail发信函数 <BR /><span><U></U></span> 代码如下:<BR />' ============================================ <BR />' jmail发送邮件 <BR />' ============================================ <BR />Function Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType) <br /><br />'入口参数： <BR />' mailTo 收件人email地址 <BR />' mailTopic 邮件主题 <BR />' mailBody 邮件正文(内容) <BR />' mailCharset 邮件字符集，例如GB2312或US-ASCII <BR />' mailContentType 邮件正文格式，例如text/plain或text/html <BR />'返回值： <BR />' 字符串，发送成功后返回OK，不成功返回错误信息 <BR />'使用方法： <BR />' 1)设置好常量，即以Const开头的变量 <BR />' 2)使用类似如下代码发信 <BR />'Dim SendStat <BR />'SendStat = Jmail("aa@163.com","测试Jmail","这是一封<br/>测试信！","GB2312","text/html") <BR />'Response.Write SendStat <br /><br />'***************根据需要设置常量开始***************** <BR />Dim ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword <br /><br />ConstFromNameCn = "彩票网"'发信人中文姓名(发中文邮件的时候使用)，例如‘张三' <BR />ConstFromNameEn = "bc5"'发信人英文姓名(发英文邮件的时候使用)，例如‘zhangsan' <BR />ConstFrom = "jb51@163.com"'发信人邮件地址，例如‘zhangsan@163.com' <BR />ConstMailDomain = "smtp.163.com"'smtp服务器地址，例如smtp.163.com <BR />ConstMailServerUserName = "jb51@163.com"'smtp服务器的信箱登陆名，例如‘zhangsan'。注意要与发信人邮件地址一致！ <BR />ConstMailServerPassword = "www.51frw.cn"'smtp服务器的信箱登陆密码 <BR />'***************根据需要设置常量结束***************** <BR />'-----------------------------以下内容无需改动------------------------------ <BR />On Error Resume Next <BR />Dim myJmail <BR />Set myJmail = Server.CreateObject("JMail.Message") <BR />myJmail.Logging = False'记录日志 <BR />myJmail.ISOEncodeHeaders = False'邮件头不使用ISO-8859-1编码 <BR />myJmail.ContentTransferEncoding = "base64"'邮件编码设为base64 <BR />myJmail.AddHeader "Priority","3"'添加邮件头,不要改动！ <BR />myJmail.AddHeader "MSMail-Priority","Normal"'添加邮件头,不要改动！ <BR />myJmail.AddHeader "Mailer","Microsoft Outlook Express 6.00.2800.1437"'添加邮件头,不要改动！ <BR />myJmail.AddHeader "MimeOLE","Produced By Microsoft MimeOLE V6.00.2800.1441"'添加邮件头,不要改动！ <BR />myJmail.Charset = mailCharset <BR />myJmail.ContentType = mailContentType <br /><br />If UCase(mailCharset) = "GB2312" Then <BR />myJmail.FromName = ConstFromNameCn <BR />Else <BR />myJmail.FromName = ConstFromNameEn <BR />End If <br /><br />myJmail.From = ConstFrom <BR />myJmail.Subject = mailTopic <BR />myJmail.Body = mailBody <BR />myJmail.AddRecipient mailTo <BR />myJmail.MailDomain = ConstMailDomain <BR />myJmail.MailServerUserName = ConstMailServerUserName <BR />myJmail.MailServerPassword = ConstMailServerPassword <BR />myJmail.Send ConstMailDomain <BR />myJmail.Close <BR />Set myJmail=nothing <br /><br />If Err Then <BR />Jmail=Err.Description <BR />Err.Clear <BR />Else <BR />Jmail="OK" <BR />End If <br /><br />On Error Goto 0 <BR />End Function <BR /> <BR />
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！