Send mail in html format from perl script

Question

I am working on unix environment and have a perl scrip to send mail, but i need to send HTML formatted mail,but it printing as it is html code. so could anyone please let me know how it manipulate or compile the html and send formatted mail.

#!/usr/bin/perl
#print "Content-type: text/html\n\n";

print("enter my name");
chop($name=<stdin>);
&mail();


sub mail{

$title='perl';
$to='[email protected]';
$from= '[email protected]';
$subject=$name;

open(MAIL, "|/usr/sbin/sendmail -t");

## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL $name;
print MAIL "<html><body><p>";
print MAIL "<b>Hello</b>";
print MAIL "This is a test message from Cyberciti.biz! You can write your";

print MAIL "</p></body></html>";
##print MAIL "$title";
close(MAIL);
}

Its printing in mail:

<html><body><p><b>Hello</b>This is a test message from Cyberciti.biz! You can write your</p></body></html>

like this...as it is seems its not converting it into html format. So please help me over this.

check search.cpan.org/~rjbs/MIME-Lite-3.029/lib/MIME/Lite.pm or search.cpan.org/~rjbs/Email-MIME-1.920/lib/Email/MIME.pm — mpapec
– mpapec, Commented Jun 19, 2013 at 7:07
just one ques, can't i use html formatting with sendmail protocol ? — SteveScm
– SteveScm, Commented Jun 19, 2013 at 8:26
Possible duplicate of How can I send an HTML email with Perl? — Eugen Konkov
– Eugen Konkov, Commented Dec 10, 2016 at 21:10

Dave Cross · Accepted Answer · 2013-06-19 11:16:14Z

2

The fix for your problem is to add a content-type header saying that the mail is text/html.

However.

Please don't send HTML email without sending an equivalent plain-text attachment as well.
Please make your life easier by using a module. Stuff in the Email::* namespace is best.
Please throw away whatever book told you to call Perl subroutines using &. It's almost twenty years out of date.

answered Jun 19, 2013 at 11:16

Dave Cross

69.5k3 gold badges55 silver badges101 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Miguel Prz · Accepted Answer · 2013-06-19 07:32:21Z

1

Use Mime::Lite. This an example:

my $msg = MIME::Lite->new(
     To      => '[email protected]',
     Subject => 'HTML example',
     Type    => 'text/html',
     Data    => '<h1>Hello world!</h1>'
);

$msg->send();

answered Jun 19, 2013 at 7:32

Miguel Prz

13.8k32 silver badges42 bronze badges

6 Comments

SteveScm Over a year ago

could you please explain this line: MIME::Lite->new(

SteveScm Over a year ago

i run this code, but its not sending the mail , instead it printing the same line on console. <h1></h1><p>A message has been sent from to </p></body></html>

Miguel Prz Over a year ago

you need to install the CPAN MIME::Lite module, and then use it. See the link I provided

SteveScm Over a year ago

could i check on my linux machine whether it is installed or not. Any command

Harry Barry Over a year ago

run "ppm install MIME::Lite" if it is installed it will skip, if not, it will install it.

|

Community · Accepted Answer · 2017-05-23 11:53:04Z

0

Use Net::SMTP instead

Here is a link already existing on how to use it in HTML format.

Net::SMTP using HTML

The same link also shows you how you can Use Mime::Lite.

edited May 23, 2017 at 11:53

CommunityBot

11 silver badge

answered Jun 19, 2013 at 7:15

Harry Barry

1947 bronze badges

5 Comments

SteveScm Over a year ago

thanks . Could you please explain me what are these Net::SMTP. As i am new to perl and net protocol.

Harry Barry Over a year ago

@ Rohit889 Net::SMTP is module for perl, it allows you to do certain things instead of having to call external commands. so instead of you having to call Blat or sendmail as external command, you just install the module and then use it in your script.

Harry Barry Over a year ago

@Rohit889 Not all modules come preinstalled on perl, you need to install it yourself. easiest method is to run from command line "ppm install Net::SMTP" if behind a firewall, run this first. "set http_proxy=username:password@proxy_servername_or_IP:port"

SteveScm Over a year ago

Just one ques, can't i use html with sendmail protocol ?

Harry Barry Over a year ago

I am not sure, is sendmail not the old blat? I have not used it in a very long time.

ABelikov · Accepted Answer · 2020-01-28 13:15:14Z

Many of modern smtp-servers use SSL Authentication

So you can use Net::SMTP::SSL

The code looks like

use Net::SMTP::SSL; 

my $to = '[email protected]';
my $subject = 'Message subject';
my $message = '<h1>Hello</h1>';

my $user = 'USERLOGIN';
my $pass = 'USERPASSWORD';

my $server     = 'smtp.server.com';
my $from_name  = 'NAME';
my $from_email = '[email protected]';

my $smtps = Net::SMTP::SSL->new($server, Port => 465, DEBUG => 1) or warn "$!\n"; 

defined ($smtps->auth($user, $pass)) or die "Can't authenticate: $!\n";

$smtps->mail($from_email);
$smtps->to($to);
$smtps->data();
$smtps->datasend("To: $to\n");
$smtps->datasend(qq^From: "$from_name" <$from_email>\n^);
$smtps->datasend("Subject: $subject\n\n");
$smtps->datasend($message."\n");
$smtps->dataend();

if ($smtps->quit()) {
    print "Ok";
}

Collectives™ on Stack Overflow

Send mail in html format from perl script

4 Answers 4

Comments

6 Comments

5 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

Comments

6 Comments

5 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related