ASP发信的几种方法

踏浪行歌 · 发表于 2007-2-2 15:06:00

登录后查才能浏览下载更多咨询，有问题联系QQ：3283999

您需要登录才可以下载或查看，没有账号？入住遨海湾

×

使用CDO.Message发邮件

Windows 2003下不注册组件用ASP发邮件

JMail.Message

CDONTS.NewMail

在做购物车的过程中要用到这个发邮件的问题.
我们现在使用CDO.Message+SMTP来发信.

SMTP.可以去申请一个免费邮件.获取SMTP地址,和密码.

下面贴上代码.

已经经过测试了.

-------------------------------------------------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><head>
<meta http-equiv="Content-Type" content="text/html; charset=" />
<title>CDO.Message邮件系统测试</title>
<script language="JavaScript" type="text/javascript">




   var theForm = document.form1;
   var emailRE = /^([a-zA-Z0-9_.-])+@(([a-zA-Z0-9-])+.)+([a-zA-Z0-9]{2,4})+$/;
   var errMsg = "";
   var setfocus = "";

   if (theForm['m_neirong'].value == ""){
      errMsg = "请填写邮件内容";
      setfocus = "['m_neirong']";
   }
   if (theForm['m_zhuzi'].value == ""){
      errMsg = "请填写邮件的主题";
      setfocus = "['m_zhuzi']";
   }
   if (!emailRE.test(theForm['m_user'].value)){
      errMsg = "对不起．你未填写邮箱地址或邮箱地址不正确";
      setfocus = "['m_user']";
   }
   if (errMsg != ""){
      alert(errMsg);
      eval("theForm" + setfocus + ".focus()");
   }
   else theForm.submit();
}
function TJK_noWayBack(){ // www.yaosansi.com
history.go(1);
}
TJK_noWayBack();
//-->
</script>
<style type="text/css">

</style>
</head>

<div align="center">
<%If (CStr(Request("MM_insert")) = "form1") Then%>

<%
Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort=2
Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic=1
Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "SMTP服务器" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "用户名" '以上服务器的用户名
.Item(cdoSendPassword) = "密码" '密码
.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
.To = Trim(Request.Form("m_user")) '改成接收者的邮件地址
.From = "发件人的地址（要和上面的邮件系统相同）" '改成发送人的邮件地址
.Subject = Trim(Request.Form("m_zhuzi")) '标题
.TextBody = Trim(Request.Form("m_neirong")) '正文
'.AddAttachment "C:\Scripts\Output.txt"'邮件附件
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>

邮件发送成功．
已经送达
<%=trim(Request.Form("m_user"))%>　　<a href="mail.asp">返回继续发送</a>
<%else%>

</div>
<form action="<%=MM_editAction%>" method="post" name="form1" onSubmit="VF_form1();return false;">
<table width="713" border="0" align="center" cellpadding="0" cellspacing="0" class="td">
<tr>
<td height="30" align="center">收件人</td>
<td height="30"><input name="m_user" type="text" id="m_user" size="40" /></td>
</tr>
<tr>
<td width="90" height="30" align="center">邮件主题</td>
<td width="245" height="30"><input name="m_zhuzi" type="text" id="m_zhuzi" size="40" /></td>
</tr>
<tr>
<td height="30" align="center">邮件内容</td>
<td height="30"><textarea name="m_neirong" cols="70" rows="15" id="m_neirong"></textarea></td>
</tr>
<tr>
<td height="30" colspan="2" align="center"><input type="hidden" name="MM_insert" value="form1" />
<input type="submit" name="Submit" value="　发送邮件　" /></td>
</tr>
</table>
</form>
<%end if%>

踏浪行歌 · 发表于 2007-2-2 15:07:00

其实ASP可以做很多事，只是大家不知道怎么用而以。微软为asp提供了非常多的现成有用的组件，而这些组件却没有人知道，如用CDO.Message发送邮件。

什么是CDO.Message？在winnt和win2k下发送邮件要用CDONTS.NewMail，CDONTS.NewMail组件是需要注册的，很简单，只要在服务器上运行命令行regsvr32 Cdonts.dll，在弹出的对话框中确定即可，使用CDONTS.NewMail服务还需安装有iis自带的smtp。到了windows2003，系统就没有附带Cdonts.dll文件了，只剩下一个类似的文件cdosys.dll，当然这个文件在win2k也是有的（需要注册组件），不过2003下好的是什么呢？该组件无需手动注册，系统已经自动注册了。现在我们来看看如何使用该组件吧。

<%
Dim cm
Set cm=Server.CreateObject("CDO.Message")
\\\'创建对象
cm.From="from@test.com"
\\\'设置发信人的邮箱
cm.To="to@test.com"
\\\'设置收信人的邮箱
cm.Subject="我发现一个可以在线订阅RSS的网站，以后不用再安装什么软件了。"
\\\'设定邮件的主题
\\\'cm.TextBody=http://www.ceowen.com
\\\'上面是使用普通的文本格式发送邮件，只能是文字，不能支持html，所以这里不用

cm.HtmlBody="Online RSS Feeds Reader 是一个在线的RSS新闻阅读系统。"&_
"无需下载安装，只要注册了之后你就可以拥有和软件一样强大功能的RSS在线订阅聚合新闻的系统了。"&_
"不管你在任何地方，只要你能上网，你就能阅读你喜欢的订阅。"&_
"快去注册吧：<a href=http://www.ceowen.net/rss/>http://www.ceowen.net/rss/</a>"

\\\'上面就是你构建的html正文，这样发出的邮件就比只有文字的好看多了。不要说你不会html吧

\\\'cm.AddAttachment Server.MapPath("test.zip")
\\\'如果有需要发送附件的话就用上面的方法把文件附加进去。

cm.Send
\\\'最后当然是执行发送了
Set cm=Nothing
\\\'发送成功后即时释放对象

Response.Write("发送邮件成功。")
%>

踏浪行歌 · 发表于 2007-2-2 15:08:00

在Asp程序中用Jmail发邮件的比较多，主要是因为多数虚拟主机支持他，其它的支持的较少。下面是一个Jmail发邮件的例子代码：

<%
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
JMail.From = "test@ceowen.net" ' 发送者地址
JMail.FromName = "网站管理员" ' 发送者姓名
JMail.Subject = "邮件主题" ' 邮件主题
' 身份验证
JMail.MailServerUserName = "myusername" ' 身份验证的用户名
JMail.MailServerPassword = "mypassword" ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient("aaa@ceowen.com")
' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body><font color=red>邮件正文</font><br><font color=green>邮件正文</font><br><b>邮件正文</b></body></html>"
' 邮件主体（文本部分）
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。邮件正文,邮件正文,邮件正文"
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[

ort])】
JMail.Send("smtp.163.com")
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "发送发送失败！"
else
response.write "邮件发送成功！"
end if
%>

踏浪行歌 · 发表于 2007-2-2 15:10:00

在ASP中发送Email时往往需要一个COM组件支持，如果你没有第三方的Email组件，你可以使用IIS本身提供CDONTS EMail组件。这个组件使用时需要安装和启动SMTP服务。这个组件的名称为CDONTS.DLL,使用前需要使用RegSvr32注册这个组件。

　　CDONTS组件提供了一系列对象，包括AddressEntry、Attachment、Attachments、Folder、Message、Messages、NewMail、Recipient、Recipients、Session，我们经常使用的是NewMail对象。下面是NewMail对象提供的方法和属性：

名称	功能	格式
Attach	添加附件	Sub AttachFile(Source, [FileName], [EncodingMethod])
AttachURL	以格式添加附加和数据	Sub AttachURL(Source,ContentLocation, [ContentBase], [EncodingMethod])
BCC	以“，”分隔的接收者列表（暗送）	字符串类型属性
Body	TextHTML	字符串类型属性
bodyformat	邮件正文格式	0:HTMl1:Text
CC	以“，”分隔的接收者列表（抄送）	字符串类型属性
ContentBase	带有附件的邮件中正文采用的基地址	字符串类型属性
ContentLocation	带有附件的邮件中正文采用的	字符串类型属性
From	邮件发送方地址	字符串类型属性
Importance	邮件级别	0: 1 2:
Send	发送邮件	Sub Send([From], [To], [Subject], [Body], [Importance]) 各个参数可以参考上下文属性
SetLocaleIDs	设置新消息的代码页标识	Sub SetLocaleIDs(CodePageID As Long)
Subject	邮件主题	字符串类型属性
To	以“，”分隔的接收者地址列表	字符串类型属性
Value	任意的邮件头的值	字符串类型属性
Version	当前集合数据对象库（）的版本号	只读字符串类型属性

在使用有关对象的方法时，方括号参数可以省略。

下面是采用ASP使用的例子：

<%
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.Send "发送方邮件地址","接收方邮件地址","主题","邮件正文"

发送附件时可以这样：
Dim MailObject

Set MailObject = Server.CreateObject("CDONTS.NewMail")
att_fileName="附件文件名完整路径"
f_name="文件名"
MailObject.From="在这填写发件人地址"
MailObject.To="在这填写接收人地址"
MailObject.Subject="填写主题"
MailObject.Body="填写正文"
MailObject.AttachFile att_file,f_name
MailObject.Send

%>

注意：发送邮件时需要IUSR_<机器名>用户对c:\Inetpub\mailroot目录有读写权限。

ASP发信的几种方法

登录后查才能浏览下载更多咨询，有问题联系QQ：3283999

相关帖子

Windows 2003下不注册组件用ASP发邮件

JMail.Message 发送邮件

CDONTS.NewMail

账号		自动登录	找回密码
密码			入住遨海湾