我有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