已解決:兩位學生給了我們錯誤的電子郵件,並且由於某種原因,如果腳本遇到錯誤的電子郵件,該腳本拒絕處理更多郵件。我仍然想知道爲什麼這樣!從傳統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。它工作正常,並將所有電子郵件發送給我。
您的ISP可能會限制您的電子郵件的發送速率的機會很大。與他們一起檢查。 – Oded
什麼是139行,什麼是err.description? –
line 139 is objMail.Send – Sushant