ASP在线发E-mail的2个函数(使用JMail和NewMail组件)

原创 2005年01月02日 20:19:00

<%'By Dicky QQ:25941
Function JMail(Send_From,Send_To,Send_Subject,Send_Body)
'调用JMail组件
'发送E-mail函数
'參數:
'Send_From-發送者信箱
'Send_To-接受者信箱
'Send_Subject-郵件主題
'Send_Body-郵件内容
     Dim JMail
     Set JMail = Server.CreateObject("JMail.Message")

     JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"
     ' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码,默认为True

     ' 发送者信息(可用变量方式赋值)
     JMail.From = Send_From ' 发送者邮箱
     JMail.FromName = "管理员" ' 发送者姓名
     JMail.Subject = Send_Subject ' 邮件主题

     ' 身份验证
     'JMail.MailServerUserName = "user" ' 身份验证的用户名
     'JMail.MailServerPassword = "password" ' 身份验证的密码

     ' 设置优先级,范围从1到5,越大的优先级越高,3为普通
     JMail.Priority = 3

     JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

     ' 加入一个收件人【变量Send_From:收件人地址】可以同一语句重复加入多个
     JMail.AddRecipient(Send_From)
 
     ' 邮件主体(HTML(注意信件内链接附件的方式))
     JMail.HTMLBody = UBBCode(Send_Body)
     JMail.Body = HTMLDecode(UBBCode(Send_Body))

     ' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
     'JMail.Send("user:password@smtp.21cn.com")
     SendInfo=JMail.Send(Send_To)

     ' 关闭并清除对象
     JMail.Close()
     Set JMail = Nothing
End Function

Function Send_Mail(Send_From,Send_To,Send_Subject,Send_Body)
'调用Windows自带NewMail组件
'发送E-mail函数
'參數:
'Send_From-發送者信箱
'Send_To-接受者信箱
'Send_Subject-郵件主題
'Send_Body-郵件内容
 Dim mailObject
 Set mailObject = Server.CreateObject("CDONTS.NewMail")
 mailObject.BodyFormat = 0
 mailObject.MailFormat = 0
 mailObject.From = Send_From
 mailObject.To = Send_To
 mailObject.Subject = Send_Subject
 mailObject.Body = Send_Body
 mailObject.Send()
 Set mailObject = Nothing

 If Err Then
  Response.Write "<script language=javascript>alert('Error:"& Err.Number & Err.Description &"對不起,郵件發送失敗!:(');</script>"
 Else
  Response.Write "<script language=javascript>alert('恭喜,郵件發送成功!^_^');</script>"
 End If
End Function %>

ASP在线发E-mail的2个函数(使用JMail和NewMail组件)

 Function JMail(Send_From,Send_To,Send_Subject,Send_Body)调用JMail组件发送E-mail函数參數:Send_From-發送者信箱Send_T...
  • windok2004
  • windok2004
  • 2005年10月26日 23:53
  • 781

[ASP]调用Jmail组件发送邮件过程(绝对能发到126等外部邮箱)

前一段时间有发过一个简单的JMAIL邮件发邮件的代码,今天就把这个代码做一个具体的注解,并增加了另外两个格式的代码,并举几个简单的例子:首先是jmail.smtpmail的核心代码:Set jmail...
  • kepeizong
  • kepeizong
  • 2006年05月17日 08:25
  • 6496

jmail 4.5使用gmail smtp ssl解决方法

现在很多email都没法提供smtp发信,但是gmail这个稳定的平台给了很多网站站长的一个希望。可惜就是smtp.gmail.com 是用ssl发送,一般的情况下asp+jmail是没法发送的,但是...
  • marklr
  • marklr
  • 2009年07月28日 11:53
  • 5830

Asp程序中用Jmail发邮件(发送附件)

...
  • KosonLau34
  • KosonLau34
  • 2006年11月16日 10:12
  • 1412

ASP版CDONTS和Jmail发邮件实例

 CDONTS:     username="dh20156"   userpass="123456"   realname="杜欢"  email="dh20156@126.com"     dim...
  • dh20156
  • dh20156
  • 2007年05月19日 15:51
  • 1656

W3 Jmail使用详细教程+简单实例

W3 JMail 邮件组件是Dimac公司开发的用来完成邮件的发送、接收、加密和集群传输等工作的。w3 Jmail组件是国际最为流行的邮件组件之一,当今世界上绝大部分ASP程序员都在使用w3 Jmai...
  • xiaosong2008
  • xiaosong2008
  • 2010年12月15日 11:01
  • 2745

在ASP中使用Jmail发邮件问题

问题:-------------------------------------------------------------------------------------------------...
  • ljdzxx
  • ljdzxx
  • 2006年02月20日 09:31
  • 3709

如何使用Jmail组件实现邮件的收发

Jmail是一个使用非常广泛的收发邮件的组件,发送邮件速度快,功能丰富并且不需要诸如Eudora、Exchange、Outlook之类的邮件客户端,并且是免费的。 下载地址:http://www...
  • zpp19901988
  • zpp19901988
  • 2015年07月22日 09:59
  • 1357

X64操作系统组件Jmail无法正常服务问题

故障现象:近日,在VMware虚拟化部署迁移中,之前物理服务器中部署网站ASP组件Jmail服务一切正常,迁移完成后发现Jmail无法正常工作,其余组件能正常工作。环境:Windows Server ...
  • l472995348
  • l472995348
  • 2016年05月26日 21:19
  • 675

Jmail发送附件

 用Jmail发送附件:jmail.Body="this is a file from jmail using c# asp.net";jmail.AddAttachment(Server.MapPa...
  • Brookes
  • Brookes
  • 2004年10月28日 13:53
  • 1835
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP在线发E-mail的2个函数(使用JMail和NewMail组件)
举报原因:
原因补充:

(最多只允许输入30个字)