Mail erstellen über externes Programm
Hallo,
hat da jemand bitte ein fertiges Beispiel?
Grüße, Pippo
use strict;
use Win32::OLE;
my $Notes = Win32::OLE-> new('Notes.NotesSession')
or die "Cannot start Lotus Notes Session object\n";
my $Database = $Notes-> GetDatabase('', '');
$Database-> OpenMail;
my $Document = $Database-> CreateDocument;
$Document-> {Form} = 'Memo';
$Document-> {SendTo} = ['Peter', 'Paul', 'Mary'];
$Document-> {Subject} = 'This is a new subject';
$Document-> {Body} = 'This is the message';
$Document-> Send(0);