分享

写回答

发帖

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

GoDaddy GoDaddy 1332 人阅读 | 7 人回复

发表于 2011-4-28 12:24:06 | 显示全部楼层 |阅读模式

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

回答|共 7 个

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 | 显示全部楼层

回复 5# 的帖子

没有设置过,不太清楚

redfox1207

发表于 2011-4-28 13:25:39 | 显示全部楼层

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

redfox1207

发表于 2011-4-29 10:04:13 | 显示全部楼层

居然没有人用这个东东啊。。。。。。。。。。。。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则