#!perl -w use strict; use Win32::OLE; my $message = ''; while (<DATA>) { $message .= $_; } my $mail = new Win32::OLE('Outlook.Application'); my $item = $mail->CreateItem(0); $item->{'To'} = 'email@address.here'; $item->{'Subject'} = 'whatever you want'; $item->{'Body'} = $message; if ( $item->Send() ) { print "email sent.\n" } else { print "email not sent!\n" } __DATA__ blah blah blah
In reply to Re: Perl in Win32: How do I email form output?
by larryk
in thread Perl in Win32: How do I email form output?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |