Outlook agenda, set a range in the appointments

Hi,

I go thrue the outlook agenda by using a for loop (see example below) but
can I set a range for example all appointments from 1-5-2003 to 1-6-2003 and
go through them?

Example of my for loop:

    try
      outlook := GetActiveOleObject('Outlook.Application');
    except
      outlook := CreateOLEObject('Outlook.Application');
    end;
    ns := outlook.GetNamespace('MAPI');
    folder := GetCalendarFolder(ns.Folders);
    if not VarIsNull(folder) and not VarIsEmpty(folder) then
    begin
      for i := 1 to Folder.Items.Count do
      begin
        appointment := folder.Items[i];
        Subject := appointment.Subject;
        Body := appointment.Body;
        Location := appointment.Location;
        StartTime := appointment.Start;
        EndTime := appointment.End;
      end;
    end;

Thanks in advance for your reply,

Best regards,

Mischa E.J. Hoogendoorn