win主机ASP在线发邮件，要怎么搞啊

redfox1207 · 发表于 2011-4-28 12:24:06

win主机ASP在线发邮件，要怎么搞啊。有没有懂的人发个程序给俺啊。

redfox1207 · 发表于 2011-4-28 12:41:33

<%
'***************请先设置以下内容***************
Dim Dizhi,User,Pass,Fsong
Dizhi="smtp.163.com" '外部邮件地址如:smtp.163.com
User="XXXXXXXXXXX" '邮箱用户名
Pass="XXXXXXXXXXXXX" '邮箱密码
Fdizhi="XXXXXXXXXXXXX" '发送人完整邮件地址
'***************请先设置以上内容***************
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>在线邮件投递</title>
</head>

<body>
<div align="center"><h1>在线邮件投递</h1></div>
<%
If Request("Action")="Tijiao" Then

dim Info
Info=""
Info = Info &"标题："& Trim(Request.Form("Title")) &"<br>"
Info = Info &"留言："& Trim(Request.Form("Info")) &"<br>"

'发送代码
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) = ""& dizhi &"" '外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = ""& user &"" '邮箱用户名
.Item(cdoSendPassword) = ""& pass &"" '邮箱密码
.Update
End With

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

With objMessage
.To = Trim(Request.Form("sdizhi")) '接收者邮件完整地址
.From = ""& fdizhi &"" '发送人完整邮件地址
.Subject = Trim(Request.Form("Title")) '邮件标题
'.TextBody = "" '邮件内容
.htmlbody = ""& Info &"" '邮件内容
'.AddAttachment "C:\Scripts\Output.txt" '邮件附件
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>
<div align="center" style="padding-top:80px;"><h3><font color="#FF0000">邮件发送成功<br>已经送达<br>『<% =trim(Request.Form("sdizhi")) %>』</font><br><a onClick="history.go(-1)"><font color="#009900">返回</font></a></h3></div>
<% Else %>
<table width="768" border="1" cellpadding="5" style="border-collapse: collapse" bordercolor="#66CCFF" align="center">
<form action="?Action=Tijiao" method="post">
<tr>
<td align="center">接收地址：</td>
<td><input name="Sdizhi" type="text" value="site@jx-nc.com.cn" size="50"></td>
</tr>
<tr>
<td align="center">标题：</td>
<td><input name="Title" type="text" size="50"></td>
</tr>
<tr>
<td align="center">内容：</td>
<td ><textarea name="Info" cols="90" rows="23"></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="Submit" value="　发送邮件　"></td>
</tr>
</form>
</table>
<% End If %>

redfox1207 · 发表于 2011-4-28 12:42:11

上面代码报500错误，，，，，，，，请看一下什么问题

lwbo1987 · 发表于 2011-4-28 12:43:38

邮件地址是否写正确

redfox1207 · 发表于 2011-4-28 13:09:18

'***************请先设置以下内容***************
Dim Dizhi,User,Pass,Fsong
Dizhi="smtp.163.com"                               '外部邮件地址如:smtp.163.com
User="XXXXXXXXXXX"                                     '邮箱用户名
Pass="XXXXXXXXXXXXX"                                              '邮箱密码
Fdizhi="XXXXXXXXXXXXX"                      '发送人完整邮件地址

我填写了我一个163的邮箱。是不是这里不对啊。

lwbo1987 · 发表于 2011-4-28 13:13:52

没有设置过，不太清楚

redfox1207 · 发表于 2011-4-28 13:25:39

有没有用过的人啊。。。。。。。。。。。发一个有用的程序出来啊。。。。。。。。。。。。。。。。。。。。

redfox1207 · 发表于 2011-4-29 10:04:13

居然没有人用这个东东啊。。。。。。。。。。。。。

[提问] win主机ASP在线发邮件，要怎么搞啊

回复 5# 的帖子

浏览过的版块

GoDaddy讨论