用perl脚本发送带附件的邮件

具体脚本如下:

 

#!/usr/bin/perl

use MIME::Base64;
use Encode;
use MIME::Lite;
my $str="测试邮件";
$str = "=?utf-8?B?" . encode_base64($str, "?=");
my $mymail = new MIME::Lite
        From     => 'myname@mail.myserver.com;',
        To       => 'myname@mail.myserver.com;',
        Subject  => "$str",
        HTMLCharset => 'utf-8',
        TextCharset => 'utf-8',
        TextEncoding => 'base64',
        Data => ("Hi,这是一封带附件的测试邮件。");
        HTMLEncoding => 'base64',
        Debug    => 1;
$mymail -> attach(Type => 'auto',Path => '/var/DBMail/TestFile.txt');
$mymail -> send('smtp','mail.myserver.com',Timeout=>60);