I am working toward writing a component that will synchronize my Outlook calendar with an Intranet. (Just getting started, I note)

With oFolder as an object pointing at my calendar folder in Outlook, I set and oItems collection to oFolder.Items and see that I have 124 entries. When I add in the IncludeRecurrences = True option, I get over 2 million entries, which I gather is because I have a series of recurring entries with no specified end date.

From what I read, I can alter the way in which I start my collection with something like the following, which should return the entries that are one week either side of today.

Set oItems = oFolder.Items.Restrict("[Start] > '" & (Date - 7) & "' AND [Start] < '" & (Date + 7) & "'")

However, when I check the oItems.Count, I see that I still have the 2 million ... which will obviously kill my application if I start looping through them to add to the database.

My question, then, is can I limit the collection to a date range of items that doesn't return a ridiculous amount of items?

Also, I noticed that I am not getting the popup thing which tells me the properties agains oItems, like I would have expected. I have got a few of the properties (start, subject, body, etc.,) from reading webpages, but wondered if someone might be able to point me in the direction of a more comprehensive list. With the synchronisation, I would like to see something like a GUID, who appoints a caldenar event, where it is, is there an alarm, etc.,

Any information would be greatly appreciated.

Regards,

Sean Anderson

__________________
Regards,

Sean Anderson

I am trying to do something similar to you, synchronising my outlook calendar with an external 3rd party application. I was wondering if you could send me the code you are using to access all the appointments you have in your outlook calendar folder. Thanks.

I did this in Javascript for a webpage, but I am sure that you could adapt it fairly easily into VB.


var oOutlook = new ActiveXObject("Outlook.Application");
var oNameSpace = oOutlook.GetNamespace("MAPI");
var oFolder = oNameSpace.GetDefaultFolder(9);
var oItems = oFolder.Items;
oItems.Sort ("Start");
oItems.IncludeRecurrences = false;

if (oItems.count == 0)
{
    alert("No events found in Calendar");
}
else
{
    for (var i = 1; i <= oItems.count; i++)
    {
        sData += "<TR>";

        sData += "<TD><INPUT name='exclude' type='checkbox' checked></TD>";

        sData += "<TD>" + busyStatus(oItems(i).BusyStatus) + "</TD>";

        if (oItems(i).AllDayEvent == true)
        {
            sData += "<TD>" + asDate(oItems(i).Start, "d/m/Y") + "</TD>";

            if (oItems(i).Duration == 1440)
            {
                sData += "<TD>1 Day</TD>";
            }
            else
            {
                sData += "<TD>" + (oItems(i).Duration/1440) + " Days</TD>";
            }
        }
        else
        {
            sData += "<TD>" + asDate(oItems(i).Start, "g:ia d/m/Y") + "</TD>";

            sData += "<TD>" + asDate(oItems(i).End, "g:ia d/m/Y") + "</TD>";
        }

        sData += "<TD>" + oItems(i).Subject + "</TD>";

        sData += "<TD style='display: none'>" + oItems(i).Organizer + "</TD>";

        sData += "<TD style='display: none'>" + oItems(i).Location + "</TD>";

        sData += "<TD style='display: none'>" + oItems(i).ReminderMinutesBeforeStart + "</TD>";

        sData += "<TD style='display: none'>" + oItems(i).EntryID + "</TD>";

        sData += "<TD style='display: none'>" + oItems(i).Body + "</TD>";

        if (oItems(i).AllDayEvent == true)
        {
            sData += "<TD style='display: none'>" + asDate(oItems(i).Start, "Y-m-d") + " 00:00:00</TD>";

            sData += "<TD style='display: none'>" + asDate(oItems(i).End, "Y-m-d") + " 00:00:00</TD>";
        }
        else
        {
            sData += "<TD style='display: none'>" + asDate(oItems(i).Start, "Y-m-d H:i") + ":00</TD>";

            sData += "<TD style='display: none'>" + asDate(oItems(i).End, "Y-m-d H:i") + ":00</TD>";
        }

        sData += "<TD style='display: none'>" + oItems(i).AllDayEvent + "</TD>";

        sData += "<TD style='display: none'>" + oItems(i).BusyStatus + "</TD>";

        sData += "<TD style='display: none'>" + asDate(oItems(i).CreationTime, "Y-m-d H:i") + ":00</TD>";

        sData += "<TD style='display: none'>" + oItems(i).Duration + "</TD>";

        sData += "</TR>";
    }


Regards,

Sean Anderson