检查您的本地机器能否到达 SMTP 服务器。 它可能会被一些防火墙或路由器封住 。 此网站可以对您进行一次简单的检查 : < a href=" http://www. canyouneseeme. org/" rel=" nofollow > http://www. canyouseememe.org/

当然,您也可以在代码中检查,也可以通过Telnet:http://www.sproperts.de/smtp-check-port-25-telnet-command.htm

Here is the contents of an include file I created for sending emails: [note at the top it includes another include that has a fn_dirty() for the purpose of adding things like quotes back in.] ask me if you want that function.

<!-- #INCLUDE FILE = "i_fn_dirty.asp" -->
<%
function email(s_name_from,s_address_from,s_reply_to,s_subject,s_recipients_list,s_msg,s_type_email,s_msg_error_add,s_RemoteHost)

    if (s_msg_error_add<>"") then s_msg_error_add = "<hr>" & vbCrLf & s_msg_error_add
    if (s_RemoteHost="default") then s_RemoteHost = application("s_mail_server")


     recipients_list = "Scott,[email protected];Andy,[email protected]" etc
    array_recipients = split(s_recipients_list,";",-1,1)

     so recipients array now looks like this:
     array_recipients(0) = "Scott,[email protected]"
     array_recipients(1) = "Andy,[email protected]"  

     -- Create the Mailer Object
    Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")

     -- Set the Mail Properties
    Mailer.RemoteHost = s_RemoteHost
    Mailer.FromName = s_name_from
    Mailer.FromAddress = s_address_from
    if (s_reply_to<>"") then Mailer.ReplyTo = s_reply_to
    Mailer.Subject = s_subject
    a = ""
    For Each Item in array_recipients
        array_data = split(Item,",",-1,1)
        s_name = array_data(0)
        s_email_addr = array_data(1)
        if (s_name<>"" and s_email_addr<>"") then
            Mailer.AddRecipient s_name, s_email_addr
            a = a & "name: " & s_name & ", email: " & s_email_addr & " | "
        end if
    Next
    if (s_type_email = "text") then
        Mailer.BodyText = s_msg
    else
        s_msg_html = replace(s_msg,vbCrLf,"<br>",1,-1,1)
        Mailer.HTMLText = s_msg_html
    end if

     -- Fire off the email message
    if (Mailer.SendMail) then
         yay it worked
        Set Mailer = Nothing
    else
         try one more time
        if (Mailer.SendMail) then
             yay it worked
            Set Mailer = Nothing
        else
            msg = "<br>Error in i_fn_email.asp: " & Mailer.Response & "<br>"
            msg = msg & "s_name_from = " & s_name_from & "<br>"
            msg = msg & "s_address_from = " & s_address_from & "<br>"
            msg = msg & "s_subject = " & s_subject & "<br>"
            msg = msg & "recips list = " & a & "<br>"
            msg = msg & s_msg_error_add
            session("msg") = msg
            Set Mailer = Nothing
            response.redirect ("error_report.asp")
        end if
    end if
end function
%>