Aufgabenbereich eines Funktionspostfaches automatisch abfragen

Hallo zusammen,

Wie kann ich mit vba den Kalender meines Funktionspostfaches abfragen?
Bzw. mir reichen eigentlich die Erinnerungen.

Ich krieg es hin die Erinnerungen des normalen Postfaches abzufragen, mit dem folgenden Quelltext:

Sub Aufgaben_Prüffeld()
\’Variablen:
Dim olApp As Outlook.Application \’Deklaration Variable olApp als Anwendung
Dim objRems As Outlook.Reminders \’Deklaration Variable objRems als Erinnerung
Dim objRem As Outlook.Reminder \’Deklaration Variable objRem als Erinnerung

Dim strTitleHeute As String \’Deklaration Variable strTitleHeute als String
strTitleHeute = \”anstehende Erinnerungen heute: \” \’Definition Variable strTitleHeute

Dim strTitleVerG As String \’Deklaration Variable strTitleVerg als String
strTitleVerG = \”anstehende Erinnerungen Vergangenheit: \” \’Definition Variable strTitleVerg

Dim strReportHeute As String \’Deklaration Variable strReportHeute als String
strReportHeute = \”\”

Dim strReportVerG As String \’Deklaration Variable strReportVerG als String
strReportVerG = \”\”

Dim heute As Date \’Deklaration Variable heute als Datum
Dim DateTask As String \’Deklaration Variable aufg als String
heute = Date \’Zuweisung des Datums von heute an heute

\’Programm
Set olApp = New Outlook.Application
Set objRems = olApp.Reminders

For Each objRem In objRems \’Schleife zum Sammeln der Daten
DateTask = Format(objRem.NextReminderDate, \”dd.mm.YYYY\”) \’DateTask das Datum der Erinnerung zuweisen

If DateTask = heute Then strReportHeute = strReportHeute & objRem.Caption & vbTab & objRem.NextReminderDate & vbCr
\’Daten für Heute sammeln

If DateTask < heute Then strReportVerG = strReportVerG & objRem.Caption & vbTab & objRem.NextReminderDate & vbCr
\'Daten für Vergangenheit sammeln
Next objRem \'nächste Erinnerung

\' MsgBox objRem

MsgBox strTitleHeute & vbCr & vbCr & strReportHeute & vbCr & vbCr & _
strTitleVerG & vbCr & vbCr & strReportVerG, vbOKOnly, \"Zentrale Aufgaben Prüffeld WE\" \'Ausgabe an MassageBox
End Sub

Vielen Dank schonmal für die Hilfe