ASP使用组件在线发E-mail的2个函数
作者:Dicky 来源:CSDN 时间:2008-06-12 07:13:00
使用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
标签:组件,jmail,函数,asp
0
投稿
猜你喜欢
asp我对后台安全的一些做法
2011-09-01 19:22:09
IE bug: 1像素的dotted/dashed边框
2009-10-28 18:45:00
在Vista IIS 7 中用 vs2005 调试 Web 项目的注意事项
2011-04-18 10:38:00
擦亮自己的眼睛去看SQL Server之历史渊源
2011-08-29 15:40:53
Linux mysql安装修改root密码服务
2010-10-14 13:59:00
用asp编写类似搜索引擎功能的代码
2008-10-23 15:55:00
白鸦:Design IT. (1),迭代的设计
2008-08-27 21:11:00
ASP 生成静态新闻列表
2009-03-03 12:25:00
理清mysql外链的含义和命令
2010-03-09 15:55:00
CSS框架的相关汇总(CSS Frameworks)
2008-04-02 12:00:00
ASP+ajax注册即时提示程序代码
2011-02-05 11:25:00
重新发现HTML表格
2009-12-02 09:47:00
细节设计之美:扩大可操作区域
2009-08-01 11:32:00
mysql主从服务器配置特殊问题
2011-01-04 19:56:00
一个带采集远程文章内容,保存图片,生成文件等完整的采集功能
2011-04-02 11:02:00
window.location.hash属性介绍
2008-03-21 12:39:00
SQL SERVER EXPRESS 常见问题及解决办法
2008-09-13 19:07:00
SQL Server 2005中数据库镜像的四个问题
2009-02-19 16:48:00
Javascript的数组总结
2009-02-03 13:07:00
初衷和结果
2009-02-23 12:52:00