如何从Perl发送html电子邮件?

时间:2020-01-09 14:16:44  来源:igfitidea点击:

问题描述:如何在UNIX/Linux和Apache Web服务器下从cgi perl程序发送html电子邮件?

解决方法:使用MIME :: Lite CPAN模块,发送HTML电子邮件是一项轻松的任务。
它是低热量的MIME生成器。

它可以用于将HTML电子邮件,图形文件电子邮件附件作为单部分或多部分消息发送。
这是发送HTML电子邮件的简单Perl脚本。

安装Perl MIME :: Lite

如果您没有MIME :: Lite模块,请使用以下命令进行安装(以root用户身份登录):

# cpan -i  MIME::Lite

Perl脚本代码

cpan -i MIME :: Lite

#!/usr/bin/perl -w
use strict;
use MIME::Lite;

# SendTo email id
my $email = '[email protected]';

# create a new MIME Lite based email
my $msg = MIME::Lite->new
(
Subject => "HTML email test",
From    => '[email protected]',
To      => $email,
Type    => 'text/html',
Data    => '<H1>Hello</H1><br>This is a test email.
Please visit our site <a href="http://theitroad.local/">online</a><hr>'
);

$msg->send();

从perl发送html电子邮件的脚本:

保存脚本并执行。