确定现有Outlook实例是否已打开

Question

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

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

我有以下代码片段，但我发现无法正确创建实例。我基本上在关注这个例子.我要么得到这个屏幕截图，或“未定义用户定义类型”的错误。有什么建议吗？

子示例（）'调暗为Outlook。应用程序常量ERR_APP_NOTRUNNING As Long=429出错时继续下一步'处理Microsoft outlook设置w=GetObject（，“Outlook.Application”）如果Err=Err_APP_NOTRUNNING，则'设置w=新Outlook。应用程序设置w=CreateObject（“Outlook.Application”）End If（结束条件）结束Sub

Answer 1

我知道这个问题已经得到了回答，但我想补充一下，像Outlook（我也相信PowerPoint）这样的应用程序是单实例应用程序，不需要确定Outlook是否已经打开，因为您只能运行一个Outlook副本。

http://msdn.microsoft.com/en-us/library/aa164542（v=办公室.10）.aspx

如果需要实例化Outlook，只需使用CreateObject创建实例；如果Outlook已在运行，则对象引用将指向现有实例。如果没有，您将创建类。绑定（晚或早）无关紧要。

例如，假设Outlook没有运行。我们可以使用此代码创建实例：

子测试Outlook（）Dim olApp As Object的Outlook。应用程序设置olApp=CreateObject（“Outlook.Application”）消息框（olApp2为空）结束Sub

这将打印“False”，因为我们创建了实例。

假设Outlook正在运行。我们可以使用此代码验证使用GetObject和CreateObject是否会引用现有实例：

子测试Outlook（）Dim olApp As Object的Outlook。应用程序Dim olApp2 As Object的Outlook。应用程序设置olApp=GetObject（，“Outlook.Application”）消息框（olApp什么都不是）设置olApp2=CreateObject（“Outlook.Application”）消息框（olApp2为空）消息框“相同对象？”&（olApp是olApp2）结束Sub

这将打印“False”（现有实例）、“False“（我们所谓的“新实例”），但最后一个消息框是“True”，因为新实例实际上是与现有实例相同的对象。

那么，如果我们不知道Outlook是否正在运行，我们该怎么办？如上所示，CreateObject要么创建了一个新实例（如果其中一个实例不存在，如第一个示例所示），要么在Outlook已经打开的情况下挂接了现有实例（如第二个示例所述）。

Answer 2

我在你的问题中看到了你的评论

'调暗为Outlook。应用程序

可能是因为这会导致“未定义用户定义的类型”错误。

这可能是因为您尚未在Excel-VBA项目中设置对Outlook库的引用。具体操作如下：工具>参考>选中“Microsoft Outlook xx.x对象库”。然后你可以写这个

前景黯淡。应用程序设置w=新Outlook。应用程序'或，'设置w=CreateObject（“Outlook.Application”）

顺便说一下，这会导致编译时（或“早期”）绑定。并为您提供见解对象智能感知。

或者，您可以省略设置引用并声明w个作为通用对象，并让它在运行时绑定

Dim w As对象设置w=CreateObject（“Outlook.Application”）

但是运行时（或“延迟”）绑定效率较低。

做任何感觉最棒的事——我会继续冒险，你不会注意到效率上的差异。我是最近才转向早期绑定的东西，真的是因为智能感知。

编辑所以你已经创建了一个新的Outlook应用程序，但你看不到它。如果你在Windows任务管理器中查看，你会看到进程在那里运行，但它只是没有显示在屏幕上。不幸的是，微软的一些杰出工程师决定Outlook不应该有可见像Word或Excel这样的属性，所以我们必须使用一个笨拙的解决方法。打开其中一个特殊文件夹，例如“收件箱”，如下所示：

前景黯淡。应用程序Dim wInbox作为Outlook。MAPI文件夹设置w=新Outlook。应用程序设置wInbox=w.GetNamespace（“MAPI”）。获取默认文件夹（olFolderInbox）w收件箱。显示“这使Outlook可见”

Answer 3

设置w=GetObject（，“Outlook.Application”）

如果没有运行catch错误的实例，则应该获取正在运行的实例并执行CreateObject

Answer 4

如果你喜欢，就用这个。
这不是一个完美的解决方案，但您可以在未打开Outlook App时打开它。

函数OpenOutlookApp（isSend As Boolean）作为Boolean'如果它已打开，则返回true。“我的办公室版本是2016年。Dim oApp As对象出错时转到错误句柄出错时继续下一步设置oApp=GetObject（，“Outlook.Application”）出错时转到0如果oApp什么都不是那么设置oApp=CreateObject（“Outlook.Application”）o应用程序。GetNamespace（“MAPI”）。GetDefaultFolder（6）。显示器End If（结束条件）如果是Send，则调用SendAndReceiveOutlookMail（False）OpenOutlookApp=真转到非错误句柄错误句柄：非错误句柄：出错时转到0End函数Sub Send and ReceiveOutlookMail（isQuit As Boolean）将oApp设为新Outlook。应用程序出错时继续下一步呼叫oApp。会议。登录（“Outlook”，“”）调用oApp。会议。发送和接收（True）如果是Quit，则为oApp。退出设置oApp=无出错时转到0结束Sub