Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Sending mail from Lotus Notes (multiple mailboxes)

by maskull (Novice)
on Sep 20, 2012 at 13:53 UTC ( #994667=perlquestion: print w/ replies, xml ) Need Help??
maskull has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I am trying to send a message from Lotus Notes. I have access to my own mailbox, plus we have a group mail that we use, mapped in my Workspace. The problem is that no matter which server and database I specify (see the line that is commented out), the script always sends the message from my mailbox, as myself. The code is below. I'd appreciate any input, I'm guessing some LotusScript expertise is required.
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} = ['']; $Document->{Subject} = 'Test message'; my $Body = $Document->CreateRichTextItem("Body"); $Body->AppendText('test message'); $Document->Send(0);
EDIT: ----- Got it. It's $Document->{Principal} = '' method that allows you pose as the group sender :)

Comment on Sending mail from Lotus Notes (multiple mailboxes)
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://994667]
Approved by MidLifeXis
Front-paged by MidLifeXis
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2014-09-16 12:00 GMT
Find Nodes?
    Voting Booth?

    How do you remember the number of days in each month?

    Results (14 votes), past polls