Excel VBAProject参考

时间:2017-02-27 23:45:56

标签: excel-vba vba excel

在Excel 2013工作簿中,我使用Microsoft Outlook 15.0对象库,它编译得很好,工作簿没有问题。当我使用Excel 2016在另一台计算机上打开同一工作簿时,引用会自动更改为Microsoft Outlook 16.0对象库,并且没有编译器或使用问题。如果我在使用Excel 2016时保存或编译相同的工作簿并使用Excel 2013在计算机上重新打开它,则工作簿将停止,并显示缺少引用的编译器消息以及缺少的MS Outlook引用。这是否与Late和Early Binding有关,还是有另一种方法可以避免这个问题。

希亚

On Error Resume Next
Set OutlookApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If OutlookApp Is Nothing Then

'MsgBox "Outlook is not open, not setup or not the default email client." & vbCrLf & "Outlook must be installed, setup and open to use this feature.", vbOKOnly + vbExclamation, "Outlook not open"

Set OutlookMessage = Nothing
Set OutlookApp = Nothing
Exit Sub
End If

我的问题是我无法想办法检查Outlook是否已完全安装且配置文件是否已设置。如果outlook已完全安装,一切正常,但如果计算机上安装了office但尚未完全设置outlook,则代码将启动outlook设置向导,如果用户未完成向导,则代码将停止并显示自动化错误。在使用此功能之前,我需要先检查outlook是否有默认配置文件。

0 个答案:

没有答案