Private Function GetAppointmentsFromExchange(ByVal emailAdress As String, ByVal _
  StartZeit As Date) As List(Of GroupWareAppointment)
 
Dim lAppointmentList As New List(Of GroupWareAppointment)
 
'Neues Find-Request erzeugen
Dim lFindRequest As FindItemType = New FindItemType()
lFindRequest.Transversal = ItemQueryTransversalType.Shallow
lFindRequest.ItemShape = New ItemResponseShape()
lFindRequest.ItemShape.BaseShape = DefaultShapeNamesType.Default
 
'Zu durchsuchenden Ordner festlegen
Dim lCalendar As DistingishedFolderIdNameType.Calendar
lCalendar.Id = DistinguishedFolderNameType.calendar
 
'Wenn nicht der eigene Kalender, sondern ein freigegebener Kalender gelesen 
' werden soll
If Not (String.IsNullOrEmpty(emailAdress)) Then
   lCalendar.Mailbox = New EmailAddressType()
   lCalendar.Mailbox.EmailAddress = emailAdress
End If
lFindRequest.ParentFolderIds = New BaseFolderIdType() {lCalendar}
 
'hier kommt noch etwas unwichtiger Code
 
 
'Request an Server senden
Dim lResponse As FindItemResponseType = myExchangeServerAccess.FindItem( _
  lFindRequest)
 
'hier kommt noch etwas unwichtiger Code
 
 
Return lAppointmentList
End Function