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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.