Re: How do I send e-mail from my Perl Program?

[Adam]

use strict; # ALWAYS!
use Net::SMTP; # Yes, this will work on windows.

# You need to fill in the variables.
# Read the perldoc for more info on using SMTP.

my $smtp = Net::SMTP->new('$mailserver_url') or die $!;
$smtp->mail( $from );
$smtp->to( $to );
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n"); # done with header
$smtp->datasend($message);
$smtp->dataend();
$smtp->quit(); # all done. message sent.

[cLive ;-)]

Small error:

my $smtp = Net::SMTP->new('$mailserver_url') or die $!;

should be:

my $smtp = Net::SMTP->new($mailserver_url) or die $!;

or

my $smtp = Net::SMTP->new("$mailserver_url") or die $!;

Single quotes aren't interpolated!

cLive ;-)