Outlook + Perl + Win32 :: Ole: Wie wählen Sie Kalendereinträge nach Datum sortiert aus?

Question

Aktuelle Code öffnet eine Outlook-Kalender-Datenbank als Follow-up:

my $outlook = Win32::OLE->GetActiveObject('Outlook.Application') || Win32::OLE->new('Outlook.Application', 'Quit'); 

my $namespace = $outlook->GetNamespace("MAPI"); 

## only fetch entries from Jan 1, 2007 onwards 
my $restrictDates = "[Start] >= '01/01/2007'"; 

Answer 1

Da Sie den Code nicht zeigen, dass das Datum des Objekts wird, diese Frage ohne Kenntnis des Outlook zu beantworten unmöglich ist, dass Sie das Objekt versuchen zuzugreifen.

Wenn Sie ein Array von Objekten haben, können Sie sie nach Datum sortieren und eines vor einem bestimmten filtern.

my $sub = sub { 
     my $ad = $a->date_string_accessor; 
     my $bd = $b->date_string_accessor; 
     $ad =~ s:(\d+)/(\d+)/(\d+):$3 . sprintf('%0d', $1) . sprintf('%0d', $2):e; 
     $bd =~ s:(\d+)/(\d+)/(\d+):$3 . sprintf('%0d', $1) . sprintf('%0d', $2):e; 
     return $ad cmp $bd; 
}; 

my @sorted = sort $sub @unsorted; 

print join("\n", @sorted); 

Aber es scheint mir, dass Sie die Anwendung verwenden, sollte sich dies zu tun - vermutlich hat Outlook eine Art von Abfrage/Sortierfunktion.