使用Perl发送消息和附件

Question

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

我对Perl不太熟悉，所以我一直在研究这个问题。我不确定这样做的最好方法;我是否需要使用 RetrieveToFile ，然后使用 MIME :: Lite 发送？人类是否可读并包含附件？

似乎还有一种我尚未发现的简单方法。我是在正确的轨道上吗？

Answer 1

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

Answer 2

像桌面邮件客户端一样转发包含两部分：

1. 电子邮件munging

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

2. 电子邮件发送

   使用Email::Sender。

---

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