如何使用perl更改电子邮件中的字体

Question

我想问一下如何使用Perl脚本在电子邮件中更改字体字体（Calibri到Courier New）？

我试图将包含表格格式的file.txt发送到电子邮件。 但是，表格没有正确安排在电子邮件内容中，但file.txt安排得很好。

我的电子邮件结果：

 hello |  morning | 30 | 40 |
 Yes|evening| 30 | 50 |

电子邮件的预期输出：

 hello      |  morning    | 30 | 40 |
 Yes        |  evening    | 30 | 50 |

enter code here

以下是我的代码：

＃！的/ usr / bin中/ perl的

my $file = '/nfs/site/disks/fm8_pnr_9/users/eewongon/max_cap/vio_table.txt';

open my $fh, '<', $file or die "Cannot open '$file' for reading: $!";
my $text = do {
local $/;
<$fh>
};
close $fh or die "Ugh: $!\n";

$to = 'someone@somewhere.com';
$from = 'someone@somewhere.com';
$subject = 'Testing';
$message = 'Hi, this is email sent by Perl Script';

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

# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";

# Email Body
print MAIL "$message\n";
print MAIL "\n$text\n";

close(MAIL); 
print "Email Sent Successfully\n";

Answer 1

您必须以HTML格式发送电子邮件才能使用其他字体。 但是，建议不要指定字体名称，而是使用pre标签允许系统选择可用的固定宽度字体，因为保留基于文本的表格式是您想要的。

# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Type: text/html\n\n";
# Email Body
print MAIL "<html>\n<body>\n<p>$message</p>\n<pre>$text</pre>\n</body>\n</html>\n";

Answer 2

您有一些表格格式的数据，因此您可以将其转换为HTML表格，该表格将以电子邮件客户端使用的任何字体正确呈现。 对于不支持HTML的电子邮件客户端，请提供纯文本版本，该版本将以固定宽度字体呈现。

下面的代码解析管道分离的CSV文件，并使用它来构建HTML表和纯文本替代。 然后将这两个文件添加到MIME::Entity对象中，该对象将创建您需要能够正确发送它的所有标头。

我已经使用了Text::CSV和MIME::Entity但是其他Perl模块也可以用来完成它们的工作。

use strict;
use MIME::Entity;
use Text::CSV;

my $file="test_input.txt"; # Change this to where your file is
my $subject="An email";
my $from="someone\@somewhere.com";
my $to="someone\@somewhere.com";

# Create the CSV parser. Confusingly the "allow_whitespace" strips whitespace rather than allowing it to pad out fields
my $csv=Text::CSV->new({sep_char => "|", allow_whitespace => 1});

# Build the MIME::Entity object
my $mime_email=MIME::Entity->build(
    From => $from,
    To => $to,
    Subject => $subject,
    Type => "multipart/alternative");

my $html="<table>\n";
my $text;
if(open(my $fh,"<",$file)) # Use the modern way of opening a file
    {
    while(my $line = <$fh>)
        {
        $text .= $line;
        $csv->parse($line);
        $html .= "<tr>";
        foreach my $field ($csv->fields())
                {
                $html .= "<td>".$field."</td>";
                }
        $html .= "</tr>\n";
        }
    close($fh);
    }
$html .= "</table>\n";

$mime_email->attach(Type => "text/plain",Data => $text);
$mime_email->attach(Type => "text/html",Data => $html);

# Send the email
if(open(my $mail,"|-","/usr/sbin/sendmail -t"))
    {
    $mime_email->print($mail);
    close($mail);
    }

这将生成一个电子邮件，看起来应该在各种电子邮件客户端上以其首选字体很好地呈现表格。

Content-Type: multipart/alternative; boundary="----------=_1529920158-30125-0"
Content-Transfer-Encoding: binary
MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
From: someone@somewhere.com
To: someone@somewhere.com
Subject: An email

This is a multi-part message in MIME format...

------------=_1529920158-30125-0
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary

hello      |  morning    | 30 | 40 |
Yes        |  evening    | 30 | 50 |

------------=_1529920158-30125-0
Content-Type: text/html
Content-Disposition: inline
Content-Transfer-Encoding: binary

<table>
<tr><td>hello</td><td>morning</td><td>30</td><td>40</td><td></td></tr>
<tr><td>Yes</td><td>evening</td><td>30</td><td>50</td><td></td></tr>
</table>

------------=_1529920158-30125-0--