Chris,
I believe that only exist one method to access Lotus Notes thru Perl. This
method is OLE.
The text above show this:
Lotus Notes can be accessed through OLE, for example like this:
use strict;
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";
my $Database = $Notes->GetDatabase('', 'help4.nsf');
my $AllDocuments = $Database->AllDocuments;
my $Count = $AllDocuments->Count;
print "There are $Count documents in the database.\n";
for (my $Index = 1 ; $Index <= $Count ; ++$Index) {
my $Document = $AllDocuments->GetNthDocument($Index);
printf "$Index. %s\n", $Document->GetFirstItem('Subject')->{Text};
my $Values = $Document->GetItemValue('Index_Entries');
foreach my $Value (@$Values) {
print " Index: $Value\n";
}
last unless $Index < 5;
}
You can access all objects that are accessible to LotusScript, and the
LotusScript classes can be seen at
http://www.lotus.com/products/lotusscript.nsf. A good idea would also be to read
Jan Dubois article in TPJ#10 (visit The Perl Journal at http://tpj.com/)
http://aspn.activestate.com//ASPN/Reference/Products/ActivePerl/faq/Windows/ActivePerl-Winfaq12.html#use_notes
Jeferson Ladeia
"Chris Benco" <[EMAIL PROTECTED]> on 13/08/2002 10:01:15
To: [EMAIL PROTECTED]
cc: (bcc: JEFERSON LADEIA/DNBR)
Subject: Desperately Seeking Notes ProgID
Checked Notes.net and a few other places, doesn't seem anyone using notes
has ever even heard of Perl....
Is there some trick to finding ProgID's on a win32 system? some way to
extract them from a process or some place to look them up? Perl Doc's has
a VERY extensive list of control objects but I can't get anything working
without a way to tell Perl which process I'm trying to work with.
Just feels like I'm missing something simple here..
Help!!
Chris Benco
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
