Microsoft KB Archive Search

Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.

  1. Home
  2. How To Retrieve Exception Information of a Recurring Appointment using WebDAV

How To Retrieve Exception Information of a Recurring Appointment using WebDAV

View products that this article applies to.

This article was previously published under Q309699

↑ Back to the top

Summary

This article demonstrates how to retrieve the exception information from the master appointment of a recurring appointment. You can use the GET method in Web Distributed Authoring and Versioning (WebDAV) to retrieve the MIME stream.

↑ Back to the top

More information

The following sample code retrieves the MIME stream and displays it in the immediate window. You can write additional code to parse the data and retrieve specific information. The exception information is not available through WebDAV as a simple property.

To use the sample code, follow these steps:
  1. In Microsoft Visual Basic, create a new Standard EXE project.
  2. Add a button to the default form and name it Command1.
  3. Paste the following code into the view code window:
    Private Sub Command1_Click()
'Reference MS XMl 2.0 library to try the following sample code.
Dim strMime as String
Dim strURL as String

'Change the strURL below to reflect your recurring appointment.
strURL=<http://exchangeservername/exchange/user1/calendar/myappt.eml>"

Set xmlReq = CreateObject("Microsoft.xmlhttp")
'Change the domain name\userID and password to reflect your environment.
xmlReq.Open "GET", strURL, False, "domainname\userid", "password"
xmlReq.setRequestHeader "Translate", "f"
xmlReq.setRequestHeader "Content-Type", "text/xml"
xmlReq.Send

strMime = xmlReq.ResponseText
Debug.Print strMime

'Display the results.
If (xmlReq.Status >= 200 And xmlReq.Status < 300) Then
Debug.Print "Success! " & "Results = " & xmlReq.Status & ": " & xmlReq.statusText
Debug.Print xmlReq.ResponseText
Else
Debug.Print "Request Failed. Results = " & xmlReq.Status & ": " & xmlReq.statusText
End If

End Sub

↑ Back to the top

Keywords: KB309699, kbmsg, kbhowto

↑ Back to the top

Article Info
Article ID : 309699
Revision : 5
Created on : 7/1/2004
Published on : 7/1/2004
Exists online : False
Views : 396