返回 Boolean 类型值,指出 Microsoft Outlook 是联机(与服务器相连)还是脱机(不与服务器相连)。如果 Outlook 脱机则返回 True。只读。
expression.Offline
expression 必选。该表达式返回 Namespace 对象。
以下函数根据 Namespace 对象当前是否联机返回 True 或 False。
Sub Off()
'Determines whether Outlook is currently Offline
Dim olapp As New Outlook.Application
Dim nmsName As NameSpace
Set olapp = Outlook.Application
Set nmsName = olapp.GetNamespace("MAPI")
Dim blnOff As Boolean
blnOff = IsOffline(nmsName)
End Sub
Function IsOffline(ByRef nmsName As NameSpace) As Boolean
'Retuns True if Outlook is offline
IsOffline = nmsName.offline
End Function