Announcement

Collapse
No announcement yet.

Retrieve state of several exchange 2003 mailboxes calendar

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Retrieve state of several exchange 2003 mailboxes calendar

    Hello everybody,

    I need to realize a script which is going to retrieve state of several calendars exchange 2003 mailboxes.
    (account AD with mailbox) since January 1st, 2010 so far and to send the data to a file csv, this with the aim of seeing the occupation rate of mailboxes which represent in fact meeting rooms).

    See what are the rooms which are the most occuped and those who are less. (calendar activity)

    Thanks

    Thomas

  • #2
    Re: Retrieve state of several exchange 2003 mailboxes calendar

    Originally posted by tdbchess View Post
    Hello everybody,

    I need to realize a script which is going to retrieve state of several calendars exchange 2003 mailboxes.
    (account AD with mailbox) since January 1st, 2010 so far and to send the data to a file csv, this with the aim of seeing the occupation rate of mailboxes which represent in fact meeting rooms).

    See what are the rooms which are the most occuped and those who are less. (calendar activity)

    Thanks

    Thomas
    Unfortunately, I have no idea what you are talking about

    But to view/dump data out of an exchange calendar...the only way I've seen is through a MAPI session (you will need MAPI enabled on your exchange server for this to work). The example below log's into an exchange mailbox, and gets the information for each appointment:

    Code:
    Set CDOSession = CreateObject("MAPI.Session")
    CDOSession.Logon , , , , , , "TESTEXSVR" & vbLf & "Sean"
    Set oFolder = CDOSession.GetDefaultFolder
                      (CdoDefaultFolderCalendar)
    Set oMessages = oFolder.Messages
    
    Set oAppointment = oMessages.GetFirst
    Do While Not oAppointment Is Nothing
        MsgBox "Appointment: " & oAppointment.Subject & vbCRLF & _
            "Start Time: " oAppointment.StartTime & vbCRLF & _
            "End Time: " oAppointment.EndTime & vbCRLF & _
            "Location: " oAppointment.Location & vbCRLF & _
            "Description: " oAppointment.Text & vbCRLF
        Set oAppointment = oMessages.GetNext
    Loop
    CDOSession.Logoff
    It is possible to be scripted to log into multiple selected mailboxes, and dump the data to a csv. You could do this:
    • read from a text file or array of the mailboxes
    • loop through each mailbox
    • create sub to gather calendar info
    • dump csv data within the loop

    Comment

    Working...
    X