use strict;
use warnings;

use Win32::OLE;

my $Notes = Win32::OLE->new('Notes.NotesSession')
    or die "Cannot start Lotus Notes Session object.\n";
my $Database = $Notes->GetDatabase('server', 'dbfile.nsf');
my $View = $Database->GetView("By Start Date");

# Date format is according to your regional setting
my $start_date = "03/28/07";
my $StartDate = $Notes->CreateDateTime($start_date);

#my $date_range = "03/01/07 - 03/31/07";
#my $DateRange = $Notes->CreateDateRange();
#$DateRange->{Text} = $date_range;

# Use $StartDate or $DateRange here
my $Entries = $View->GetAllEntriesByKey($StartDate);
my $Entry = $Entries->GetFirstEntry();

print "Documents with Start Date $start_date\n";
while ($Entry) {
  my $doc = $Entry->Document();
  my $subj = $doc->GetFirstItem('Subject')->{Text};

  print "Subject: $subject\n";

  $Entry = $Entries->GetNextEntry($Entry);
}
[download]