Has anyone had success attaching a file to a Lotus
Notes email using Perl? I have the following script
which sends the email, but, so far no attachment.
TIA
Brad
use Win32::OLE;
use Win32::OLE::Variant;
$file = "c:\\sstrm60\\batch\\pcareport.xls";
send_mail('Brad Currens','@anywhere.com');
sub send_mail {
my($name, $notesdomain) = @_;
my($session, $db, $doc, $body);
$session = Win32::OLE->new('Notes.NotesSession')
or die "Cannot start Lotus Notes Session
object.\n";
$db = $session->GetDatabase( '' , '');
$db->OpenMail;
$doc = $db->CreateDocument;
$doc->{'Form'} = 'Memo';
$doc->{'SendTo'} = ["$name$notesdomain"];
$doc->{'CopyTo'} = [""];
$doc->{'Subject'} = 'PCA Interface Report';
$body = <<'__STOP_IT';
PCA Interface attachment.
__STOP_IT
$doc->{'Body'} = $body;
$rtitem = $doc->CreateRichTextItem( "PCA Report"
);
$object =
$rtitem->EmbedObject(EMBED_ATTACHMENT,"","c:\\sstmr60\\batch\\pcareport.xls");
$doc->save(1,1);
$doc->send(1);
return();
}
__________________________________________________
Do You Yahoo!?
Spot the hottest trends in music, movies, and more.
http://buzz.yahoo.com/
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
