Mail with Perl

[Anonymous Monk]

How can u use ur perl script to mail to a user?

[borisz]

Use a modul. Net::SMTP, Mail::Mailer or Mail::Send.

[davorg]

This is a FAQ.

How do I send mail?

[reneeb]

see How do I send mail?... And an other node: How do I send e-mail from my Perl Program?

Additionally I would like to recommend the module Mail::Sender...

[edan]

Since nobody recommended it yet, we use Mail::Sendmail and it does the job quite nicely. It also purports to be platform-independent.

[pingo]

If you want to send multipart mails, I would recommend MIME::Lite.

[TedPride]

Unless I made a mistake somewhere, the following should work fine:

use strict;
use Net::SMTP;

my $message = join('', <DATA>);
my %hash = (
    'Host'     => '123.456.789.012', # Mail server address
    'From'     => '[e-mail]',
    'Reply-To' => '[e-mail]',
    'To'       => '[e-mail]',
    'Subject'  => 'This is my email subject',
    'Message'  => \$message,
);
mailer(\%hash);

sub mailer {
    my $r = shift;
    print ("From: $r->{'From'}\n" .
                    "To: $r->{'To'}\n" .
                    "Reply-To: $r->{'Reply-To'}\n" .
                    "Subject: $r->{'Subject'}\n\n" .
                    ${$r->{'Message'}});
}

__DATA__
Welcome to my email! This is the
message to be mailed...

-TedPride

This is a much simplified version of an email script I use to send mailings through my SMTP. I would have tested it before posting, but the SMTP is down atm.