asp通过JMAIL实现通用发送函数

<%
'******************************
'函数：SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
'参数：MailtoAddress,接收邮件地址；MailtoName,接收者姓名；ubject,主题；ailBody,邮件内容；FomName,主送姓名；ailFrom,主送邮件地址；riority,邮件等级
'作者：阿里西西
'日期：2007/7/13
'描述：JMAIL通用发送函数
'示例：<%=SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)%>
'******************************
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
 on error resume next
 Dim JMail
 Set JMail=Server.CreateObject("JMail.Message")
 if err then
  SendMail= "<br><li>没有安装JMail组件</li>"
  err.clear
  exit function
 end if
 JMail.Charset="gb2312"      
 JMail.silent=true
 JMail.ContentType = "text/html"  
 JMail.MailServerUserName = MailServerUserName  
    JMail.MailServerPassWord = MailServerPassword      
   JMail.MailDomain = MailDomain      
 JMail.AddRecipient MailtoAddress,MailtoName   
 JMail.Subject=Subject        
 JMail.HMTLBody=MailBody   
 JMail.Body=MailBody         
 JMail.FromName=FromName      
 JMail.From = MailFrom       
 JMail.Priority=Priority          
 JMail.Send(MailServer)
 SendMail =JMail.ErrorMessage
 JMail.Close
 Set JMail=nothing
end function%>

赞 (0)

相关推荐

  • Jmail发邮件的例子

    在Asp程序中用Jmail发邮件的比较多,主要是因为多数虚拟主机支持他,其它的支持的较少. 下面是一个Jmail发邮件的例子代码:  如果您在自己的机器上试,请下载 Jmail.dll ,下载解压后,双击Setup.bat 即可完成安装!  复制代码 代码如下: <% On error resume next Dim JMail, contentId Set JMail = Server.CreateObject("JMail.Message")  JMail.Charset =

  • asp空间判断jmail组件是否安装或支持的代码

    首先,必须有错误继续进行的声明On Error Resume Next 然后尝试简历jmail实例: Dim JMail Set JMail=Server.CreateObject("JMail.Message") 对实例做出判断,如果组件没有安装成功,则没有创建实例: If JMail Is Nothing Then Response.Write "不支持" Else Response.Write "支持" End If 其他组件同样处理,非常

  • Win2003安装并注册jmail组件

    Win2003安装并注册jmail组件

    一.首先下载jmail最新免费版 可以到s.jb51.net下载二.安装jmail:把JMail45_free.msi上传到服务器上安装,下一步下一步即可.为了今后备份方便可以安装到C盘. 三.注册jmail:在运行里输入:regsvr32 "C:\Program Files\Dimac\w3JMail\jmail.dll" 会提示注册成功即可. 四.修改目录权限: 此时用探针探测可能仍然提示不支持jmail组件.情况如同这里:win 2003 服务器 安装 Jmail 发信组件,安装

  • Jmail 图文安装教程 asp在线发送邮件组件

    Jmail 图文安装教程 asp在线发送邮件组件

    常用组件主要包括Aspjpeg.Jmail.LyfUpload.动易.ISAPI_ReWrite等,本文就仅说这5种,其他类型组件可以根据需要安装,安装方法以此类推. 下载Jmail,现在免费版本的最高版是Jmail4.5,点击后面的链接下载:点此下载JMail4.5: 下载解压到任意目录,或者直接执行JMail45_free.msi: 执行后开始安装,出现安装界面如下图点击Next先选择"I accept the license agreement" ,再点击Next  出于安全考虑

  • 安装jmail 出现The message was undeliverable. All servers failed to receive the message的解决方法

    错误源: jmail.Message  错误描述: The message was undeliverable. All servers failed to receive the message 导致问题的可能的原因: 1.用户名和密码  在代码里要写上 msg..MailServerUserName="用户名"  msg.MailServerPassWord="密码"  或是 msg.Send("用户名:密码@server.net")  要写

  • asp中判断服务器是否安装了某种组件的函数

    判断服务器是否安装了某种asp组件,比较常用的代码如下: 复制代码 代码如下: <% '功能:检查是否存在系统组件或组件是否安装成功 '参数:组件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsO

  • 解决JMail无法安装的方法(帐户名与安全标识间无任何映射完成)

    在网上找了很多结果都没找到好的解决办法 从一篇文章中得知可能是用户帐号不一致所造成 于是打开事件查看器 发现在里面所记录的用户名和现在所使用的用户名不一致, 找到问题 通过管理改了用户名 注销 安装 OK 一切顺利

  • asp jmail发邮件 详细解析第1/2页

    发个个比较详细的asp与jmail 实现发送邮件的代码,前一段时间有发过一个简单的JMAIL邮件发邮件的代码,今天就把这个代码做一个具体的注解,并增加了另外两个格式的代码,并举几个简单的例子: 首先是jmail.smtpmail的核心代码:   复制代码 代码如下: <%   Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象   jmail.silent = true 'JMAIL不会抛出例外错误,返回的

  • Jmail组件发送邮件之绝对能用的函数

    大致如下: 1,POP3对象,是对POP3邮件接收服务器的操作.2,Messages对象,是有关邮件集合的对象.3,Message对象,是有关邮件的对象,其是Jmail组件最常用的对象,能发送邮件信息,也能接收邮件信息.4,Header对象,是与邮件头相关的对象.5,Recipients对象,是有关接收邮件集合的对象.6,Recipient对象,是有关接收邮件的对象.7,Attachments对象,是有关邮件附件集合的对象.8,Attachment对象,是有关邮件附件的对象.9,MailMerg

  • 使用Jmail及Winwebmail发信时系统记录中的错误：502 Error: command ...

    使用Jmail及Winwebmail发信时系统记录中的错误：502 Error: command ...

    详细的错误信息如下: 发送邮件出错:发件人webmaster@58vip.com 收件人:webmaster@58vip.com信息:The message was undeliverable. All servers failed to receive the message ClientLogging enabled: Client Remote Address: 219.150.228.130 .execute() { Trying server mail:smtp.58vip.com <

  • ASP用JMail、CDO发送邮件

    前一段时间有发过一个简单的JMAIL邮件发邮件的代码,今天就把这个代码做一个具体的注解,并增加了另外两个格式的代码,并举几个简单的例子: 首先是jmail.smtpmail的核心代码:  程序代码 <%   Set jmail = Server.CreateObject("JMAIL.SMTPMail")   '创建一个JMAIL对象   jmail.silent = true   'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE   jmail.logging = 

随机推荐