goepp Geschrieben 24. Oktober 2008 Teilen Geschrieben 24. Oktober 2008 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] Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.