gd发送邮件提示错误 请问如何解决

title1

错误提示：
The message could not be sent to the SMTP server. The transport error code was 0x800ccc14. The server response was not available


附上代码 用qq的smtp在本地测试成功，改成gd的relay-hosting.secureserver.net在服务器就是这个错误提示了
<%
On Error Resume Next
FieldBase = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoCfg = CreateObject("CDO.Configuration")
Set cdoMsg = CreateObject("CDO.Message")
With cdoCfg.Fields
        .Item(FieldBase & "sendusing") = 2
        .Item(FieldBase & "sendusername") = "xxxx@xx.xx"
        .Item(FieldBase & "sendpassword") = "admin"
        '.Item(FieldBase & "sendemailaddress") = "test"
        '.Item(FieldBase & "smtpaccountname") = "smtp.126.com"
        .Item(FieldBase & "smtpserver") = "relay-hosting.secureserver.net"
        .Item(FieldBase & "smtpserverport") = 25
        '.Item(FieldBase & "smtpauthenticate") = 1 '0代表Anonymous验证方式(不需要验证),1代表Basic验证方式(使用basic(clear-text)验证),2代表NTLM验证方式(Secure Password Authentication in Microsoft Outlook Express）  
        '.Item(FieldBase & "smtpconnectiontimeout") = 10
        '.Item(FieldBase & "smtpusessl") = true
        '.Item(FieldBase & "languagecode") = 0x0804
        .Update
End With

With cdoMsg
        Set .Configuration = cdoCfg
                'from必须和sendusername相同
        .From = "xxxx@xx.xx"
        .To = "xxxx@qq.com"
        .Subject = "这是CDOSYS测试"
        .HTMLBody = "<a href=http://www.netmkt.cn target=_blank>测试成功</a>"
        '.TextBody = "测试成功"
       .BodyPart.Charset = "utf-8"
       .HTMLBodyPart.Charset = "utf-8"
       .Send
End With
    If Err.Number <> 0 Then
                Response.Write Err.Description
    end if
    Set cdoCfg = Nothing
    Set cdoMsg = Nothing
%>

在线等

[ 本帖最后由 title1 于 2010-6-25 11:47 PM 编辑 ]

title1

xxxxxxxxxxxxxxx高人呢

title1

两天了 解决不了啊

title1

附上代码 用qq的smtp在本地测试成功
<%
On Error Resume Next
FieldBase = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoCfg = CreateObject("CDO.Configuration")
Set cdoMsg = CreateObject("CDO.Message")
With cdoCfg.Fields
        .Item(FieldBase & "sendusing") = 2
        .Item(FieldBase & "sendusername") = "xxxx@xx.xx"
        .Item(FieldBase & "sendpassword") = "admin"
        '.Item(FieldBase & "sendemailaddress") = "test"
        '.Item(FieldBase & "smtpaccountname") = "smtp.126.com"
        .Item(FieldBase & "smtpserver") = "relay-hosting.secureserver.net"
        .Item(FieldBase & "smtpserverport") = 25
        '.Item(FieldBase & "smtpauthenticate") = 1 '0代表Anonymous验证方式(不需要验证),1代表Basic验证方式(使用basic(clear-text)验证),2代表NTLM验证方式(Secure Password Authentication in Microsoft Outlook Express）  
        '.Item(FieldBase & "smtpconnectiontimeout") = 10
        '.Item(FieldBase & "smtpusessl") = true
        '.Item(FieldBase & "languagecode") = 0x0804
        .Update
End With

With cdoMsg
        Set .Configuration = cdoCfg
                'from必须和sendusername相同
        .From = "xxxx@xx.xx"
        .To = "xxxx@qq.com"
        .Subject = "这是CDOSYS测试"
        .HTMLBody = "<a href=http://www.netmkt.cn target=_blank>测试成功</a>"
        '.TextBody = "测试成功"
       .BodyPart.Charset = "utf-8"
       .HTMLBodyPart.Charset = "utf-8"
       .Send
End With
    If Err.Number <> 0 Then
                Response.Write Err.Description
    end if
    Set cdoCfg = Nothing
    Set cdoMsg = Nothing
%>

title1

............................

title1

...................................

title1

没高人了吗 指点指点

title1

ssssssssssssssssssss

title1

ok了 结贴 自己搞定了 鼓掌

[ 本帖最后由 title1 于 2010-6-26 01:33 AM 编辑 ]

jiangxi00096

不太懂，眼睛也看花了，报谦