Check "Out of Office" Status of Outlook Contact - VBA

[screech]

Hello all,

I am wondering if it is possible to write a section of VBA code in an Excel workbook that will determine the Outlook "Out of Office" status of a contact within the company. I have a list of employee names that match the name in the Outlook Address Book. I would like to be able to check the name of each employee to see if they have their Outlook set up for "Out of Office". Is there a section of VBA code that can be put into an Excel workbook to pull that information from an Outlook server or network or something? Like a True/False?

I am using Office 2010 Professional Plus products for Excel and Outlook.

Thank you very much for any help. Searches in this form and on the internet don't seem to have what I am looking for, or maybe I can't find it. Any guidance would be appreciated.

 

[schielrn]

This might be a start, but you will have to figure out how to send another employees name as it only checks your own mailboxes:

Sub Check_Out_Of_Office()
Dim oNS As Outlook.Namespace
Dim oStores As Outlook.Stores
Dim oStr As Outlook.Store
Dim oPrp As Outlook.PropertyAccessor
Set oNS = Outlook.GetNamespace("MAPI")
Set oStores = oNS.Stores
For Each oStr In oStores
If oStr.ExchangeStoreType = olPrimaryExchangeMailbox Then
Set oPrp = oStr.PropertyAccessor
MsgBox oPrp.GetProperty(http://schemas.microsoft.com/mapi/proptag/0x661D000B)
End If
Next

End Sub

I'm going to try to see if I can find anything about other mailboxes, but theOutlook.GetNamespace("MAPI") line I believe is only good for your current session and I am not sure what to use for like a company directory.

 

[screech]

Sub Check_Out_Of_Office()
Dim oNS As Outlook.Namespace
Dim oStores As Outlook.Stores
Dim oStr As Outlook.Store
Dim oPrp As Outlook.PropertyAccessor
Set oNS = Outlook.GetNamespace("MAPI")
Set oStores = oNS.Stores
For Each oStr In oStores
If oStr.ExchangeStoreType = olPrimaryExchangeMailbox Then
Set oPrp = oStr.PropertyAccessor
MsgBox oPrp.GetProperty(http://schemas.microsoft.com/mapi/proptag/0x661D000B)
End If
Next

End Sub

This is a good start. I actually plugged that code into a module and it is returning my out of office status correctly as true/false. I have also found some code that appears to retrieve my list of contacts although I haven't actually tried it out. But this Check_Out_of_Office code doesn't seem to have a lot of variables to it or anywhere else to plug in a contact name. I have looked around some more into how to get other user's namespace information but I haven't found anything yet.

 

[fjdurbin]

This is a good start. I actually plugged that code into a module and it is returning my out of office status correctly as true/false. I have also found some code that appears to retrieve my list of contacts although I haven't actually tried it out. But this Check_Out_of_Office code doesn't seem to have a lot of variables to it or anywhere else to plug in a contact name. I have looked around some more into how to get other user's namespace information but I haven't found anything yet.

I too want to create a list of person's at my company who have turned on Automatic Replies (out of office). I'm amazed that I haven't been able to google my way to more info about this. There doesn't seem to be a solution. Were you able to learn more?...JD