Out Of Office Archives - MikeSel Hosting Ltd - Downloads, How-To's, News, Reviews & Rumours

The clever people over at Polyideas have come up with this simple, straight forward little app for the iPhone. If you are regularly out of the office on business, but keep forgetting to set your out of office notification then this is for you!

OOfy has been developed around Microsoft Exchange Server 2007, and even though the site claims it’s unable to tell if it will work on 2003, I have tested it on our 2003 server and it works perfectly.

Don’t let the simple interface put you off. The message text box can fit quite a lot of text in, and seems to have no problems transferring it. My out of office message is quite large and detailed, OOfy has no problems handling it at all.

This is easiest enough that even the end user can set up and use, with little help from the IT Staff.

All you will need to know is if your company using outlook web access, the URL to the access and if it uses SSL or not. Simply input the information into OOfy, along with your username and password and your set!

The latest version (1.1) boasts Exchange Server 2010 support – I only have access to an 03 server currently so I can’t test this.

If your worried about the security of your username and password, you will be pleased to hear it’s all stored securely in the devices ‘keychain’.

Not bad for £0.59!

Using this small piece of Visual Basic for Applications code in Microsoft Outlook you can check the status of the out of office assistant. Normally I call this on the Item_Send evet. Which is a handy reminder to switch of your out of office assistant after your nice long holiday etc.

Public Sub checkoof()
Dim oCDO As MAPI.Session
Dim oStore As MAPI.InfoStore
Dim oFolder As MAPI.Folder
Dim strStoreID As String
Dim blnOOF As Boolean
Dim blnResult As Boolean Set oCDO = CreateObject("MAPI.Session")
oCDO.Logon "", "", False, False 'piggy-back logon
Set oFolder = oCDO.Inbox 'get default Inbox
strStoreID = oFolder.StoreID 'get default InfoStore.StoreID0
Set oStore = oCDO.GetInfoStore(strStoreID) 'get store
blnOOF = oStore.Fields(&amp;H661D000B) 'get property
If blnOOF = True Then
blnResult = MsgBox("The out of office assistant is currently set, would you like to disable this?")
If blnResult = True Then
SendKeys "%{U}"
End If
End If
End Sub
Private Sub Application_Startup()
checkoof
End Sub
Public Sub checkoof()Dim oCDO As MAPI.SessionDim oStore As MAPI.InfoStoreDim oFolder As MAPI.FolderDim strStoreID As StringDim blnOOF As BooleanDim blnResult As Boolean Set oCDO = CreateObject("MAPI.Session")oCDO.Logon "", "", False, False 'piggy-back logonSet oFolder = oCDO.Inbox 'get default InboxstrStoreID = oFolder.StoreID 'get default InfoStore.StoreID0Set oStore = oCDO.GetInfoStore(strStoreID) 'get storeblnOOF = oStore.Fields(&amp;H661D000B) 'get property
If blnOOF = True ThenblnResult = MsgBox("The out of office assistant is currently set, would you like to disable this?")If blnResult = True ThenSendKeys "%{U}"End IfEnd If
End Sub
Private Sub Application_Startup()
checkoof
End Sub

Public Sub checkoof()

Dim oCDO As MAPI.Session

Dim oStore As MAPI.InfoStore

Dim oFolder As MAPI.Folder

Dim strStoreID As String

Dim blnOOF As Boolean

Dim blnResult As Boolean Set oCDO = CreateObject("MAPI.Session")

oCDO.Logon "", "", False, False 'piggy-back logon

Set oFolder = oCDO.Inbox 'get default Inbox

strStoreID = oFolder.StoreID 'get default InfoStore.StoreID0

Set oStore = oCDO.GetInfoStore(strStoreID) 'get store

blnOOF = oStore.Fields(&H661D000B) 'get property

If blnOOF = True Then

blnResult = MsgBox("The out of office assistant is currently set, would you like to disable this?")

If blnResult = True Then

SendKeys "%{U}"

End If

End Sub

Private Sub Application_Startup()

checkoof

End Sub

Public Sub checkoof()Dim oCDO As MAPI.SessionDim oStore As MAPI.InfoStoreDim oFolder As MAPI.FolderDim strStoreID As StringDim blnOOF As BooleanDim blnResult As Boolean Set oCDO = CreateObject("MAPI.Session")oCDO.Logon "", "", False, False 'piggy-back logonSet oFolder = oCDO.Inbox 'get default InboxstrStoreID = oFolder.StoreID 'get default InfoStore.StoreID0Set oStore = oCDO.GetInfoStore(strStoreID) 'get storeblnOOF = oStore.Fields(&H661D000B) 'get property

If blnOOF = True ThenblnResult = MsgBox("The out of office assistant is currently set, would you like to disable this?")If blnResult = True ThenSendKeys "%{U}"End IfEnd If

End Sub

Private Sub Application_Startup()

checkoof

End Sub

Welcome to MikeSel.info

Operating System How To's

Programming How To's

CMS How To's

Security How To’s

Home Automation

Out Of Office

OOfy for iPhone

Check out of office status VBA