Search This Blog

Google Analytics

Thursday, October 29, 2009

How to set "Work Offline" for Outlook programatically

The show VBScript code snipppet will toggle between working "Offline" and "Online" for MS Outlook.

Set objOutlook = CreateObject("Outlook.Application")
objOutlook.GetNamespace("MAPI").Folders.GetFirst.GetExplorer.CommandBars.FindControl(, 5613).Execute
Set objOutlook = Nothing

1 comment:

  1. My goal was to be able to create a special Outlook Rule that evaluated the subject line of a message, and if it met my criteria would take Outlook offline. I use this when I'm away from my office and forget to take outlook offline, so that it is not picking up my messages from the server while I'm out, leaving them unread on the server for use on my mobile devices.

    I found your script while searching for VBS to take outlook offline, and it worked great, except that it would open a new window when executed.

    For others wishing to do this... After a bit more investigation and code hacking, this solution worked for me, taking OL offline using the active window. Immediately upon receipt it takes outlook offline, and you may receive a benign error in the status bar saying that the send/receive was interrupted (because, essentially it was, by the script):

    Dim oOL
    Set oOL = GetObject(, "Outlook.Application")
    If Not (oOL Is Nothing) Then
    Set objCBs = oOl.Application.ActiveExplorer.CommandBars
    objCBs.FindControl(, 5613).Execute
    End If
    Set oOL = Nothing


Do provide your constructive comment. I appreciate that.

Popular Posts