关于cdo发邮件出错的问题，错误号：0x800ccc15

[lzliming]

错误信息
The message could not be sent to the SMTP server. The transport error code was 0x800ccc15. The server response was not available

代码
Imports System.Web.Mail

Public Class WebForm1
Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'SmtpMail.SmtpServer = "LIUZHMAIL"
'SmtpMail.Send("[e-mail]", "[e-mail]", "dk", "d")

''

Dim myMsg
Dim myConfig
Dim Flds

Const cdoSendUsingPort = 2
Const cdoBasic As Integer = 1

myMsg = CreateObject("CDO.Message")
myConfig = CreateObject("CDO.Configuration")
Flds = myConfig.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "www.163.net"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xx"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Update()
End With

With myMsg
.Configuration = myConfig
.To = "[e-mail]"
.From = "[e-mail]"
.Subject = "xx"
.HTMLBody = "xx"
.Send()
End With

myMsg = Nothing
myConfig = Nothing
Flds = Nothing

End Sub


End Class

?

[kandyasp]

把smtp.server去掉看看行不行？

[acewang]

如果你用CDO发邮件，需要添加引用
http://authors.aspalliance.com/wisemonk/view.aspx?id=AO070122-All

[robin_xin_xin]

同意楼上的

[elite2018]

需要添加引用

[elite2018]

www.163.net 's smtp need to certified user

[lzliming]

有点建设性的吗？

[hiaming]

在QQ里收到你的信息，可惜我是用C#的，帮不了你。

建议注意下面几点：
1。一定要引用名称空间
2。SMTP服务器是不是要验证身份。
3。使用该组件还得在服务器上安装IIS中带的SMTP服务才行吧！

[lzliming]

查了一下
0x800CCC15 是：无法开启 Windows Socket
？？？？
谁帮我？

[lzliming]

up

[lzliming]

up