Mail::Sendmail 带有附件并在 Bash 脚本中嵌入 Perl

Mail::Sendmail 带有附件并在 Bash 脚本中嵌入 Perl

1> 我想在 BASH 脚本中嵌入下面的 Perl 脚本,并且信息应该从 message.txt 文件中读取。如何实现?

  use Mail::Sendmail;

  %mail = ( To      => '[email protected]',
            From    => '[email protected]',
            Message => "This is a very short message"
           );

  sendmail(%mail) or die $Mail::Sendmail::error;

  print "OK. Log says:\n", $Mail::Sendmail::log;

2> 如何通过 Perl 脚本附加日志文件?

答案1

如果你打算在 bash 脚本中执行此操作,那么也许你可以不使用 Perl。在你的 bash 脚本中,有类似以下内容的内容:

mutt -F $HOME/.muttrc.me -x -a attachment.file -- [email protected] < message.txt

这需要杂种狗你可以有一个自定义.muttrc文件(本例中为 ($HOME/.muttrc.me ) 来控制From:标题:

my_hdr From: "Me Here" <[email protected]>
my_hdr Reply-To: [email protected]

答案2

@adamo 所说的方法很好,如果有很多收件人,这里还有另一种方法,也许效果更好:

cat message.txt | mail -a 'From: [email protected]' -a 'To: [email protected]' -s 'Subject for the message' [email protected]

相关内容