Automatically Start and Stop MS Outlook 2010 Out of Office assist

[TJVFree]

I’m looking for a way that I can have my Outlook Out of Office turn on at 4pm and then off at 8am. Then on weekends just have it stay on.

Does anyone know of any VBA code that would do this?


TCB

 

[strongm]

Here's the first part:

[blue]Public Sub OOF(bState As Boolean)
    Const PR_OOF_STATE = "[URL unfurl="true"]http://schemas.microsoft.com/mapi/proptag/0x661D000B"[/URL]
    Application.Session.DefaultStore.PropertyAccessor.SetProperty PR_OOF_STATE, bState
End Sub[/blue]

Called as follows:

[tt]OOF True ' enables out of office
OOF False ' disables out of office[/tt]