On 5/22/02 6:19 PM, Lance Prais <[EMAIL PROTECTED]> wrote:
> HOW CAN I SEND MAIL USING PERL ON NT? DOES ANYONE KNOW OF EXAMPLES THAT
> ARE OUT THERE ON THE WE?
YOU CAN USE THE Net::SMTP MODULE. IT WORKS QUITE WELL FOR THINGS LIKE THIS.
HERE IS A SNIPPET THAT MIGHT HELP. SEE THE DOCS ON THE Net:SMTP MODULE FOR
MORE HELP. IT IS ALSO A GOOD IDEA NOT TO POST MESSAGES IN ALL CAPS, AS IT IS
CONSIDERED SHOUTING, ok?
<code>
#!/usr/bin/perl
use Net::SMTP;
$server = 'your-smtp-server';
$to = '[EMAIL PROTECTED]';
$from_name = 'You';
$from_email = '[EMAIL PROTECTED]';
$subject = 'hello, email';
$smtp = Net::SMTP->new($server);
$smtp->mail($from_email);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend(qq^From: "$from_name" <$from_email>\n^);
$smtp->datasend("Subject: $subject\n\n");
$smtp->datasend("This will be the body of the message.\n");
$smtp->datasend("\n--\nVery Official Looking .sig here\n");
$smtp->dataend();
$smtp->quit();
print "done\n";
</code>
You can alternatively just put everything in the argument to $smtp->data(),
and forget about datasend() and dataend();
--
Michael
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
