相关疑难解决方法(0)

在阅读了如何使用自动化发送消息后,我不清楚是否可以避免打开一个新的Outlook实例,如果我已经打开了一个.如果是这样,我不确定如何搜索确定现有Outlook实例是否已打开的示例.

-----包括建议--------

我有以下代码段,但我发现无法正确创建实例.我基本上都是按照这个例子.我要么获得此屏幕截图,要么出现"未定义用户定义类型"的错误.有什么建议？

Sub Example()
    'Dim w As Outlook.Application

    Const ERR_APP_NOTRUNNING As Long = 429
    On Error Resume Next


' Handle Microsoft outlook
    Set w = GetObject(, "Outlook.Application")
    If Err = ERR_APP_NOTRUNNING Then
      'Set w = New Outlook.Application
      Set w = CreateObject("Outlook.Application")
    End If
End Sub