用Perl转发IMAP消息

Question

我需要处理一些邮件。我已经创建了一个脚本，可以通过邮箱解析并执行多项操作，例如保存附件，将电子邮件移动到文件夹和其他管理任务。一些电子邮件在这个过程中被识别为流氓，并且需要被转发。这些消息可能有也可能没有一个或多个附件，并且被转储到标有fwd的自己的文件夹中。

我可以创建并发送新的电子邮件，但在转发或回复现有电子邮件时遇到问题。一种解决方案是将零件（主体，主题，附件）保存到数据库中，并用MIME::Lite构造新消息，但这看起来似乎效率低下。

我正在处理电子邮件Net::IMAP::Simple::SSL和MIME::Parser。

由于电子邮件被转储到一个临时文件夹中，我并不完全反对使用PHP脚本来处理消息，而是更喜欢与我当前的Perl处理程序一致的东西来执行任务。

寻找一些有用的信息来帮助完成此任务。

Answer 1

您可能想看看CPAN的Mail::Box，这是一个处理邮件消息的丰富（并且有点复杂）模块，包括诸如message-> copy和message-> reply的原语。

对于文档和示例，作者的网站是在http://perl.overmeer.net/mailbox/