''' <summary>
    ''' Gibt den Inhalt eines bestimmten Outlook-Ordners als Tabelle zurück.
    ''' (Wurde nur mit einer deutschen Outlook-version getastet!)
    ''' </summary>
    ''' <param name="mapiProfile">Name des MAPI-Profils (z.B. "MS" & _
      "Exchange-Einstellungen"), einzusehen in Systemsteuerung -> Mail</param>
    ''' <param name="displayUserName">Anzeigename des Benutzers (z.B. "Max" & _
    "Mustermann")</param>
    ''' <param name="folderName">Name des Ordners (z.B. "Posteingang")</param>
    ''' <returns>Inhalt des Outlook-Ordners</returns>
    Private Function GetOutlookFolderData(ByVal mapiProfile As String, ByVal _
      displayUserName As String, ByVal folderName As String) As DataTable
        ' Verbindungszeichenfolge erzeugen
        Dim connectionString As String = String.Format( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Exchange 4.0;MAPILEVEL=Postfach -" & _
          "{0}|;PROFILE={1};TABLETYPE=0;DATABASE={2};", displayUserName, _
          mapiProfile, Environment.GetEnvironmentVariable("TEMP"))
 
        ' SQL-Abfrage erzeugen
        Dim sql As String = String.Format("SELECT * FROM {0}", folderName)
 
        ' Neue Tabelle erzeugen
        Dim result As New DataTable(folderName)
 
        ' Verbindung zu Outlook herstellen
        Using connection As New OleDbConnection(connectionString)
            ' Datenadapter bauen
            Dim adapter As New OleDbDataAdapter(sql, connection)
 
            ' Inhalt des Outlook-Ordners abrufen
            adapter.Fill(result)
        End Using
        ' Tabelle mit Ordnerinhalt zurückgeben
        Return result
    End Function