Question

我正在尝试使用attachemnts发送电子邮件的代码。但是这段代码只发送电子邮件而不是附件。

有人可以帮忙吗？

open(SENDMAIL, "|/usr/lib/sendmail -oi -t -i") or die "Can't fork for sendmail: $!\n";

print SENDMAIL <<"EOF";

From: <new\@something.com>

To: <new\@something.com>

Cc: <new\@something.com>

Subject: this is our email

Content-type: text/plain

Hi This is the mail

EOF

close(SENDMAIL);

Answer 1

使用原始Unix命令从Perl发送电子邮件大约二十年前已经过时了。你最好不要寻找一个好的CPAN模块。

在这种情况下，我建议Email::Stuffer。

Email::Stuffer->from('new@something.com')
              ->to('new@something.com')
              ->cc('new@something.com')
              ->subject('this is our email')
              ->text_body('Hi, this is the email')
              ->attach_file('your_file.txt')
              ->send;

不使用CPAN只会让你的生活更加艰难。

Answer 2

mailx - 是解决方案。 echo "Reminder " | mailx -asm\@pe.net -a "location of file" -s "this is email" -asm\@pe.net

如何在perl中发送附带附件的电子邮件

2 个答案: