Asp 发Email (可以加发附件)
来源：互联网 发布：sql基础教程第2版 pdf 编辑：程序博客网 时间：2024/04/30 02:18
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
'*********************************
'* WIN2K下的CDO或CDONTS被默认配置成只能通过本地的Microsoft SMTP服务来发送邮件，
'* 如果要用外部的邮件服务器，一般要安装第三方组件。以下代码教你如何利用CDO通过
'* 外部邮件服务器发送邮件。(译者win2000下测试通过。)
'*********************************
'* 改一下加注释的就可以了。 在winXp下测试也正常
'* Asp 发Email
'*********************************
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
Set objConfig = Server.CreateObject("CDO.Configuration")
Dim Fields ' As ADODB.Fields
Set Fields = objConfig.Fields
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.thaifoodstation.com" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "orders@thaifoodstation.com" '以上服务器的用户名
.Item(cdoSendPassword) = "NOODLE" '密码
.Update
End With
Dim objMessage ' As CDO.Message
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "dev2@ssbg22.com.cn" '改成接收者的邮件地址 Request("txtEmail")
.From = "senderEmail@hotmail.com" '改成发送人的邮件地址
.Subject = "标题名称 from asp22@email.com" '标题Request("txtSubject")
.TextBody = "正文内容" '正文Request("txtMessage")
.AddAttachment Server.MapPath("1.txt") '邮件附件 'C:ScriptsOutput.txt 注意要绝对路径
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>
<body>
<form name="form1" method="post" action="">
<table border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><div align="center">Send Email</div></td>
</tr>
<tr>
<td>Your Name: </td>
<td><input name="txtName" type="text" id="txtName"></td>
</tr>
<tr>
<td>Your Email:</td>
<td><input name="txtEmail" type="text" id="txtEmail"></td>
</tr>
<tr>
<td>Message:</td>
<td><input name="txtMessage" type="text" id="txtMessage"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
</body>
</html>
