List delegates of the Outlook Mailbox using CDO 1.2.1 via VBScript

I have recently worked out a VBScript to list delegate of the Outlook Mailbox using CDO 1.2.1 via VBScript and thought of share it with you all, here is the sample code:

NOTE: Following programming examples is for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This sample code assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. This sample code is provided for the purpose of illustration only and is not intended to be used in a production environment.

Dim objSession

Dim strProfileInfo

Dim strServer

Dim strMailbox

Dim objFolder

Dim objMessages

Dim objMessage

Dim oFields

Dim oField1

Dim oField2

Dim oFBFolder

'TODO:Change Server and Mailbox info

strServer="Server"

strMailbox="User"

strProfileInfo = strServer & vbLf & strMailbox

Set objSession = CreateObject("MAPI.Session")

objSession.Logon , , False, False, , True, strProfileInfo

writelog( "Mailbox")

    writelog( "  ==> ")

    writelog( objSession.CurrentUser)

    writelog( vbCrLf)

Msgbox "Logged On!!!"

' Reference the root folder by passing ID of ""

Set oRoot = objSession.GetFolder("")

'Connect to the Freebusy folder

Set oFBFolder = oRoot.Folders.Item("Freebusy Data")

    Set objMessages = oFBFolder.Messages

    For Each objMessage In objMessages

        If objMessage.subject = "LocalFreebusy" Then

            'Get the message fields

            Set oFields = objMessage.Fields

            On Error Resume Next

    For i = 0 to UBound(oFields.Item(&H6844101E).Value(0))

                Set oField1 = oFields.Item(&H6844101E)  ' PR_SCHDINFO_DELEGATE_NAMES

                       writelog "DELEGATE NAMES  ==> " & oField1.Value(0)(i)

                    writelog( vbCrLf)

                          Set oField2 = oFields.Item(&H686B1003) ' PR_DELEGATE_FLAGS

              writelog "Delegate can see private  ==> " & oField2.Value(0)(i)

                          writelog( vbCrLf)

       Next

    End iF

Next

objSession.Logoff

Set objSession =Nothing

Set oField1 = Nothing

Set oField2 = Nothing

Set oFBFolder = Nothing

Set oRoot = Nothing

Msgbox "Done!!!"

Sub WriteLog(ByVal strMessage)

    Dim fs

    Set fs = CreateObject("Scripting.FileSystemObject")

    Dim file

    Dim sScriptPath

    sScriptPath = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, "\"))

    Set file = fs.opentextfile(sScriptPath & "DelegateListLog.txt", 8, True)

    file.Write strMessage

    file.Close

End Sub

Please refer to the following MAPI properties used in the above sample to list delegates of the mailbox:

PidTagScheduleInfoDelegateNames Canonical Property
http://msdn.microsoft.com/en-us/library/cc839497.aspx
Contains the names of the delegates.
Associated properties: PR_SCHDINFO_DELEGATE_NAMES, PR_SCHDINFO_DELEGATE_NAMES_A, PR_SCHDINFO_DELEGATE_NAMES_W
Identifier: 0x6844
PidTagDelegateFlags Canonical Property
http://msdn.microsoft.com/en-us/library/cc815505.aspx
Specifies whether a delegate can view the delegator’s private message objects.
Associated properties: PR_DELEGATE_FLAGS
Identifier: 0x686B

If you interested in exploring further details regarding how delegate settings works in Outlook then refer to: