Win32 :: OLE를 사용하여 Outlook 폴더를 이동할 수 있습니까?

Outlook에서 폴더를 추가 할 수 있지만이를 이동하는 방법은 없습니다. 당신이 인기 아웃룩 보너스 라이브러리를 사용하는 경우Win32 :: OLE를 사용하여 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 [email protected]; 
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");

출처

2014-07-08 user3360439

아웃룩 VB 네임 스페이스가 꽤 아슬 아슬 보이는; 폴더의 이름을 바꾸거나 다시 부모를 바꾸는 것이 목표입니까? 목표가 이름 짓는 것이라면,'...-> Folders ("test") -> Name = "test1"'과 같은 것 (또는'setName'과 같은 적절한 구문을 사용하는 비슷한 것)이 가능할 수 있습니다. [참조 이름 바꾸기] (http://www.pcreview.co.uk/forums/rename-folder-outlook-inbox-t3031265.html) – abiessu

더 정확하게'my $ Folder = $ namespace-> Folders ("backupadmin") > ("Inbox") -> 폴더 ("test") -> { "Name"} = "test1";'(다시 폴더의 이름을 바꾼다고 가정하고, ...-> Folders ("test") -> SetProperty ('Name', "test1")' – abiessu

이 같은 이름 바꾸기가 적용되면 다른 새로 고침이 있어야한다는 의견이 있습니다. 결과도 참조하십시오. – abiessu

, 당신은 당신이 전화를 한 후 이동하려는 폴더에 대한 RDO 폴더 개체를 검색 할 수 있습니다 내가 어떤 경고를 포기하지 않고 폴더를 이동하지 않습니다이 코드 MoveTo 메서드는 대상 RDO 폴더를 매개 변수로 사용합니다. 일부 샘플 Perl 코드의 경우 Win32::OLE 및 Outlook Redemption을 사용하여 RDO Folder 개체에 액세스하는 Email::PST::Win32 CPAN 모듈을 참조 할 수 있습니다.

전망 상환 :하면 MoveTo 방법과 http://www.dimastr.com/redemption/home.htm

RDO 폴더 : http://www.dimastr.com/redemption/rdo/rdofolder.htm

이메일 : PST : Win32에서 : https://metacpan.org/release/Email-PST-Win32

출처

2015-03-21 05:55:02 Grokify

Win32 :: OLE를 사용하여 Outlook 폴더를 이동할 수 있습니까?

답변

관련 문제