麻烦各位高手看看下面程序段有何错误？

Question

麻烦各位高手看看下面程序段有何错误？（错误提示为：邮件无法发送到 SMTP 服务器。传输错误代码为 0x800ccc15。服务器响应为 not available）：
Private Function A666()
  Dim objEmail As Object
  Set objEmail = CreateObject("CDO.Message")
  objEmail.From = "[email protected]"
  objEmail.To = "[email protected]"
  objEmail.Subject = "文件"    '"邮件主题"
  objEmail.Textbody = "文件"   '"邮件正文"
  objEmail.AddAttachment "C:\698.doc"              '附件
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.126.com"
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "srru5"      '用户名
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "rrtupp"      '密码
  objEmail.Configuration.Fields.Update
  objEmail.Send
End Function

Answer 1

查看用户名和密码是否正确
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "srru5" '用户名
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "rrtupp" '密码

Answer 2

用你的用户名和密码去www.126.com登录一下试试。