从 MS Access 2016 VBA 启动 Outlook 2016 触发“另一个程序正在使用 Outlook”并死掉

Question

我在 MS Access 2016 中使用以下代码来启动 Outlook 2016 的实例：

Dim appOutLook As Object

    On Error Resume Next
    Set appOutLook = GetObject(, "Outlook.Application")
    On Error GoTo 0

    If appOutLook Is Nothing Then
        Set appOutLook = CreateObject("Outlook.Application")
    End If

End Sub

当我运行上述代码时，Outlook 2016 已关闭。 但是，Outlook 不会打开。 我注意到，当我运行此代码时，我的任务栏上会显示一个图标，说明“另一个程序正在使用 Outlook”。 此图标显示约 2 秒钟，然后消失。 这可能意味着另一个服务正在后台运行。 我没有找到任何可能适用的服务。 我的 Outlook 帐户是 Google 帐户，没有发现任何可能在后台运行的 Google 相关服务。

坦率地说，我不确定这是否是一个编码问题，因为是否有更好的方法使用 VBA 来启动 Outlook 实例。 我没有这方面的线索。

Answer 1

我可能会离开，但我认为您的代码有点混乱。我会先删除“on error”行，因为它们可能隐藏了您需要了解的错误。

'On Error Resume Next
Set appOutLook = GetObject(, "Outlook.Application")
'On Error GoTo 0

这里

If appOutLook Is Nothing Then...

你已经Set appOutlook，所以它永远不会是Nothing，并且该块不会运行。

我曾经这样做过。代码有点旧，但看起来像你的，所以我认为它应该可以工作。 （为了与其类型一致，我使用了 objOutlook，而不是 appOutlook。）

Dim objOutlook As Object

'See if Outlook is already open and use that.
Set objOutlook = GetObject(, "Outlook.Application")

'If Err, Outlook is not open; get a new instance.
If Err <> 0 Then
    'Create the Outlook session.
    Set objOutlook = CreateObject("Outlook.Application")
End If

Hth.

---

新代码：

Dim oOutlook As Outlook.Application
Set oOutlook = CreateObject("Outlook.Application")

Debug.Print oOutlook.Application.Name
Debug.Print oOutlook.Application.ProductCode
Debug.Print oOutlook.Application.Version

Set oOutlook = Nothing

链接：https://support.microsoft.com/en-ca/help/828550/you-receive-run-time-error-429-when-you-automate-office-applications

Answer 2

这对我有用。

Private Sub Email_Click()
Dim oOutlook As Object
Dim oFolder As Object
Dim oNameSpace As Object

On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")

On Error GoTo 0
If oOutlook Is Nothing Then
    Shell ("OUTLOOK")
Else     'already open
MsgBox "Already Open"
End If
End Sub