麻烦各位高手看看下面程序段有何错误?
麻烦各位高手看看下面程序段有何错误?(错误提示为:邮件无法发送到 SMTP 服务器。传输错误代码为 0x800ccc15。服务器响应为 not available):Private Function A666()
Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "srru5@126.com"
objEmail.To = "58256598@qq.com"
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 --------------------编程问答-------------------- 查看用户名和密码是否正确
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "srru5" '用户名
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "rrtupp" '密码 --------------------编程问答-------------------- 正确呀。 --------------------编程问答-------------------- 注意用户名和密码 --------------------编程问答--------------------
用你的用户名和密码去www.126.com登录一下试试。
--------------------编程问答-------------------- 那用户名和密码区分大小写吗? --------------------编程问答-------------------- 查了一下,用户名和密码没有错。 --------------------编程问答-------------------- 这里用户名和密码是虚构的,我用的程序段用户名和密码是真实的(没有错,我反复查过了)
补充:VB , 基础类