是否可以使用Win32 :: OLE移動Outlook文件夾？

Question

我已經設法在Outlook中添加文件夾，但是無法解決如何移動它們。 我擁有的代碼不會引發任何警告，也不會移動文件夾：

#!/usr/bin/perl
use strict;
use warnings;

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

# use existing instance if Outlook is already running, or launch a new one
  my $Outlook;
eval {$Outlook = Win32::OLE->GetActiveObject('Outlook.Application')};
die "Outlook not installed" if $@;
unless (defined $Outlook) {
  $Outlook = Win32::OLE->new('Outlook.Application', sub {$_[0]->Quit;})
    or die "Oops, cannot start Outlook";
}
my $namespace = $Outlook->GetNamespace("MAPI");

#my $Folder = $namespace->Folders("backupadmin")->Folders(
    # "Inbox")->Folders->Add("test");

my $Folder = $namespace->Folders("backupadmin")->Folders(
     "Inbox")->Folders("test")->MoveTo("test1");     

Answer 1

如果使用流行的Outlook Redemption庫，則可以為要移動的文件夾檢索RDO文件夾對象，然后使用目標RDO文件夾作為參數調用MoveTo方法。 對於一些示例Perl代碼，可以引用Email::PST::Win32 CPAN模塊，該模塊使用Win32::OLE和Outlook Redemption訪問RDO文件夾對象。

Outlook贖回： http : //www.dimastr.com/redemption/home.htm

具有MoveTo方法的RDO文件夾： http : //www.dimastr.com/redemption/rdo/rdofolder.htm

電子郵件：： PST ：： Win32： https ： //metacpan.org/release/Email-PST-Win32