緊急求助郵件發送問題!

daixingyao 2005-06-24 02:17:21

我要實現的功能很簡單：

現在有一個信箱，比如daixingyao@163.com
現在有人要發郵件給這個信箱的話，只要填寫內容，發送，就可以發到該郵箱，不用設置什麼outlook(這是關鍵)

我在網上找了些資料，一步一步照著搞，但是為什麼就是收不到信呢？

現在最困惑的就是：郵件服務器地址，到底是我自己web服務器上smtp的地址，還是發送信件的郵箱的smtp地址啊？

下面是我的代碼，望各位高人指點

<%

if request("submit")<>"" then

Title=request("Title")
Sender=request("Sender")
FromWhere=request("FromWhere")
ToWhere=request("ToWhere")
UserName=request("UserName")
Password=request("Password")
Content=request("Content")

'==================================================================
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = FromWhere '信件?送者信箱
Mymail.To = ToWhere '信件接收者信箱
'Mymail.CC = *** '抄送
'Mymail.BCC = *** ’密件?送
Mymail.Subject = Title '信件主?
Mymail.Body = Content '信件正文
'?置优先?，0-不重要，1-一般，2-重要。
Mymail.Importance = 2
Mymail.Send
Set Mymail = Nothing
'response.write "hello"
'response.End()
'===================================================================

'===================================================================
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '?建一?JMAIL?象
jmail.silent = true 'JMAIL不??出例外??，返回的值?FALSE跟TRUE
jmail.logging = true '?用使用日志
jmail.Charset = "GB2312" '?件文字的代???体中文
jmail.ContentType = "text/html" '?件的格式?HTML的
jmail.ServerAddress = "smtp.163.com" '?送?件的服?器
jmail.AddRecipient ToWhere '?件的收件人
jmail.SenderName = Sender '?件?送者的姓名
jmail.Sender = FromWhere '?件?送者的?件地址
jmail.Priority = 1 '?件的?急程序，1 ?最快，5 ?最慢， 3 ?默?值
jmail.Subject = Title '?件的??
jmail.Body = Content '?件的?容
jmail.AddRecipientBCC Email '密件收件人的地址
jmail.AddRecipientCC Email '?件抄送者的地址
jmail.Execute() '?行?件?送
jmail.Close '???件?象

set jmail=nothing
'====================================================================

'====================================================================
On Error Resume Next
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312"
JMail.MailServerUserName = UserName
JMail.MailServerPassword = Password
JMail.ContentType = "text/html"
JMail.Priority = 2
JMail.From = FromWhere
JMail.FromName = Sender
JMail.AddRecipient ToWhere
JMail.Subject = Title
JMail.Body = Content
JMail.Send ("211.95.210.244")
Set JMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
response.write SendMail
response.End()
'===================================================================

response.Redirect("sendemail.asp")

end if

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>Untitled Document</title>
</head>

<body>
<table width="100%" border="0" cellspacing="3" cellpadding="3" style="border:#666666 1px solid;">
<form name="form1" method="post" action="sendemail.asp">
<tr bgcolor="#eeeeee">
<td height="25" align="right"><strong>Email Title</strong></td>
<td><input name="Title" type="text" id="Title"></td>
</tr>
<tr bgcolor="#eeeeee">
<td height="25" align="right"><strong>Email Sender</strong></td>
<td><input name="Sender" type="text" id="Sender"></td>
</tr>
<tr bgcolor="#eeeeee">
<td height="25" align="right"><strong>Email From</strong></td>
<td><input name="FromWhere" type="text" id="FromWhere"></td>
</tr>
<tr bgcolor="#eeeeee">
<td height="25" align="right"><strong>Email To </strong></td>
<td><input type="text" disabled><input name="ToWhere" type="hidden" id="ToWhere" value="daixingyao@163.com"></td>
</tr>
<tr bgcolor="#eeeeee">
<td height="25" align="right"><strong>User Name </strong></td>
<td><input name="UserName" type="text" id="UserName"></td>
</tr>
<tr bgcolor="#eeeeee">
<td height="25" align="right"><strong>User Password</strong></td>
<td><input name="Password" type="text" id="Password"></td>
</tr>
<tr bgcolor="#eeeeee">
<td height="25" align="right"><strong>Email Content </strong></td>
<td><textarea name="Content" cols="60" rows="8" id="Content"></textarea></td>
</tr>
<tr align="center" bgcolor="#eeeeee">
<td height="25" colspan="2"><input type="submit" name="Submit" value="Send Email">
<input type="reset" name="Reset" value="Reset"></td>
</tr>
</form>
</table>
</body>
</html>

...全文

107 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

daixingyao 2005-06-24

打赏
举报

發郵件似乎是可以發出去了

但是，要登錄發信人郵箱的郵件服務器

但是現在架設有很多人要發信給我，他們可能是sohu/163/sina/hotmail等，他們發郵件的信箱都不同，那有怎麼設定smtp服務器地址啊

這個問題真是折騰我啊，但是客戶就是這麼要

他們沒有必要搞自己的郵件系統，但是我說不如搞個留言板之類的，他們也不願意

真是郁悶了

daixingyao 2005-06-24

打赏
举报

那就奇怪了

但是我為什麼郵件會發送不到目標郵箱呢？？

希望有大人能幫我測試下我的代碼吧

life360 2005-06-24

打赏
举报

Set jmail = CreateObject("JMail.Message")
sendto="要发送的邮件"
jmail.Logging = True
jmail.silent = True
jmail.Charset = "gb2312"
jmail.AddRecipient sendto
jmail.From = "发送人的邮箱"
jmail.FromName = "名称"
jmail.Subject = "标题"
jmail.HTMLBody = "内容"
jmail.MailServerUserName = "发送人的邮箱"
jmail.MailServerPassWord = "发送人的邮箱密码"
MailSMTP = "smtp.21cn.com(发送人的邮箱服务器)"

If jmail.Send(MailSMTP) Then
response.write "发送成功"
End if

life360 2005-06-24