用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/