First time out with Lotus.It can’t get much easier, can it?
I can’t open the mail database
(not that I’m sure what to do with it
once I get it :-).
Output and code included.
What’s this rookie doing that’s wrong?
Lotus opens fine on my box; 6.5, XP
Thanks
---------------------------- output
The current user is CN=Hustque/OU=TMC/OU=AM/O=RAYO Inc.
Running Notes “Release 6.5|September 26, 2003” on “Windows/32”.
MAIL: BEGIN_OLE_MESSAGE
Win32::OLE(0.1603) error 0x80020003: “Member not found”
in METHOD/PROPERTYGET ""
END_OLE_MESSAGE
---------------------------- code
use strict;
use Win32::OLE qw( in );
my $oleMsg = ‘’;
my $Notes = Win32::OLE->new(‘Notes.NotesSession’)
or die “Cannot start Lotus Notes Session object.\n”;
my ($Version) = ($Notes->{NotesVersion} =~ /\s*(.\S)\s$/);
print qq/The current user is $Notes->{UserName}.\n/;
print qq/Running Notes “$Version” on “$Notes->{Platform}”.\n/;
NotesDatabase class
my $dir = $Notes->GetDbDirectory(“”);
$oleMsg = Win32::OLE->LastError();
if ($oleMsg) {
print qq(DIR: BEGIN_OLE_MESSAGE\n$oleMsg\nEND_OLE_MESSAGE\n);
}
my $m = $dir->OpenMailDatabase();
$oleMsg = Win32::OLE->LastError();
if ($oleMsg) {
print qq(MAIL: BEGIN_OLE_MESSAGE\n$oleMsg\nEND_OLE_MESSAGE\n);
}