CDO.Message.1错误“80040220”

Question

我已经托管了我的站点，而发送邮件给我的错误如下：

CDO.Message.1错误'80040220‘"SendUsing“配置值无效。/contact.asp，第131行

我有以下代码：

<%
sch = "http://schemas.microsoft.com/cdo/configuration/" 

    Set cdoConfig = CreateObject("CDO.Configuration") 

    With cdoConfig.Fields 
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
        .Item(sch & "smtpserver") = "<my-smtp-port>" 
        .Item(sch & "smtpserverport") = 25
        .update 
    End With 

    Set cdoMessage = CreateObject("CDO.Message") 

    With cdoMessage 
        Set .Configuration = cdoConfig 
        .From = "fromemail" 
        .To = "toemail" 
        .Subject = "abc" 
        .TextBody = "hello" 
        .Send 
    End With 

    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing 

%>

请帮我解决这个问题？

Answer 1

我找到解决办法了。我参考了这个链接http://forums.iis.net，得到了确切的代码，并替换为使用远程服务器发送文本电子邮件：中给出的代码。使用下面的is代码：

​

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

​