Works great now. Thanks
Note:
$Document->Send(1); # The mail file sent is almost 200k. Probably saving
blank space somewhere.
$Document->Send(0); # Is nice and small.
Chris Benco
Chris,
You miss a line "$Document->{'Form'} = 'Memo';" ,and setup the
parameter
is a string.
Jeferson Ladeia
my $userid = "XXXXXXX";
my $server = "XXXX/XXXX";
my $Notes = Win32::OLE->new('Notes.NotesSession')or die "Cannot start Lotus
Notes Session object.\n";
my $Database = $Notes->GetDatabase("$server", "mail\\$userid.nsf") or die
"Could not open database.\n";
my $Document = $Database->CreateDocument('WORK') or die "$!: can't create
document";
$Document->{'Form'} = 'Memo';
$Document->{'Body'} = 'Test Message';
$Document->{'SendTo'} = '[EMAIL PROTECTED]';
$Document->{'Subject'} = 'Notes Email Generated with Perl';
$Document->Save(1, 1);
$Document->Send('1');
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
