一个人怎么打擎天柱:谁会用ASP编程向邮箱里发邮件

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/01 23:08:19
<html>
<body>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#6699FF">
<form method="post">
<tr bgcolor="#E7E7CB">
<td width="20%" height="26">发件人:</td>
<td width="80%"><input name="from" type="text" size="20"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="25">收件人:</td>
<td><input name="to" type="text" size="20"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="23">密送地址:</td>
<td><input name="bbc" type="text" size="20"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="24">邮件标题:</td>
<td><input name="subject" type="text" size="50"></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="27">邮件内容:</td>
<td><textarea name="body" cols="60" rows="10"></textarea></td>
</tr>
<tr bgcolor="#E7E7CB">
<td height="28"> </td>
<td>

<input type="hidden" value="1" name="send">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
<%
if Cint(request("send"))=1 then
on error resume next
dim mymail
set mymail=Server.CreateObject("CDONTS.NewMail")
mymail.mailformat=0
mymail.bodyformat=0
mymail.from =request("from")
mymail.to =request("to")
mymail.BCC =request("bbc")
mymail.subject =request("subject")
mymail.body =request("body")
mymail.send
if err.number<>0 then
response.write err.description
response.end
end if
set mymail=Nothing
response.write "邮件已成功发送到"+request("to")
response.end
end if
%>
</tr>
</form>
</table>
</body>
</html>

这是我利用CDONTS组件所写的一个ASP小程序,但就是发不到我自己所建的邮件服务器里,我的邮件服务器是用webeasymail建的。新建了用户leo和zhy两者都能互发收邮件, 现在我所要做的是用ASP编程序, 在一个web页向此邮箱发邮件,但是 不知道自己错在哪儿了,请指教 。。

试试JMAIL程序.
现在服务器提供较多的是JMAIL组件.
可以去搜索一下.

http://zhidao.baidu.com/question/1912533.html