Perl 解析 Outlook 收件箱中的电子邮件和附件

Question

我正在使用Mail::IMAPClient 连接到我们的 Outlook 邮件服务器。我可以很好地收到邮件并将该邮件的文本版本打印到文件中。但我无法使用MIME::Parser 解析电子邮件。

我已尝试为解析器提供一个文件句柄，该句柄指向我写电子邮件的文本文件。我试过只给解析器电子邮件的文本，但它不会像我期望的那样工作。实体部分始终等于 0。

当我转储实体骨架时，我得到

  Content-type: text/plain
  Effective-type: text/plain
  Body-file: NONE
  --

我可以看到文件中电子邮件的所有部分。附加的两个 PDF 文件都在那里，以 base64 编码，所以我知道脚本实际上是在检索电子邮件和附件。我也试过parse 和parse_data。

my $msgCount = 0;    
$msgCount = $imap->message_count();    
#or abortMission("", "Could not get message count: ". $imap->LastError );

if ( $msgCount > 0 ) {     

    #get all the messages from the inbox folder    
    my @msgseqnos = $imap->messages
            or abortMission("", "Could not retreive messages:". $imap->LastError);

    my ($x, $bh, $attachment, $attachmentName);

    foreach my $seqno ( @msgseqnos ) {

        my $input_file;
        my $parser = new MIME::Parser;
        my $emailText = $imap->body_string($seqno)   # should be the entire email as text. 
                or abortMission("", "Could not get message string: " . $imap->LastError);

        $parser->ignore_errors(1);
        $parser->output_to_core(1);

        open my $emailFileHandle, ">", "invoiceText.txt";
        print $emailFileHandle $emailText;
        #$imap->message_to_file($emailFileHandle, $seqno);

        my $entity = $parser->parse_data($emailText);
        $entity->dump_skeleton;

        if ( $entity->parts > 0 ) {

            for ( my $i = 0; $i < $entity->parts; $i++ ) {

                my $subentity = $entity->parts($i);

                # grab attachment name and contents
                foreach $x ( @attypes ) {

                    if ( $subentity->mime_type =~ m/$x/i ) {

                        $bh = $subentity->bodyhandle;
                        $attachment = $bh->as_string;
                        $attachmentName = $subentity->head->mime_attr('content-disposition.filename');

                        open FH, ">$attachmentName";
                        print FH $attachment;
                        close FH;

                        #push @attachment, $attachment;
                        #push @attname, $subentity->head->mime_attr('content-disposition.filename');
                    }
                }
            }
        }
        else {
            stillAGo("eData VehicleInvoices problem", "Perl can't find an attachment in an email in the VehicleInvoices folder of eData email address");
        }

        close $emailFileHandle;

        # say $emailText;
        # next;

        #open OUT_FILE, ">invoiceText.txt";
        #print OUT_FILE $emailText;
        #print OUT_FILE $imap->bodypart_string($seqno,1);
        #close OUT_FILE;

        #print $emailText;
    }
}

我正在尝试自动从电子邮件中检索附件并将它们保存到磁盘以供其他作业处理。

我想包含 invoiceText.txt 文件，以便人们可以看到实际输出，但它有 1200 行长。我不确定在哪里上传要链接的文件。

Answer 1

body_string 方法不会返回整个电子邮件。正如文档描述和名称所暗示的那样，它返回消息的 body，不包括标头。这就是为什么dump_skeleton 除了默认值之外没有显示任何标题

您可能想要的是message_string，虽然我还没有尝试过，但它确实会返回整个电子邮件

我看到您使用了message_to_file，但已将其注释掉。如果你让MIME::Parse 从文件中读取，那可能会起作用