Hello,

I hope somebody can help me with my problem. I try to find all appointments on a specific date (day). I want to use the find method in Outlook.

Tried :

#Define olFolderCalendar 9

set date to german
set century on
oOutlook = Createobject('outlook.application')
oNameSpace = oOutlook.getnamespace('MAPI')
oDefaultFolder=oNameSpace.GetDefaultFolder(olFolderCalendar)
oItems = oDefaultFolder.items
fromdate = "03.05.2012 00:00:00"
todate = "03.05.2012 23:59:00"
currentAppointment = oItems.Find("[START] gt " + "'" + fromdate + "'" + " and [START] lt " + "'" + todate + "'")

Sorry but replace gt with greater than and lt with lower than. Universalthread does not allow the signs.


I have tried every date/time format but nothing works. currentAppointment is always NULL

Any help is appreciated :-)
Thanks

Marcus