perl 및 Win32 :: OLE를 사용하여 디스크에서 Outlook msg 파일을 여는 방법

Question

처리 할 Outlook .msg 파일로 가득 찬 디렉터리가 있습니다. 처리는 파일을 열고 첨부 파일을 저장하는 것입니다. 저는 Win32 :: OLE를 성공적으로 사용하여 Outlook 폴더에서 메시지를 처리했습니다. 하지만 디스크의 파일입니다. 디스크상의 msg 파일을 열고 펄과 Win32 :: OLE로 을 어떻게 처리 할 수 ​​있습니까?

제한 사항 : 컴퓨터에 어떤 것도 설치할 수없는 환경에서 작업합니다. 특히 다른 프로그램이나 펄 모듈을 추가 할 수 없습니다. perl을 새로 설치 한 모듈이 붙어 있습니다. 여기

내가 뭘하려 :

use Win32::OLE; 
use Win32::OLE::Const 'Microsoft Outlook'; 
use Win32::OLE::Variant; 

my $OL = Win32::OLE->GetActiveObject('Outlook.Application') || 
     Win32::OLE->new('Outlook.Application', 'Quit'); 
my $NameSpace = $OL->GetNameSpace("MAPI"); 

$File = Win32::GetFullPathName(".") . "\\" . "TestMessage.msg"; 
$msg = $OL->Open($File);  ## Result is undefined 

솔루션 및 또는 참조 감상 할 수있다.

Answer 1

나는 어떻게 든 인터넷에서 몇 가지 조사가 $filename

my $msg = new Email::Outlook::Message $filename; 
my $data = $msg->to_email_mime; 
my $stripper = Email::MIME::Attachment::Stripper->new($data); 
for my $a ($stripper->attachments()) { 
    my $file = $a->{filename}; 
    open my $fh, '>', $file or die $!; 
    print $fh $a->{payload}; 
    close $fh; 
    chmod 0644, $file; 
}