如何使用 sendmail 在 perl 中添加图像和超链接到电子邮件?
这是我在 $message (变量)中想要的正文:
您的文件:filename.jpg
(在此处内联添加图像)
已处理,您可以在以下位置找到它:在此处添加链接 `
这是我的代码:
sub sendEmail
{
my ($to, $from, $subject, $message) = @_;
my $sendmail = '/usr/lib/sendmail';
open(MAIL, "|$sendmail -oi -t");
print MAIL "From: $from\n";
print MAIL "To: $to\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$message\n";
close(MAIL);
}
sendEmail($receiver, 'admin, 'your file has been Synchronized', $message);