Question

解决：两名学生给了我们错误的电子邮件，由于某些原因，如果遇到错误的电子邮件，脚本拒绝处理更多。我仍然想知道为什么会这样！

我正在尝试从数据库中读取一堆记录，并且对于每条记录，我根据记录的某些字段创建一些文本，然后将它们作为电子邮件发送到记录中提供的电子邮件地址。问题是电子邮件只发送大约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替换为将每个学生的电子邮件发送到我自己的电子邮件时。它工作正常，并将所有电子邮件发送给我。

Answer 1

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

从经典ASP发送电子邮件

1 个答案: