最近一个项目中有一个与Office Outlook同步的模块，是我用VB6.0开发的ActiveX IE插件，现客户那出现错误，我逐步测试总结情况如下：
1.客户环境XP sp2+Outlook2003，我做了一个CS测试程序执行同样代码，Outlook打开时执行出错的情况很少，但没有打开Outlook测试出错概率大于50%，我做了一个干净的系统XP sp2+Outlook2003,运行同样测试程序无论是否打开Outlook都没有错误。
2.在客户处安装开发环境，单步执行，没有错误；设置断点跳跃执行，出错；
3.反复设断点测试，找到出错位置在如下代码：
在第6行设置断点，运行到该断点处，单步执行出错；
在第4行设置断点，运行到该断点处，单步执行，第6行运行正常；
4.出错几次后，Outlook会崩溃，发送错误报告，提示重启；
大家谁做过OFFICE编程，帮忙判断一下错误可能出在哪，上网查找了好久也没有找到相似问题的解决方案。
同步源码
附：错误提示基本上是“操作失败”，错误来源是Outlook；用外部程序调用outlook，每次都弹出一个烦人的提示窗体，可能是提示窗体没有创建成功发生错误。
1.客户环境XP sp2+Outlook2003，我做了一个CS测试程序执行同样代码，Outlook打开时执行出错的情况很少，但没有打开Outlook测试出错概率大于50%，我做了一个干净的系统XP sp2+Outlook2003,运行同样测试程序无论是否打开Outlook都没有错误。
2.在客户处安装开发环境，单步执行，没有错误；设置断点跳跃执行，出错；
3.反复设断点测试，找到出错位置在如下代码：
1
Dim objApp As Outlook.Application
2Dim objNameSpace As Outlook.NameSpace
3Dim objMAPIFolder As Outlook.MAPIFolder
4Set objApp = New Outlook.Application
5Set objNameSpace = objApp.GetNamespace(Type:="MAPI")
6Set objMAPIFolder = _
7 objNameSpace.GetDefaultFolder(FolderType:=olFolderTasks)
出错位置在第6行，但有如下情况：Dim objApp As Outlook.Application2
Dim objNameSpace As Outlook.NameSpace3
Dim objMAPIFolder As Outlook.MAPIFolder4
Set objApp = New Outlook.Application5
Set objNameSpace = objApp.GetNamespace(Type:="MAPI")6
Set objMAPIFolder = _7
objNameSpace.GetDefaultFolder(FolderType:=olFolderTasks)在第6行设置断点，运行到该断点处，单步执行出错；
在第4行设置断点，运行到该断点处，单步执行，第6行运行正常；
4.出错几次后，Outlook会崩溃，发送错误报告，提示重启；
大家谁做过OFFICE编程，帮忙判断一下错误可能出在哪，上网查找了好久也没有找到相似问题的解决方案。
同步源码
附：错误提示基本上是“操作失败”，错误来源是Outlook；用外部程序调用outlook，每次都弹出一个烦人的提示窗体，可能是提示窗体没有创建成功发生错误。
