Mail with Perl

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Mail with Perl by borisz (Canon) on Nov 02, 2004 at 08:54 UTC
Use a modul. Net::SMTP, Mail::Mailer or Mail::Send. Boris	[reply]
Re: Mail with Perl by davorg (Chancellor) on Nov 02, 2004 at 09:52 UTC
This is a FAQ. How do I send mail? -- <http://www.dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]
Re: Mail with Perl by reneeb (Chaplain) on Nov 02, 2004 at 09:46 UTC
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...	[reply]
Re: Mail with Perl by edan (Curate) on Nov 02, 2004 at 10:16 UTC
Since nobody recommended it yet, we use Mail::Sendmail and it does the job quite nicely. It also purports to be platform-independent. -- edan	[reply]
Re: Mail with Perl by pingo (Hermit) on Nov 02, 2004 at 10:18 UTC
If you want to send multipart mails, I would recommend MIME::Lite.	[reply]
Re: Mail with Perl by TedPride (Priest) on Nov 02, 2004 at 12:16 UTC
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' => 'me@domain.com', 'Reply-To' => 'me@domain.com', 'To' => 'them@domain.com', '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 [download] 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.	[reply] [d/l]