Email.Send无法发送,语句无法向下执行

lqh123108

1 NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
2 Set Email = CreateObject("CDO.Message")
3 Email.From = "chen@gmail.com" '发件邮件地址
4 Email.To = "kekec@qq.com" '收件邮件地址
5 Email.Subject = "Test_" + cstr(now()) '邮件主题
6 Email.Textbody = "OK! It is only a test." '邮件内容
7 Email.AddAttachment "D:\My Documents\My Pictures\809041233006998.jpg" '所带附件
8 With Email.Configuration.Fields
9 .Item(NameSpace&"sendusing") = 2  'CDO发送端口号
10 .Item(NameSpace&"smtpserver") = "smtp.gmail.com"  'SMTP服务器
11 .Item(NameSpace&"smtpserverport") = 465  'SMTP服务器端口号
12 .Item(NameSpace&"smtpusessl") = true  'SMTP服务器是否使用了SSL
13 .Item(NameSpace&"smtpauthenticate") = 1  '认证方式是BASIC
14 .Item(NameSpace&"sendusername") = "chen@gmail.com" '发件人邮箱账号
15 .Item(NameSpace&"sendpassword") = "************"  '发件人邮箱密码
16 .Update
17 End With
18 Email.Send

这段代码放在OUTLOOK里为什么经常出错(概率在15%左右),出错语句是最后一句,即...Email.Send
加了on error resume next 也没有用..
有没有朋友也是这样,如何解决这个问题..

顺便问一下,如果VBA中程序始终停留在某条语句上,如何解决

wudixin96

ON ERROR RESUME NEXT
然后加一个IF判断，判断ERR.NUMBER的值，然后把错误值导出来提示。这样不影响整体过程的运行。

dsd999

出错应该和outlook无关，如2楼所说，看看错误值是多少？

另：既然在outlook里，为什么还用CDO.Message？

lqh123108

wudixin96 发表于 2012-2-20 13:54
ON ERROR RESUME NEXT
然后加一个IF判断，判断ERR.NUMBER的值，然后把错误值导出来提示。这样不影响整体过 ...

程序停留在那一句上,无法执行到下一句的,即无未法使用出错语句来,判断到ERR的值,所以也无法得到该值..

lqh123108

dsd999 发表于 2012-2-20 14:52
出错应该和outlook无关，如2楼所说，看看错误值是多少？

另：既然在outlook里，为什么还用CDO.Message？

这个纯粹是VBS版的东东,在这里借用这个对象是必要的,否则就是使用OUTLOOK的对象发邮件..