用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，不转发电子邮件，虽然，使原始发件人保持不变和收件人可以轻松地答复。