Email 发送100+；来自经典ASP的邮件_Email_Asp Classic_Sendmail

Email 发送100+；来自经典ASP的邮件

email asp-classic

Email 发送100+；来自经典ASP的邮件,email,asp-classic,sendmail,Email,Asp Classic,Sendmail,我有appx。要发送200-300封邮件，并使用Set myMail=CreateObject（“CDO.Message”）在while循环中发送邮件但由于邮件数量大，发送50-60封邮件后会出现内部服务器错误，其他邮件发送不成功我要做什么才能让它在经典ASP中发送100多封电子邮件 Set myMail=CreateObject("CDO.Message") myMail.Configuration.Fields.Item ("http://schema

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

我遇到了同样的问题。查看此页面：

<%
ID_template= request.querystring("ID_template")
s_resume=request.querystring("resume")
s_file = "admin_email_send_go.asp?ID_template=" & ID_template
if (s_resume="yes") then s_file = "admin_email_send_resume.asp?ID_template=" & ID_template
%>
<html>
<head>
<meta http-equiv="Refresh" content="<%=int(session("n_records")/50)%>; url=<%=s_file%>">
    <script type="text/javascript">
    <!--
    function delayer(){
    document.location = "<%=s_file%>"
    }
    //-->
    </script>
</head>
<body onLoad="setTimeout('delayer()',<%=int(session("n_records")*20)%>)" bgcolor='#FFFFFF'>
<br>
<table width='100%' height='100%'>
<tr>
<td valign=middle align=center>
    <table border=1>
    <tr>
    <td>
        Total list size: <%=session("n_records")%><br>
        Sent so far: <%=session("n_records_sent")%>
    </td>
    </tr>
    </table><br>
    <br>
    Sending next group of <%=application("email_group_size")%> in 2 seconds.<br>
    Please wait...<br>
    <br>
    If you want to quit or pause the process at any time, click <a href='admin_email_send.asp?ID_template=<%=ID_template%>'>here</a>.<br>
    <br>
</td>
</tr>
</table>
</body>
</html>




总列表大小：

迄今为止已发送：




在2秒内发送下一组数据。

请稍候…



如果要随时退出或暂停此过程，请单击。

什么错误，为什么？服务器拒绝发件人是因为“垃圾邮件”原因吗？对于这种情况，您最好使用MailChimp之类的群发电子邮件服务，因为您不会遇到垃圾邮件过滤问题。内部服务器错误。。如果循环中有60多封邮件。您需要通过设置属性

Server.ScriptTimeout

来增加脚本执行时间。另外，将

myMail打包。在on error
statement中发送，并手动检查错误。好的，让我试试