从经典 ASP 发送电子邮件

Question

已解决：两名学生给了我们错误的电子邮件，并且出于某种原因，如果脚本遇到错误的电子邮件，则拒绝处理更多内容。我还是想知道为什么会这样！

我正在尝试从数据库中读取一堆记录，对于每条记录，我都会根据记录的某些字段创建一些文本，然后将它们作为电子邮件发送到记录中提供的电子邮件地址。 问题是电子邮件只发送了大约 5-10 条记录（情况有所不同，一旦发送了 5 封电子邮件，并抄送了所有内容，第二天就发送了 7 封）。 之后它出现了著名的错误：

错误“8004020f”<​​br> /sendEmail.asp，第 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 从发送到每个学生的电子邮件替换为我自己的电子邮件时。它工作正常并将所有电子邮件发送给我。

Answer 1

请首先检查所有电子邮件是否有效，并且没有测试电子邮件。您可以通过在同一电子邮件地址上发送所有电子邮件来测试它，无需这样做。时间并可以跟踪该电子邮件地址问题或其他问题。