VBA:如何测试Outlook是否离线工作，如果不是，然后把它放在离线模式

Question

在Excel中使用VBA发送电子邮件之前，我将Outlook置于脱机模式，以便电子邮件不发送，我可以检查它们。

这样做的问题是，我必须确保Outlook每次都处于脱机模式。

我找到了以下代码来将Outlook置于脱机模式:

Outlook.ActiveExplorer().CommandBars.FindControl(, 5613).Execute

但是这样做的问题是，如果Outlook处于脱机模式，它将把它从脱机模式中取出，所以我想要的是测试Outlook是否处于脱机模式，如果没有运行代码。

有办法做到这一点吗?

Answer 1

要在Exchange连接的Outlook客户端上检查脱机模式，可以检查Session对象的ExchangeConnectionMode属性。

例如，可以这样做:

Dim oNS As NameSpace
Set oNS = Application.Session
If oNS.ExchangeConnectionMode = olCachedOffline Or _
   oNS.ExchangeConnectionMode = olOffline Then
   ... Work, work! ...
End If