2011-10-21 27 views
0

から電子メールを送信しました。2人の学生が間違ったメールを送信しました。何らかの理由で、間違ったメールが発生した場合、スクリプトはさらに処理を拒否しました。私はまだそれがなぜそんなに不思議です!クラシックASP

データベースから多数のレコードを読み込もうとしていますが、レコードごとにレコードのいくつかのフィールドに基づいてテキストを作成し、レコードとして提供されている電子メールアドレスに送信しています。 問題は、電子メールが約5-10件のレコードしか送信されないことです(ccとすべての郵便で5件の電子メールが送信され、翌日に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 

EDIT:より多くのデバッグでは、それは私が自分のメールに、各生徒の電子メールに送信するからobjMail.Toを交換するときことが判明しました。それは正常に動作し、私にすべての電子メールを送信します。

+1

ISPが電子メールの送信レートを制限している可能性があります。彼らと確認してください。 – Oded

+0

139行とは何ですか?err.descriptionとは何ですか? –

+0

行139はobjMailです。Send – Sushant

答えて

2

最初にすべての電子メールが有効であることを確認し、テスト電子メールはありません。同じ電子メールアドレスにあるすべての電子メールをnoとして送信してテストすることができます。この電子メールアドレスの問題などの問題を追跡することができます。

+0

Thanks Jineshですが、すべての電子メールが有効です。 – Sushant