最近一个项目中有一个与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
2
Dim objNameSpace As Outlook.NameSpace
3
Dim objMAPIFolder As Outlook.MAPIFolder
4
Set objApp = New Outlook.Application
5
Set objNameSpace = objApp.GetNamespace(Type:="MAPI")
6
Set objMAPIFolder = _
7
objNameSpace.GetDefaultFolder(FolderType:=olFolderTasks)
出错位置在第6行,但有如下情况:![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
在第6行设置断点,运行到该断点处,单步执行出错;
在第4行设置断点,运行到该断点处,单步执行,第6行运行正常;
4.出错几次后,Outlook会崩溃,发送错误报告,提示重启;
大家谁做过OFFICE编程,帮忙判断一下错误可能出在哪,上网查找了好久也没有找到相似问题的解决方案。
同步源码
附:错误提示基本上是“操作失败”,错误来源是Outlook;用外部程序调用outlook,每次都弹出一个烦人的提示窗体,可能是提示窗体没有创建成功发生错误。