爲什麼郵件代碼不工作

-3

Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

Set Flds = objCDOSYSCon.Fields 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "any mail" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "any password" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "any server" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 

Flds.update 

Set objCDOSYSMail.Configuration = objCDOSYSCon 

objCDOSYSMail.From = "any mail" 
objCDOSYSMail.To = "any mailid" 
'' // objCDOSYSMail.CC = "any mailid" 
objCDOSYSMail.Bcc = "any mailid"  
objCDOSYSMail.Subject = "feed back"      
objCDOSYSMail.HTMLBody = strBody 

objCDOSYSMail.Send 

Set objCDOSYSMail = Nothing 

'' // Response.redirect("thank.html") 
response.Write("saved")

來源

2009-08-20 Tarun

這裏有什麼問題。按照簡單的規則！粘貼最小的代碼，並試圖找出代碼段的哪一行導致問題 – GustyWind 2009-08-20 05:12:35

嗯，我已經檢查過，但我沒有得到什麼問題 – Tarun 2009-08-20 05:18:03

錯誤消息說什麼？ – krishna 2009-08-20 05:22:41

變化

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

到

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

1 - 通過拾取目錄 2 seinding - 通過SMTP

尋找正在發送在你的其他參數你顯然是試圖通過p發送ORT 25

來源

2009-08-20 05:48:54 DmitryK

試試這個

 

    Dim objCDOSYSMail 
    Dim objCDOSYSCon 
    Dim Flds 

    Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
    Set Flds = objCDOSYSCon.Fields 

    With Flds 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "any server" 

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "any mail" 

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "any password" 

    .Update 

    End With 

    Set objCDOSYSMail.Configuration = objCDOSYSCon 

    'Sending The Email 
    With objCDOSYSMail 
    .From = "any mail" 
     .To = "any mailid" 
     .Subject = "feed back"            
     .HTMLBody = "my Message" 
     .Send 

    End With 

    'Disposing Objects 

    Set objCDOSYSMail = Nothing 
    Set objCDOSYSCon = Nothing 
    Set Flds = Nothing

如果你沒有得到任何錯誤，請檢查錯誤日誌服務器上。確保服務器可以將電子郵件中繼到電子郵件服務器（smtpserver）。這可以通過執行從網絡服務器到電子郵件服務器的快速「TELNET會話」來完成。某些SMTP服務器也在發件人域上執行反向DNS。這聽起來很愚蠢，但也請檢查用戶名和密碼。

注意：您的問題被拒絕了，因爲您沒有明確說明您的意圖。下一次是「特定」而不是「太平洋」（如大海）。大多數在這裏閒逛的人不是專業人士就是想要成爲一個人，所以至少要設法成爲一個人。

來源

2009-08-20 05:56:02

也不要問和隱藏。看起來像一個模式看着你的問題歷史。 – krishna 2009-08-20 06:52:12

您可能想使用open source library ajaxed。它檢測到組件，您不必擔心這一點。

忘記選擇正確的電子郵件組件（安裝& 配置它）的問題。 ajaxed爲你做了。它會檢查服務器上安裝的組件，並使用「最好」的組件。請參閱的API查看哪些組件目前支持。在撰寫此頁時支持Jmail，ASPEmail和CDOSYS爲。

這裏是關於如何send an email的教程。

來源

2009-08-20 11:29:12 Michal

爲什麼郵件代碼不工作

回答

相關問題