Excel VBAでOutlookのサブフォルダを別の親フォルダに移動する方法

Outlookのサブフォルダ（およびその中のすべてのアイテム）を別の親フォルダに移動するにはどうすればよいですか？Excel VBAでOutlookのサブフォルダを別の親フォルダに移動する方法

例：例イベント2017

は、既存：見通し\個人用フォルダ\監査\例イベント2017

をCODE実行後：移動する

サブフォルダ見通し\個人用フォルダ\監査を\過去のイベント\例イベント2017

ありがとうございます！

出典

2017-05-06 Joe Patrick

なぜ-1ですか？私はグーグルグーグルで検索してきました。仕事をしているExcelワークブックに関連するOutlookフォルダを管理したいと思っている人にとっては、かなり明白です。 –

downvotingの理由の1つは、ポストがプログラミングの質問ではなく要件のように見えることです。 http://stackoverflow.com/help/how-to-ask。あなたの質問については、MoveTo https://msdn.microsoft.com/en-us/library/office/ff865640(v=office.15).aspxを参照してください。あなたがそれを働かせたら、あなたは自己回答、回答の投稿、あなた自身の答えを受け入れることができます。あなたがそれを動作させることができない場合は、質問の投稿を更新することができます。 – niton

実行しているオフィスバージョンは何ですか？応答のために – 0m3r

Excelでは、サブフォルダ "test"を親フォルダ "new"から "processed"のサブフォルダに移動します。（Outlookへの参照が必要）

Sub moveSubFolderToNewFolder() 

    Dim objOutlook As Outlook.Application 
    Dim objNamespace As Outlook.Namespace 
    Dim objSourceFolder As Outlook.MAPIFolder 
    Dim objDestFolder As Outlook.MAPIFolder 
    Dim objFolder As Folder 

    Set objOutlook = Outlook.Application 
    Set objNamespace = objOutlook.GetNamespace("MAPI") 
    Set objSourceFolder = objNamespace.GetDefaultFolder(olFolderInbox) 
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("new").Folders("test") 
    Set objDestFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("processed") 

    objFolder.MoveTo objDestFolder 

    Set objDestFolder = Nothing 

End Sub

出典

2017-05-07 23:47:00

Excel VBAでOutlookのサブフォルダを別の親フォルダに移動する方法

答えて

関連する問題