perl - 使用 Perl 发送消息和附件

Question

我有一些来自Mail::POP3Client的电子邮件，我需要将它们（包括附件）发送到另一个电子邮件地址（基本上，就好像它是从一个普通的电子邮件客户端转发的一样）。

我对 Perl 不是很熟悉，所以我已经研究了一段时间。我不确定执行此操作的最佳方法；我是否需要使用RetrieveToFile然后使用MIME::Lite发送它？人类可以阅读并包含附件吗？

似乎必须有一种我还没有发现的更简单的方法。我在正确的轨道上吗？

Answer 1

我用 MIME-tools 做了类似的事情，这是一个类似的包。在我这样做的时候，MIME-Lite 还不存在。但我确信 MIME-tools 可以处理您的要求。我无法想象 MIME-Lite 不能做类似的事情。

Answer 2

像桌面邮件客户端一样转发由两部分组成：

1. 电子邮件处理

   使用Courriel::Builder创建新电子邮件。附上您最初收到的电子邮件。附加电子邮件的适当mime_type参数是message/rfc822。

2. 电子邮件发送

   使用电子邮件::发件人。

---

不过，您可能希望重定向，而不是转发电子邮件，以便原始发件人保持不变并且收件人可以轻松回复。