我在 Excel 文件中使用以下代码,该文件可供多人访问和使用。在继续执行其余代码之前,提取内容会检查 Outlook 是否已打开。
Dim oOutlook As Object
'Checks to see if Outlook is open
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
MsgBox "Outlook is not open."
Exit Sub
End If
Set oOutlook = Nothing
该代码似乎适用于除个人/计算机之外的所有人。对于这一个人/计算机,即使 Outlook 打开,这行代码
设置 oOutlook = GetObject(, "Outlook.Application")
似乎没有意识到它是开放的。我检查了常规的事情:确保 VBA 引用设置正确,安全设置似乎与其他人相同。
如有任何建议,我们将不胜感激。
最佳答案
根据我的经验,我用它来避免这个问题:
On Error Resume Next
Set oWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set oWord = CreateObject("Word.Application")
End If
On Error GoTo 0
但实际上我不知道问题从何而来......它有时对我来说只是擦肩而过!
关于excel - GetObject(, "Outlook.Application") 无法在 Outlook 打开时使用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30891245/