需要指出的一定要保持编码的一致，否则会导致要么html乱码，或者主题乱码。如果有多个图片，可以采用多个Attach，html调用的图片名称为Attach中定义的。
效果图：
#!/usr/bin/perl
use strict;
use warnings;
use Config::Tiny;
use FindBin;
use Mail::Sender;
my $configFile = "$FindBin::Bin/config.ini";
my $configNew = Config::Tiny->new;
my $configRead = $configNew->read($configFile);
my $configMail = $configRead->{‘mailInfo‘};
eval {
( new Mail::Sender )->OpenMultipart(
{
from => "$configMail->{‘from‘}",
to => "$configMail->{‘to‘}",
smtp => "$configMail->{‘smtp‘}",
auth => ‘LOGIN‘,
TLS_allowed => ‘0‘,
authid => "$configMail->{‘user‘}",
authpwd => "$configMail->{‘passwd‘}",
subject => "$configMail->{‘title‘}",
boundary => ‘boundary-test-1‘,
multipart => ‘related‘,
encoding => "7bit",
}
)->Part( { ctype => ‘multipart/alternative‘ } )->Part(
{
ctype => ‘text/html;charset=utf-8‘,
disposition => ‘NONE‘,
msg => <<‘*END*‘} )
<html>
<head>
<title>xxxxx</title>
<style>
h1 {font-size:20px; color: green}
</style>
</head>
<center>
<h1>
###图片一###</h1>
<img src="cid:img1">
</center>
</html>
*END*
->EndPart("multipart/alternative")->Attach(
{
description => ‘c\‘s png‘,
ctype => ‘image/png‘,
encoding => ‘base64‘,
disposition =>
"inline; filename=\”test.png\";\r\nContent-ID: <img1>",
file => ‘./test.png‘
}
)->Close();
} or print "Error sending mail: $Mail::Sender::Error\n”;
config.ini
[mailInfo] to = [email protected]163.com from = [email protected]163.com smtp = smtp.163.com user = [email protected]163.com passwd = pass title = 标题
时间： 2024-10-12 15:01:05