2011-10-21 56 views
0

已解決:兩位學生給了我們錯誤的電子郵件,並且由於某種原因,如果腳本遇到錯誤的電子郵件,該腳本拒絕處理更多郵件。我仍然想知道爲什麼這樣!從傳統ASP發送電子郵件

我想從數據庫中讀取一堆記錄,並且爲每個記錄創建一些基於記錄的字段的文本,然後將它們作爲電子郵件發送到記錄中提供的電子郵件地址。 問題是電子郵件被髮送只有約5-10條記錄(它有所不同,一旦它發送5封電子郵件,與cc和一切,第二天它發送7)。 在此之後談到了著名的錯誤:

error '8004020f'
/sendEmail.asp, line 139

我已經研究各地的互聯網,我看到很多有問題與此錯誤,但不是說我有那種,在這幾電子郵件發送,然後停止。 此外,所有電子郵件都被髮送到同一個域名,這是學生的官方學校電子郵件。

任何想法?我可能想要問網站託管人改變的任何設置?

這是代碼。



    Dim objMail 
    Set objMail = CreateObject("CDO.Message") 
    objMail.From= "someEmail" 
    objMail.To=rstemp("Email") 
    objMail.Cc = "someEmail" 

    objMail.Subject = subjecttext 
    objMail.HTMLBody=tempData 

    objMail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2 
    'Name or IP of remote SMTP server 

    objMail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.*" 
    'Server port 

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

    objMail.Configuration.Fields.Update 

    objMail.Send 

    set objMail=nothing 
    tempData = nothing 

編輯:在更多的調試,事實證明,當我從它發送到每個學生的郵件給我自己的電子郵件取代objMail.To。它工作正常,並將所有電子郵件發送給我。

+1

您的ISP可能會限制您的電子郵件的發送速率的機會很大。與他們一起檢查。 – Oded

+0

什麼是139行,什麼是err.description? –

+0

line 139 is objMail.Send – Sushant

回答

2

請首先檢查所有電子郵件是否有效,並且沒有測試電子郵件。並且您可以使用同一電子郵件地址發送所有電子郵件來進行測試。的時間,並可以跟蹤這個電子郵件地址問題或其他問題。

+0

感謝Jinesh,但所有的電子郵件都是有效的。 – Sushant