You can use the oAgenda collection's Sort and Restrict methods to do this. But one word of warning: date formatting is very particular (at least, on the US copies of Outlook I have used... may differ depending on outlook date settings and so on).

Try something like this:

loLocalAgenda = Createobject("Outlook.Application")
loNameSpace = loLocalAgenda.GetNameSpace("MAPI")
oAgenda = loNameSpace.GetDefaultFolder(9)

oAgenda.items.sort("[Start]")
lcDateRange = "[Start] >= 'March 12, 2003 12:01 AM' AND [End] >= 'March 12, 2003 11:59 PM'"
oSmallerCollection = oAgenda.items.Restrict(lcDateRange) 

Hope this helps.



>Hello,
>
>I'm using teh following code to open my calendar in Outlook :
>
>loLocalAgenda = Createobject("Outlook.Application")
>loNameSpace = loLocalAgenda.GetNameSpace("MAPI")
>oAgenda = loNameSpace.GetDefaultFolder(9)
>oShow = oAgenda.GetExplorer(2)
>oShow.Activate()
>
>It works fine but it's always today's calendar. How can I open the calendar of a specific date ?
>
>Greetings