OL 2003 – mehrere Termine verschicken

Hier mal nen Ansatz:
[line]
Private Sub sendBDay(eMail As String)
Dim myItem As Outlook.AppointmentItem
Dim obRE As RegExp
Dim subStr As String

Set obRE = New RegExp
obRE.pattern = \”*– Geburtstag*\”

For Each myItem In Outlook.AppointmentItem!Items
subStr = Outlook.AppointmentItem.Subject
If obRE.Test(subStr) Then
sendBDay = myItem_Itemsend()
End If
Next

End Sub
[line]
Jedoch liefert mir die Zeile \”For Each myItem In Outlook.AppointmentItem.Items\” nen Fehler, dass es die \”Methode oder Datenobject nicht gefunden\” wurde. Ich weiß aus dem Objectkatalog, das es Outlook.AppointmentItem.Items nicht gibt, aber was soll ich hier als richtige Auflistung nehmen???

Danke für jeden Tip,
Jan war´s

Nee, auch schon alles probiert. Es muss eine Auflistung sein…