' using System.Data.OleDb; // Nicht vergessen!
 
    ''' <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="folderName">Name des Ordners (z.B. "Posteingang")</param>
    ''' <returns>Inhalt des Outlook-Ordners</returns>
    Private Function GetOutlookFolderData(ByVal mapiProfile As String, ByVal _
      USERNAME_POSTFACH 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={0}|;PROFILE={1};TABLETYPE=0;DATABASE={2};", _
          USERNAME_POSTFACH, mapiProfile, Environment.GetEnvironmentVariable( _
          "TEMP"))
 
        '' SQL-Abfrage erzeugen
        'Dim sql As String = String.Format("SELECT * FROM `" & folderName & "`")
 
        ' 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 System.Data.OleDb.OleDbConnection( _
          connectionString)
            ' Datenadapter bauen
            Dim adapter As New System.Data.OleDb.OleDbDataAdapter(sql, _
              connection)
 
            ' Inhalt des Outlook-Ordners abrufen
            adapter.Fill(result)
        End Using
        ' Tabelle mit Ordnerinhalt zurückgeben
        Return result
    End Function