Re: Sending HTML e-mail

You are indeed specifying a content type of 'text/html' ...

<UPDATE>
but that is the wrong place to set it! The Type attribute in the IO::Socket::INET constructor is for the socket type, not the content type!
</UPDATE>

There is most definitely a better way to send email. It's called MIME::Lite:

use strict;
use warnings;
use LWP::Simple;
use MIME::Lite;

my $html = get('http://site.com/pagetest.html') or die "no html\n";

my @mailto = map "ok$_\@ok.com", (1..3);

for my $to (@mailto) {
   my $msg  = MIME::Lite->new(
       From     => 'master-ok@ok.com',
       To       => $to,
       Type     => 'text/html',
       Subject  => 'Hell is breaking loose!',
       Data     => $html,
   );

   $msg->send or die "couldn't send message to '$to'\n";
}
[download]

UPDATED code: put into for loop to try and mimic the seeker's code.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on Re: Sending HTML e-mail Download Code

Replies are listed 'Best First'.
Re^2: Sending HTML e-mail by rbholder (Initiate) on Nov 06, 2014 at 17:21 UTC
I tried the MIME::Lite approach and got back - error closing /usr/lib/sendmail: (exit 17408) Any ideas on how to fix this ???	[reply]
Re^3: Sending HTML e-mail by jeffa (Bishop) on Feb 05, 2015 at 17:59 UTC
I am afraid i do not. The error indicates that the problem lies within the sendmail app itself. I would try to upgrade your system sendmail if possible, or try to use another app (google for "sendmail alternatives"). jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l] [select]