To put the Outlook Out of Office message back in you do it like this:
objMAPISession.Logon "", "", False, True, 0, False, strMAPI
iOOO = Len(strOOO)
If iOOO = 4 Then 'True
strOOOMessage = objMAPISession.OutOfOfficeText
End If
MsgBox strOOOMessage & Chr(13) & strOOO & Chr(13) & iOOO
Set...