use strict; use warnings; use Win32::OLE; my $Notes = Win32::OLE->new('Notes.NotesSession'); # my $Database = $Notes->GetDatabase('server1', 'db1\myown.nsf'); my $Database = $Notes->GetDatabase('server2', 'db2\group.nsf'); $Database->OpenMail; my $Document = $Database->CreateDocument; $Document->{Form} = 'Memo'; $Document->{SendTo} = ['recipient@address.com']; $Document->{Subject} = 'Test message'; my $Body = $Document->CreateRichTextItem("Body"); $Body->AppendText('test message'); $Document->Send(0);