[提问]
GD windows 主机 邮件发送如何操作
|
|
|
大家好。GD windows 主机 邮件发送功能,要在主机上如何设置?发送邮件的代码如何编写? 有谁操作成功的,教一下具体的步骤。好吗? 我看了http://bbs.idcspy.com/thread-25356-1-1.html 这个贴,里面的几个代码拿过来用,都不行。我是用ASP做的程序。本来用Jmail 本地都可以,不过GD主机没安装这个组件,用那些代码调试了一个下午,都不行,还请高人指点。非常感谢。 |
|
|
|
|
|
|
|
|
|
|
add.c
发表于 2009-12-16 17:36:05
|
显示全部楼层
你选择的是iis6还是iis7
iis6下这个代码可以用
<%
Dim MyBody
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "sender@coolexample.com"
MyCDONTSMail.To= "recipient@coolexample.com"
MyCDONTSMail.Subject="Subject"
MyBody = "Body"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%> |
|
|
|
|
|
|
|
|
|
|
zhanglhai
发表于 2009-12-16 17:52:04
|
显示全部楼层
|
感谢你的回答。我用的是IIS6.0的,但是我的发邮件的邮箱和接收邮件的邮箱都不是GD里面的。那样可以吗啊? |
|
|
|
|
|
|
|
|
|
|
add.c
发表于 2009-12-16 18:00:07
|
显示全部楼层
貌似可以随便设置
不过我提醒不要发垃圾邮件,否则后果很严重 |
|
|
|
|
|
|
|
|
|
|
zhanglhai
发表于 2009-12-16 18:00:27
|
显示全部楼层
您好,是不是哪里还需要设置? 我按你弄的做了一个测试,显示发送成功,但是没接收到信息。
<%
Dim ForUser, FromUser, ForUserEmail, FromUserEmail, SmtpServer
Dim emailTit, emailTxt, FromUserID, FromUserIDPW
emailTit = Request.Form("emailTit")
emailTxt = Request.Form("emailTxt")
if Trim(Request.Form("action")) = "确定发送" then
SmtpServer = Request.Form("SmtpServer")
FromUserEmail = Request.Form("FromUserEmail")
FromUser = Request.Form("FromUser")
ForUserEmail = Request.Form("ForUserEmail")
FromUserID = Request.Form("FromUserID")
FromUserIDPW = Request.Form("FromUserIDPW")
Dim MyBody
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= FromUserEmail
MyCDONTSMail.To= ForUserEmail
MyCDONTSMail.Subject=emailTit
MyBody = emailTxt
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
if Err <> 0 then
response.write "<font color=ff0000>"&Err.Description&"</font>"
else
Response.Write "success!"
response.end
end if
set MyCDONTSMail=nothing
end if %>
<style type="text/CSS">
<!--
td {
font-size: 12px;
}
-->
</style>
<body leftmargin="0" topmargin="2" bgcolor="#0066CC">
<form action="" method="post" name="input" target="_self">
<table width="436" border="0" align="center" bgcolor="#0066CC" cellpadding="3" cellspacing="1">
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="28">收件人名字:</td>
<td width="267" height="28" class="text1"> <input name="ForUser" type="text" value="收件人" size="20">
</td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="28">收件人地址:</td>
<td width="267" height="28"> <input name="ForUserEmail" type="text" size="20" maxlength="50">
</td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="28">发件人姓名:</td>
<td width="267" height="28"> <input name="FromUser" type="text" value="今晚在线" size="20">
</td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" height="13" align="right">发件人地址:</td>
<td width="267" height="13"> <input name="FromUserEmail" type="text" value="" size="20" maxlength="50">
</td>
</tr>
<tr bgcolor="#E1F4FF">
<td height="13" align="right">服务器是否需要身份验证:</td>
<td width="267" height="13">
<input type="radio" name="smtpPW" value="1">需要
<input name="smtpPW" type="radio" value="0" checked>不需要</td>
</tr>
<tr bgcolor="#E1F4FF">
<td width="154" height="28" align="right">发件信箱登陆名:</td>
<td height="28">
<input name="FromUserID" type="text" id="FromUserID" value="" size="20" maxlength="50"></td>
</tr>
<tr bgcolor="#E1F4FF">
<td width="154" height="27" align="right">发件人登陆密码:</td>
<td height="27">
<input name="FromUserIDPW" type="text" id="FromUserIDPW" value="" size="20" maxlength="50"></td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" height="26" align="right">邮件服务器:</td>
<td height="26"> <input name="smtpServer" type="text" class="biankuang" id="smtpServer" value="smtp.163.com" size="30" maxlength="50"></td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="28">邮件标题:</td>
<td width="267" height="28"> <input name="EmailTit" type="text" value="邮件测试…………" size="30" maxlength="50">
</td>
</tr>
<tr bgcolor="#CADBF7">
<td width="154" align="right" height="20" valign="top">邮件内容:</td>
<td width="267"> <textarea name="EmailTxt" cols="35" rows="4" id="EmailTxt">
测试,测试。。。。。。
</textarea> </td>
</tr>
<tr align="center" bgcolor="#CADBF7">
<td colspan="2" height="33"> <input type="submit" name="action" value="确定发送">
</td>
</tr>
<tr align="center" bgcolor="#CADBF7">
<td colspan="2" height="33"> </td>
</tr>
</table>
</form> |
|
|
|
|
|
|
|
|
|
|
add.c
发表于 2009-12-16 18:01:50
|
显示全部楼层
|
|
|
|
|
|
|
|