# öffnet Notes und zählt die Dokumente in der Inbox use Win32::OLE; my $Notes = Win32::OLE->new('Notes.NotesSession') or die "Cannot start + Lotus Notes Session object.\n"; my ($Version) = ($Notes->{NotesVersion} =~ /\s*(.*\S)\s*$/); print "The current user is $Notes->{UserName}.\n"; print "Running Notes \"$Version\" on \"$Notes->{Platform}\".\n"; $Database = $Notes->GetDatabase('', 'help4.nsf'); $Database -> OpenMail; $Inbox_view = $Database -> GetView('($Inbox)'); $inbox_documents = $Inbox_view -> AllEntries; $Count = $inbox_documents -> {Count}; print "There are $Count documents in the database.\n"; for (my $Index = 1 ; $Index <= $Count ; ++$Index) { my $Document = $inbox_documents->GetNthDocument($Index); print $Document->{Subject}->{Text},"\n"; my @Values = $Document->{Index_Entries}; foreach my $Value (@Values) { print " Index: $Value\n"; } last unless $Index < 10; }
20050422 Cleaned up by Corion: Changed <br> tags to newlines
In reply to notes perl problem by cybär
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |