使用perl模块MIME::Lite发送带附件的邮件

#!/usr/bin/perl
use strict;
use warnings;

use Net::SMTP;
use Authen::SASL;
use MIME::Lite;

my $host="smtp.163.com";
my $from="test@163.com";
my @to=('test1@163.com','test2@163.com');
my $subject="welcom to homepage";
my $text = "do it now";

my $attach = "/home/jbxue/images/123.jpg";

my $user='test@163.com';
my $pwd="12345670";

my $smtp=Net::SMTP->new($host,Hello=>'localhost',Timeout=>120,Debug=>1);
$smtp->auth($user,$pwd);

my $msg;
my $str;

foreach my $t_mail(@to){
   $msg=MIME::Lite->new(
      From=>$from,
      To=>$t_mail,
      Cc=>'test@163.com',
      Subject=>$subject,
      Data=>$text
   );
   $msg->attach(
      Type=>'auto',
      Path=>$attach,
      Filename=>'123.jpg',
      Disposition=>'attachment'
   );
   $str=$msg->as_string() or die "$!";

   $smtp->mail($from);
   $smtp->to($t_mail);

   $smtp->data();

   $smtp->datasend("$str");

   $smtp->dataend();
}
$smtp->quit();

#!/usr/bin/perl
use strict;
use warnings;

use MIME::Lite; #这个用来组织邮件信息内容
use Pod::Usage;
use Getopt::Long;
use MIME::Base64;
use MIME::Words qw/:all/;
use Authen::SASL;
my $options = {
        from    => 'bot',
};

GetOptions( $options,
            'help|?',       # 帮助
            'html!',        # HTML 邮件支持
            'subject=s',    # 邮件标题
            'from=s',       # 发件人
            'to=s',         # 收件人
            'cc=s',         # 抄送
            'attach|a=s@', # 附件
        ) or pod2usage();

pod2usage() if $options->{help};
pod2usage() unless $options->{subject} and $options->{to};

my $cc   = $options->{cc} || '';
my $lines = <>;

#$lines=encode_base64("$lines",'');

# 邮件服务器的连接信息
MIME::Lite->send("smtp", "smtp.163.com",AuthUser=>‘myusername',AuthPass=>'******',Debug => 0, Timeout => 60);

# 组织邮件信息内容
my $msg = MIME::Lite->new(
                From => $options->{from},
                To => $options->{to},
                cc => $cc,
                Subject => encode_mimeword($options->{subject},'b','utf-8'),
                #Subject => $options->{subject},
                #Subject => '=?utf-8?B?'.encode_base64("$options->{subject}").'?=',
                Type => 'multipart/mixed'
                );

if (not $options->{html} ){
    $msg->attach( 
            Encoding =>'base64',
            Type =>'text/plain;charset=utf-8',
            Data => $lines
            );
  
}else{
    $msg->attach(
            Encoding =>'Base64',
            Type =>'text/html; charset=utf-8',
            Data => $lines
            );
}
### attach: $options->{attach}
for ( 0 .. $#{$options->{attach}} ) {
    $msg->attach(
           Type =>'auto', #建议设置成auto要不就application/octet-stream
           Path => $options->{attach}[$_],
           Encoding => 'Base64',
           Disposition => 'attachment'
           );
}
print STDERR "正在发送.......n";
$msg->send() or die "Couldn't send whole message: $!n";
__END__