Asp 发Email (可以加发附件)

最新推荐文章于 2021-07-31 23:14:06 发布

lzid2008

最新推荐文章于 2021-07-31 23:14:06 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

文章标签： email asp 邮件服务器 html 测试 action

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.youkuaiyun.com/lzid2008/article/details/1499839

本文介绍了一种使用ASP和CDO组件通过外部SMTP服务器发送电子邮件的方法。该教程详细展示了如何配置CDO来指定SMTP服务器、端口及认证信息，并提供了完整的代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<!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>

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。