Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
how to send htmlified mail in perl 1
- Thread starter khoont
- Start date
-
1
- #2
Some other guy just asked that a few pages back, so if you want to see how with sendmail look for that post, lately I sitched over to MIME::Lite however, and I think it makes my code look neater.
$message = qq~
<html>
This is my html message
</html>
~;
use MIME::Lite;
$msg = MIME::Lite->new(
From =>'me@yahoo.com',
To =>'someone@hotmail.com',
Subject =>'A Test Message',
Type =>'text/html',
Data =>"$message"
);
$msg->send; # Send the message
If you don't have MIME::Lite on your server, you can of course just use sendmail, but also you could download MIME::Lite from cpan.org and just put Lite.pm in your directory with your script and instead of use MIME::Lite; put
require "Lite.pm";
That's what I did and it works like a charm.
Also, if you use Mime Lite you can send attachments on a dime.
$msg = MIME::Lite->new(
From =>'me@yahoo.com',
To =>'you@hotmail.com',
Subject =>'A Test Message',
Type =>'multipart/mixed'
);
$msg->attach(Type =>'TEXT',
Data =>"MY NEW TEST!!!"
);
$msg->attach(Type =>'image/gif',
Path =>"$path/test.gif",
Filename =>'test.gif',
Disposition => 'attachment'
);
$msg->attach(Type =>'image/gif',
Path =>"$path/test2.gif",
Filename =>'test2.gif',
Disposition => 'attachment'
);
$msg->send; # send the message
Tony
- Status
Similar threads
