ASP使用组件在线发E-mail的2个函数
作者:Dicky 来源:CSDN 发布时间:2008-06-12 07:13:00
标签:组件,jmail,函数,asp
使用jmail组件发送邮件:
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
使用CDONTS NewMail组件发送邮件:
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
0
投稿
猜你喜欢
- 下面演示了,当asp程序发生错误时,屏蔽系统默认的错误显示,而显示自定义的错误信息。<%@ LANGUAGE="V
- 在服务器上生成动态内容是使用ASP最主要的原因之一,所以我们选择的第一个测试项目是确定把动态内容发送到应答流使用什么方法最好。基本的选择有两
- javascript模仿alert提示效果,如果你听厌倦了系统自带的那个,可以使用这个alert提示效果,听不错的。相关文章推荐《类似于新浪
- 简化了一下 YUI3 中的沙箱实现 方式:if (typeof Sandbox === 'undefined' || !Sa
- jscript 5.7 发布修复了不少ie javascript内存泄露的问题。但是leak依然存在。当我们频繁使用 setInterval
- 如何使DIV居中,div垂直居中,div水平居中.这个问题在用CSS来设计网页的时候经常会遇到,如果用传统的表格来布局是很简单的,CSS里就
- IE5及其以后版本支持在CSS中使用expression,用来把CSS属性和Javascript表达式关联起来,这里的CSS属性可以是元素固
- global 属性返回 Boolean 值,指出正则表达式使用的global 标志 (g) 的状态。默认值为 false。只读。rgExp.
- 读取binlog,方法有二:1.使用mysqlbinlog,详细用法,请参考MySQL手册2.使用MySQL的自带工具,SHOW BINLO
- 看看上一篇《javascript设计模式交流(一)Singleton Pattern》本文将讨论Prototype Pattern的js实现
- 一、get//get请求function getUrl($url, $header = []){ $ch = cu
- 现在的垃圾留言越来越智能,并且从留言内容几乎看不出来是垃圾留言,而大量的垃圾留言会导致文章可读性下降,并可能会被搜索引擎惩罚,经过一段时间的
- 一次又一次的,我发现,那些有bug的Javascript代码是由于没有真正理解Javascript函数是如何工作而导致的(顺便说一下,许多那
- 这最近在PJ的function库里看到的这个函数,感觉思路差了点,不过相对比较完美,只是闭合标签时的顺序问题,呵呵 修改一下数组arrTag
- 相信用过Gmail的人都知道Gmail有一个草稿自动保存的功能,每过一段时间,Gmail都会自动保存邮件草稿,这样在一些突 * 况下就能快速地
- 当我们使用访问一个没有声明的变量时,JS会报错;而当我们给一个没有声明的变量赋值时,JS不会报错,相反它会认为我们是要隐式申明一个全局变量。
- caller 属性返回一个对函数的引用,该函数调用了当前函数。functionName.caller functionName 对象是所执行
- 我的原数据库是3.23版本的.前几天因为一个论坛转移.必须用5.1的.于是就是升级了数据库.论坛是正常的.可以是原来的一个老库因为是3.23
- 记住:这时候08安装的时候要自定义一个实例 比如:mysql2008(不能在使用默认实例了) sql server 2008 express
- 最近经常使用字符串查找功能。 包括 1、全匹配查找字符串 2、模糊查找字符串 CHARINDEX 和 PATINDEX 函数都返回指定模式的