[Perl]发送带附件的邮件
时间：2006-09-05 来源：huhuegg
#!/usr/bin/perl
use MIME::Entity;
my $date=`date`;
chomp $date;
$top = MIME::Entity->build(Type =>"multipart/mixed",
From => "aaa\@aaa.com",
To => "aaa\@aaa.com",
Subject => $date,
Data => "DATA TEST...");
$top->attach(Path => "./Head.jpg",
Type => "image/jpeg",
Encoding => "base64"); #$top->sign(File=>"/tmp/.signature");
### Output it:
# $top->print(\*STDOUT); $top->send;
use MIME::Entity;
my $date=`date`;
chomp $date;
$top = MIME::Entity->build(Type =>"multipart/mixed",
From => "aaa\@aaa.com",
To => "aaa\@aaa.com",
Subject => $date,
Data => "DATA TEST...");
$top->attach(Path => "./Head.jpg",
Type => "image/jpeg",
Encoding => "base64"); #$top->sign(File=>"/tmp/.signature");
### Output it:
# $top->print(\*STDOUT); $top->send;
相关阅读 更多 +
排行榜 更多 +
