我需要处理一些邮件。我已经构建了一个脚本,可以解析邮箱并执行一些操作,如保存附件、将电子邮件移动到文件夹和其他管理任务。在此过程中,一些电子邮件被识别为流氓电子邮件,需要转发。这些邮件可能有也可能没有一个或多个附件,并被转储到它们自己的标有 的文件夹fwd
中。
我可以创建和发送新电子邮件,但在查找有关转发或回复现有电子邮件的信息时遇到问题。一种解决方案是将部分(正文、主题、附件)保存到数据库中并构造一条新消息,MIME::Lite
但这似乎充其量是低效的。
我正在使用Net::IMAP::Simple::SSL
和处理电子邮件MIME::Parser
。
由于电子邮件被转储到一个临时文件夹中以保存我并不完全反对使用 PHP 脚本来处理消息,而是更喜欢与我当前的 Perl 处理程序一致的东西来执行任务。
寻找一些有用的信息来帮助完成这项任务。