Click here to Skip to main content
15,905,316 members
Articles / Web Development / ASP.NET

Outlook Team Calendar

Rate me:
Please Sign up or sign in to vote.
3.41/5 (16 votes)
3 Sep 20052 min read 450.8K   8.1K   125   127
Show your team's calendars side by side in a single web page.

Image 1


The code in this article will show you how to build a web page that can:

  • retrieve information from the Outlook calendars of your team members,
  • show this information in a single neat overview.

The code is written in VB.NET, but it can easily be converted into C# or any other language.


Just copy all the files in the sample code to the root of an existing web site, but take care not to overwrite any of the existing files. If a file named "index.aspx" already exists, just copy the file from the sample code after renaming it to something else, e.g. "calendar.aspx". If a file named "web.config" already exists, don't overwrite it, this will destroy all the existing settings. Just open the existing "web.config" file, and add these 5 lines to the existing "AppSettings" settings.

<add key="ServerName" value="ExchangeServerName"/>
<add key="WindowsDomain" value="OURDOMAIN"/>
<add key="UserForReadingCalendars" value="ExchReader"/>
<add key="PwdForReadingCalendars" value="secret"/>
<add key="Usernames" value="Ann,Dan,Eric,Martin,Philip"/>

Then, change the value for each of these keys according to your own situation:

  1. The "ServerName" setting is the name of the exchange server on the network.
  2. The "WindowsDomain" setting is the name of the Windows domain controlling the user database.
  3. The user indicated in the key "UserForReadingCalendars" should at least have read permissions on the Outlook calendars. Each user listed in the 5th setting should grant this permission through Outlook's configuration settings. For Outlook 2003, see Share my Outlook calendar.
  4. The "PwdForReadingCalendars" is the password of the user in the key "UserForReadingCalendars".
  5. The last setting "Usernames" is a list of your team members, separated by commas. The names should be the names of their mail boxes (i.e. the logon names). These users should share their calendars to the user that was set in the 3rd setting.

How it works

The first part is to retrieve the calendars from the exchange server. There are several ways to do this:

  • ADO (ExOLEDB provider)
  • WebDAV

I chose the WebDAV method. It has one inconvenience: it's slow when there are lots of calendars to be read.

In this case, we need to create a request that will read the calendar on a particular date. This is the code that will retrieve all the events in the calendar, especially the properties: start, end, busy status, and of course: the content:

Function LookUpCalendar(ByVal Name As String, _
                ByVal dDate As DateTime) As XmlDocument 
   Dim strURL As String = _
      "http://" & _
      ConfigurationSettings.AppSettings("ServerName") & _
                          /exchange/" & Name & "/calendar/" 
   Dim strRequest As String = "<?xml version=""1.0""?>" & _
       "<g:searchrequest DAV:?? xmlns:g="">" & _
       "<g:sql>SELECT ""urn:schemas:calendar:location"", " & _
       """urn:schemas:httpmail:subject"", " & _
       """urn:schemas:calendar:dtstart"", ""urn:schemas:calendar:dtend"", " & _
       """urn:schemas:calendar:busystatus"", " & _
       """urn:schemas:calendar:instancetype"" " & _
       "FROM Scope('SHALLOW TRAVERSAL OF """ & strURL & """') " & _
       "WHERE NOT ""urn:schemas:calendar:instancetype"" = 1 " & _
       "AND ""DAV:contentclass"" = 'urn:content-classes:appointment' " & _
       "AND ""urn:schemas:calendar:dtstart"" > '" & _
       String.Format("{0:yyyy/MM/dd}", dDate) & " 00:00:00' " & _
       "AND ""urn:schemas:calendar:dtend"" < '" & _
       String.Format("{0:yyyy/MM/dd}", dDate.AddDays(1)) & " 00:00:00' " & _
       "ORDER BY ""urn:schemas:calendar:dtstart"" ASC" & _
    Dim strStatusText As String = "" 
    Dim Status As Integer 
    Dim ResponseXmlDoc As XmlDocument = SendRequest("SEARCH", _
                             strURL, strRequest, strStatusText, Status) 
    'Display the results. 
    If (Status >= 200 And Status < 300) Then 
       AddInfo("Success! " & "Result = " & Status & ": " & _
                                               strStatusText, 2)
       Return ResponseXmlDoc 
    ElseIf Status = 401 Then 
       AddInfo("<BR /><FONT color=red>Permission denied!</FONT>", 2)
       AddInfo("<FONT color=red>" + 
              "Check your permissions for this item.</FONT>", 2)
    Else AddInfo("<FONT color=red>Request failed.</FONT>", 
       AddInfo("<FONT color=red>Result = " & Status & ": " & _
                                        strStatusText</FONT>, 2)
    End If 
    Return Nothing 
End Function

The result will be an XmlDocument object.

The function calls another function: SendRequest. This is standard code that will send the WebDAV search request:

Function SendRequest(ByVal strCommand As String, _
        ByVal strURL As String, ByVal strBody As String, _
        ByRef strStatusText As String, ByRef iStatCode As Integer) _
                                                       As XmlDocument 
        ' Create a new CredentialCache object and fill it 
        ' with the network credentials required to access the server. 
        Dim Username As String = _
        Dim Password As String = _
        Dim strDomain As String = _
        Dim myCred As New NetworkCredential(Username, _
                                         Password, strDomain) 
        Dim myUri As System.Uri = New System.Uri(strURL) 
        Dim MyCredentialCache As New _
            CredentialCache MyCredentialCache.Add(myUri, "NTLM", myCred) 
        ' Create the HttpWebRequest object. 
        Dim objRequest As HttpWebRequest = _
                CType(WebRequest.Create(strURL), HttpWebRequest) 
        ' Add the network credentials to the request. 
        objRequest.Credentials = MyCredentialCache 
        ' Specify the method. objRequest.Method = strCommand 
        ' Set Headers objRequest.KeepAlive = True 
        objRequest.Headers.Set("Pragma", "no-cache") 
        objRequest.ContentType = "text/xml" 
        'Set the request timeout to 5 minutes 
        objRequest.Timeout = 300000 
        If (strBody.Length > 0) Then 
            ' Store the data in a byte array 
            Dim ByteQuery() As Byte = _
            objRequest.ContentLength = ByteQuery.Length 
            Dim QueryStream As Stream = objRequest.GetRequestStream() 
            ' Write the data to be posted to the Request Stream 
            QueryStream.Write(ByteQuery, 0, ByteQuery.Length) 
         End If 
         ' Send the method request and get the response 
         ' from the server. 
         Dim objResponse As HttpWebResponse = _
               CType(objRequest.GetResponse(), HttpWebResponse) 
         ' Get the Status code iStatCode = objResponse.StatusCode 
         strStatusText = objResponse.StatusDescription 
         ' Get the XML response stream. 
         Dim ResponseStream As System.IO.Stream = _
         ' Create the XmlDocument object from the 
         ' XML response stream. 
         Dim ResponseXmlDoc As New System.Xml.XmlDocument 
         ' Clean up. ResponseStream.Close() 
         Return ResponseXmlDoc 
     Catch ex As Exception 
         ' Catch any exceptions. Any error codes from the method 
         ' requests on the server will be caught here, also. 
         AddInfo("& ex.ToString &"", 2) 
     End Try 
     Return Nothing 
 End Function

Finally, all the results are brought together in a DataTable object, and presented in a schedule with the free ScheduleGeneral custom control. The control will do all the work, we just bind it to the DataTable.

Points of interest

The project is an example of how to retrieve a list of Outlook calendar events from an exchange server with WebDAV.


This is the first version 1.0.


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Written By
Web Developer
Belgium Belgium
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions

QuestionCould not load file or assembly 'schedule' Pin
savitabhargav6-Dec-11 5:35
savitabhargav6-Dec-11 5:35 
GeneralSystem.Net.WebException Pin
donykas18-May-11 3:33
donykas18-May-11 3:33 
Questionerror: System.NullReferenceException Pin
blauwvoet19-Oct-10 8:13
blauwvoet19-Oct-10 8:13 
GeneralMy vote of 5 Pin
thatraja6-Oct-10 1:37
professionalthatraja6-Oct-10 1:37 
GeneralExchange 2007 / 2010 Pin
bingbongdong27-Jun-10 10:27
bingbongdong27-Jun-10 10:27 
GeneralRe: Exchange 2007 / 2010 Pin
Vamsi Praveen K14-Jul-11 0:49
Vamsi Praveen K14-Jul-11 0:49 
GeneralWinform calender schedule control Pin
T G Shiva12-Nov-09 2:00
T G Shiva12-Nov-09 2:00 
GeneralRe: Winform calender schedule control Pin
darshana36913-Mar-10 0:15
darshana36913-Mar-10 0:15 
QuestionOutlook Team Calendar Pin
inspirekarthick19-Oct-09 20:34
inspirekarthick19-Oct-09 20:34 
GeneralWill not show meetings ending at 5pm or after Pin
sweeetiepie21-Jul-09 13:28
sweeetiepie21-Jul-09 13:28 
GeneralRe: Will not show meetings ending at 5pm or after Pin
bsinni26-Jul-09 13:29
bsinni26-Jul-09 13:29 
GeneralOnly able to query one user Pin
hartmann12315-Jun-09 8:53
hartmann12315-Jun-09 8:53 
GeneralRe: Only able to query one user Pin
hartmann12315-Jun-09 23:50
hartmann12315-Jun-09 23:50 
QuestionHow do you display hyperlink in description? Pin
Kathy_OC13-May-09 3:55
Kathy_OC13-May-09 3:55 
QuestionStart/End time Pin
civanescu30-Mar-09 4:16
civanescu30-Mar-09 4:16 
AnswerRe: Start/End time Pin
KHaymo21-Apr-09 4:06
KHaymo21-Apr-09 4:06 
QuestionGetting error Pin
Member 279269422-Jan-09 0:06
Member 279269422-Jan-09 0:06 
AnswerRe: Getting error Pin
aggerholm7-May-09 2:29
aggerholm7-May-09 2:29 
QuestionRe: Getting error Pin
ramsmca25-May-09 20:02
ramsmca25-May-09 20:02 
AnswerRe: Getting error Pin
donykas18-May-11 23:53
donykas18-May-11 23:53 
QuestionLe serveur distant a retourné une erreur : (500) Erreur interne du serveur. Pin
telone26-Nov-08 5:11
telone26-Nov-08 5:11 
GeneralError message "(403) Forbidden" Pin
bvaar6-Nov-08 3:10
bvaar6-Nov-08 3:10 
QuestionAbout the 403 Forbidden message Pin
Aaog17-Sep-08 8:28
Aaog17-Sep-08 8:28 
AnswerRe: About the 403 Forbidden message Pin
Jos Branders20-Sep-08 3:57
Jos Branders20-Sep-08 3:57 
GeneralRe: About the 403 Forbidden message Pin
Aaog24-Sep-08 4:02
Aaog24-Sep-08 4:02 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.