私はappxを持っています。200 ~ 300 通のメールを送信し、Set myMail=CreateObject("CDO.Message") を使用して while ループでメッセージを送信します。
しかし、大量のメールが原因で、50 ~ 60 通のメールを送信すると内部サーバー エラーが発生し、他のメールが正常に送信されません。
従来の ASP で 100 件以上の電子メールを送信できるようにするにはどうすればよいですか?
Set myMail=CreateObject("CDO.Message")
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
myMail.Configuration.Fields.Update
while not rsprofilo.eof
myMail.From = ""
myMail.To = ""
myMail.Bcc = ""
myMail.Subject = ""
myMail.HTMLBody = ""
myMail.Send
rsprofilo.movenext
wend
set myMail = nothing