Lotus Notes Script - Anzeige ungelesener E-Mail

[goepp]

Hajo!

Ich greife mit Perl und Win32::OLE auf Lotus zu. Bisher habe ich es nur geschafft mir alle Nachrichten anzeigen zu lassen. Ich möchte aber nur die ungelesenen angezeigt bekommen.

#!/usr/bin/perl


#use strict;


use Win32::OLE;


#connect to the Notes database

my $Notes = Win32::OLE->new('Notes.NotesSession') || warn "Cannot start Lotus Notes Session object: $!\n";

my $Database = $Notes->GetDatabase("192.168.1.10", "mail\\test.nsf");


#Fetch contents of the folder

my $Response = $Database->GetView("\$Inbox");

my $Count = $Response->TopLevelEntryCount;

my $Index = $Count;


#loop through all emails

for (1..$Count)

{

    my $Document = $Response->GetNthDocument($Index--);

    my $subject = $Document->GetFirstItem('Subject')->{Text};

    print "Subject: $subject\n";

}


[/PHP]