請問那位大大用過AspEmail代理SMTP服務的?

crazysean · 一級 註冊時間: 2004-07-24 文章: 25 來自: 中華民國

我改的程式碼是這樣:

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.mydomain.com" <-我的郵件伺服器,確定正常運作中"
Mail.From = Request("From")
Mail.FromName = Request("FromName")
Mail.AddAddress Request("To")
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
End If

依其AspEmail元件的說明
在安裝AspMail元件與程式碼,我並沒有寫錯
但總是出現軟體連線失敗

我比較懷疑的是,AspEmail這個ActiveX元件所提供的範例碼
並沒有提到授權的問題,假設上述的程式碼可用
那豈不是所有人都可以從外部連線送信?

那位大大有做過在ASP轉移SMTP到雷電MAILD的SMTP的?

可否請示一下程式碼?

拜託拜託,測了一整晚,真痛苦,請幫忙~感激不盡~

Arnor · 發表於: 星期一四月 25, 2005 2:11 pm 文章標題:

<%

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.Port = 25
Mail.From = "sales@mycompany.com"
Mail.FromName = "Sales Department"
Mail.AddAddress "arnor@raidenmaild.no-ip.com", "Arnor"

Mail.Subject = "Sales Receipt"
Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>Dear John:....</BODY></HTML>"
Mail.IsHTML = True

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Descriptione
else
Response.write "OK"
End If

%>

這樣就可以了呀.

我想你不行, 原因有可能是:
你不是在localhost , 且你也沒把你的 ip 加入ip allow 清單

不在本機寄的話, 至少也要把 ip 加進 ip allow 清單不然是不行寄的.
這樣一來也順便回答了你的疑惑才是.

"並沒有提到授權的問題,假設上述的程式碼可用
那豈不是所有人都可以從外部連線送信? "
_________________
*若是想問問題的話, 請務必不要塗改任何 IP, 網域資料, 您若不願貼上IP或網域, 請改以電子郵件來詢問. 謝謝您的配合.*
*若是回報疑似軟體的運行或邏輯或資料處理有誤的問題, 小弟很樂意去了解您的情況, 但請務必以最新版來做回報, 如果以郵件詢問, 請參考 http://www.raidenmaild.com/tw/feedback.html 的說明, 最好標題加個 RaidenMAILD 字樣, 才不致會遺漏了您的信唷. 謝謝您的配合^^*
*在版上發文請遵守網路禮儀, 並請持著虛心敘述問題請教他人, 凡發現違反的文, 均一律刪除為優先, 不另行通知喔.
*與使用者教學相長腦力激盪是我輩成就感的來源, 誠心希望您能不吝指教.
*雷電MAILD 知識庫文件 http://www.raidenmaild.com/tw/kb/

素還尊
Team John Long.
Email: arnor@raidenmaild.com
公司網站 http://www.raidenmaild.com/company/

crazysean · 發表於: 星期一四月 25, 2005 5:03 pm 文章標題:

crazysean · 發表於: 星期一四月 25, 2005 10:05 pm 文章標題: