至顶网›软件频道 ›基础软件›ASP CDO.Message 发送邮件完整实例 By shawl.qiu

ASP CDO.Message 发送邮件完整实例 By shawl.qiu

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

ASP CDO.Message 发送邮件完整实例 By shawl.qiu 作用.

作者：btbtd 来源：CSDN 2008年3月24日

ASP CDO.Message 发送邮件完整实例 By shawl.qiu 作用: ASP 无组件发送电子邮件实现了直接套用式功能, 只需修改少许选项, 即可使用. 说明: 主要操作皆封装在两个函数里, 一个为发送邮件表单(名 fCdoForm), 一个为发送邮件操作(名 fCdoSendMail) 除主收件人以外, 支持抄送, 密送. 动态选择使用 TEXT/HTML 格式, 或者两者都选动态输入SMTP 相关信息支持是否使用 SSL 支持三种验证方法附注: 暂不支持附件功能, 主要原因为服务端与客户端的限制. 服务端脚本不允许直接读取客户端文件. 目录: 1. 主内容: 两个主函数及完整应用代码 2. 预览: shawl.qiu 2006-09-11 http://blog.csdn.net/btbtd

ASP CDO.Message 发送邮件完整实例 By shawl.qiu

作用:
ASP 无组件发送电子邮件
实现了直接套用式功能, 只需修改少许选项, 即可使用.

说明:
主要操作皆封装在两个函数里, 一个为发送邮件表单(名 fCdoForm), 一个为发送邮件操作(名 fCdoSendMail)
除主收件人以外, 支持抄送, 密送.
动态选择使用 TEXT/HTML 格式, 或者两者都选
动态输入SMTP 相关信息
支持是否使用 SSL
支持三种验证方法

附注:
暂不支持附件功能, 主要原因为服务端与客户端的限制.
服务端脚本不允许直接读取客户端文件.

目录:
1. 主内容: 两个主函数及完整应用代码
2. 预览:

shawl.qiu
2006-09-11

1. 主内容: 两个主函数及完整应用代码

linenum

<h1 style="text-align:center!important;color:red!important; ">ASP CDO.Message 发送邮件完整实例 By shawl.qiu</h1>
<h2 style="float:right!important;margin:0px;padding:0px; "><a href=" http://blog.csdn.net/btbtd">shawl.qiu</a> code</h2>
<%
dim mAction, mFrom, mTo, mCC, mBcc, mSubject, mBody
dim mSmtp, mPort, mTimeout, mSsl, mUser, mPwd
mAction="?id=cdo"
mFrom="shawlqiu@21cn.com"
mTo="shawl.qiu@gmail.com,btbtd@msn.com"
mCc="btbtd@yahoo.com.cn"
mBcc="shawl.qiu+2@gmail.com"
mSubject="mail subject"
mBody="test mail body"&chr(13)&"中文"&chr(13)&"<h2>html format</h2>"
mSmtp="smtp.21cn.com"
mPort=25
mTimeout=60
mUser="shawlqiu"
mPwd="不告诉你"
dim qId:qId=request.queryString("id")
call fCdoSendMail(qId,request.form)
if qId<>"cdo" then _
call fCdoForm(mAction,mFrom, mTo, mCc, mBcc, mSubject, mBody, mSmtp, mPort, mTimeout, mUser, mPwd)
function fCdoSendMail(rQs, rForm)
'''''''''''''''''''''''''''''''''''''''''''''''''''
' ASP CDO.Message 发送邮件完整实例 By shawl.qiu
' CDO 发送邮件操作函数 fCdoSendMail
'''''''''''''''''''''''
' 参数说明:
''''''''''''''
' rQs = request.queryString(id)
' rForm = request.Form 集合
'''''''''''''''''''''''
' sample call:
''''''''''''''
' call fCdoSendMail(qId,request.form)
'''''''''''''''''''''''''''''''''''''''''''''''''''
if rQs="" or rQs<>"cdo" then exit function
if isObject(rForm)=false then exit function
dim temp
for each temp in rForm
select case temp
case "mTextBody"
case "mHtmlBody"
case "mFile"
case "mSsl"
case else
execute "dim "&temp&":"&temp&"=request.form(temp)"
end select
next
dim mSsl, mTextBody, mHtmlBody
mSsl=request.form("mSsl")
mTextBody=request.form("mTextBody")
mHtmlBody=request.form("mHtmlBody")
mBody="<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"&chr(13)&mBody
if mSsl="" then mSsl=false else mSsl=true
dim cdo
set cdo=createObject("cdo.message")
'configuration information for the remote SMTP Server
with cdo.configuration.fields
.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing") = mSend
.item(" http://schemas.microsoft.com/cdo/configuration/smtpserver")= mSmtp 'SMTP 服务器地址
.item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport")= mPort '端口 25
.item(" http://schemas.microsoft.com/cdo/configuration/sendusername")= mUser '用户名
.item(" http://schemas.microsoft.com/cdo/configuration/sendpassword")= mPwd '用户密码
.item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= mAuth 'NONE, Basic (Base64 encoded), NTLM
.item(" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")= mTimeout '超时设置, 以秒为单位
.Item(" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = mSsl '是否使用套接字 true/false
.Update
end with
with cdo
.from=mFrom
.to=mTo
if mCc<>"" then .cc=mCc
if mBcc<>"" then .bcc=mBcc
.subject=mSubject
if mTextBody<>"" then .textbody=mBody
if mHtmlBody<>"" then .htmlbody=mBody
'if len(mFile)>0 then .Addattachment mFile
'// CDO 发附件规则: 当前目录的文件可用变量, 不是当前的目录不能用变量
On Error Resume Next
.send
if err.number<>0 then response.write "邮件发送失败, 错误编号: "&_
err.number&"<br/>错误描述: "&err.description else response.write "邮件已发送"
end with 'shawl.qiu code'
set cdo=nothing
end function
function fCdoForm(mAction,mFrom, mTo, mCc, mBcc, mSubject, mBody, mSmtp, mPort, mTimeout, mUser, mPwd)
if mAction="" then exit function
'''''''''''''''''''''''''''''''''''''''''''''''''''
' ASP CDO.Message 发送邮件完整实例 By shawl.qiu
' CDO 发送邮件表单函数 fCdoForm
'''''''''''''''''''''''
' 参数说明: (除 mAction 外, 其余参数值不是必须)
''''''''''''''
' mAction= 表单提交 URL, 如: ?id=cdo
' mFrom= 发件人 Email
' mTo= 收件人 Email
' mCc= 收件人 Email
' mBcc= 收件人 Email
' mSubject= 邮件标题
' mBody= 邮件内容
' mSmtp= SMTP 服务器地址, 如: smtp.21cn.com
' mPort= SMTP 端口, 如: 25
' mTimeout= 超时限制, 如: 60(单位为秒)
' mUser= 用户名
' mPwd= 密码
'''''''''''''''''''''''
' sample call:
''''''''''''''
' dim mAction, mFrom, mTo, mCC, mBcc, mSubject, mBody
' dim mSmtp, mPort, mTimeout, mSsl, mUser, mPwd
' mAction="?id=cdo"
' mFrom="shawlqiu@21cn.com"
' mTo="shawl.qiu@gmail.com,btbtd@msn.com"
' mCc="btbtd@yahoo.com.cn"
' mBcc="shawl.qiu+2@gmail.com"
' mSubject="mail subject"
' mBody="test mail body"&chr(13)&"中文"&chr(13)&"<h2>html format</h2>"
' mSmtp="smtp.21cn.com"
' mPort=25
' mTimeout=60
' mUser="shawlqiu"
' mPwd="yourPassword"
' call fCdoForm(mAction,mFrom, mTo, mCc, mBcc, mSubject, mBody, mSmtp, mPort, mTimeout, mUser, mPwd)
'''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<form action="<% response.write mAction %>" method="post" name="mCdo">
<p>From:
<input name="mFrom" type="text" value="<% response.write mFrom %>" size="50%"/><br />
To: <input name="mTo" type="text" value="<% response.write mTo %>" size="50%" />
<br />
Cc: <input name="mCc" type="text" value="<% response.write mCc %>" size="50%" /><br />
Bcc: <input name="mBcc" type="text" id="mBcc" value="<% response.write mBcc %>" size="50%" /> <br />
Subject: <input name="mSubject" type="text" value="<% response.write mSubject %>" size="50%" /> <br />
Email Format:
text: <input type="checkbox" name="mTextBody" value="yes" checked="checked" />
html: <input type="checkbox" name="mHtmlBody" value="yes" /><br />
Text:<br /> <textarea name="mBody" cols="77" rows="10"><% response.write mBody %></textarea> <br />
Remote SMTP: <input name="mSmtp" type="text" value="<% response.write mSmtp %>" />
Port: <input name="mPort" type="text" value="<% response.write mPort %>" size="5" />
Timeout: <input name="mTimeout" type="text" value="<% response.write mTimeout %>" size="5" />
Sec SSL: <input type="checkbox" name="mSsl" value="ture" /> <br />
Username: <input name="mUser" type="text" value="<% response.write mUser %>" /> <br />
Password: <input name="mPwd" type="password" value="<% response.write mPwd %>" /> <br />
SMTP验证选项:
<select name="mAuth">
<option value="0">匿名验证</option>
<option value="1" selected="selected">普通验证</option>
<option value="2">NTLM 验证</option>
</select>
邮件发送选项:
<select name="mSend">
<option value="1">Send Using Pickup</option>
<option value="2" selected="selected">Send Using Port</option>
</select>
<br />
<input type="submit" value="Submit" /> <input type="reset" value="Reset" />
</form>
<% end function %><br />
<a href="?">back</a>