CDO不再在网络解决方案上使用Windows Server

I am using a server side script using CDO on Network solution that is now failing with a '500 server error' Have they changed their Windows servers?

我正在使用服务器端脚本使用CDO网络解决方案,现在失败了“500服务器错误”他们是否更改了他们的Windows服务器?

This code works fine on some other domains hosted by Network solutions. I tried changing to localhost and the server port to 25 with no luck.

此代码适用于由Network解决方案托管的其他一些域。我尝试更改为localhost和服务器端口为25没有运气。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<% 
Dim cdoConfig, cdoMessage, sch, nProfileID, sFName, sLName, sEmail, sBCC, sFromEmail,    sMessage, Optin

nProfileID = Request.Form("profileID")
sFName = Request.Form("fname")
sLName = Request.Form("lname")
sFromEmail = Request.Form("email")
sMessage = Request.Form("message")
Optin = Request.Form("optin")


'sAction = "email_form_work.asp?profileID=" & nProfileID
sEmail = "[e-mail]" 'generic email account *** change to [e-mail]
sBCC = "[e-mail]"


sch = "http://schemas.microsoft.com/cdo/configuration/" 
Set cdoConfig = CreateObject("CDO.Configuration") 

With cdoConfig.Fields 
    'Set CDO Port 
    .Item(sch & "sendusing") = 1
    'Set mailserver name either IP address, mail.yoursite.com or localhost 
    .Item(sch & "smtpserver") = "smtp.secretagency.com"
    'Set SMTP port which is 25 by default 
    .Item(sch & "smtpserverport") = 2525
    'Set number of seconds before timeout 
    .Item(sch & "smtpconnectiontimeout") = 60


    .update 
End With 

Set cdoMessage = CreateObject("CDO.Message") 

With cdoMessage 
    Set .Configuration = cdoConfig 
    .From = sFromEmail
    .To = sEmail
    .CC = ""
    'use this to send a blind copy 
    .BCC = sBCC
    .Subject = ""
    'Send the email in text format *comment out HTML
    .TextBody = sFName & " " & sLName & " has sent you the following message:" & vbCRLF & vbCRLF & sMessage & vbCRLF
    .Send 
End With
set cdoMessage = nothing
set cdoConfig = nothing


'************ Mail ends here ********************

%>

1 个解决方案

#1

Problem solved. Network solutions Windows Server will only work with CDO when employing Authentication: cdoSMTPAuthenticate, cdoSendUsername, cdoSendPassword must be defined.

问题解决了。网络解决方案Windows Server仅在使用身份验证时使用CDO:cdoSMTPAuthenticate,cdoSendUsername,cdoSendPassword必须定义。