OutlookPSTファイル内のすべての電子メールをVBA経由で特定のフォルダーにバッチ移動する方法

Outlookソリューション 2025 年 9 月 29 日

PSTファイル内のすべての電子メールを別のPSTファイル内の特定のフォルダーに移動する場合は、この記事で紹介した方法を使用できます。 VBAを使用してすばやく取得する方法を説明します。

場合によっては、何らかの理由で、特定のPSTファイル内のすべての電子メールを別のPSTファイル内の特定のフォルダーに移動する必要があります。この場合、手動で行うと、間違いなくかなり面倒になります。したがって、ここでは、VBAを使用して特定のPSTファイル内のすべてのフォルダーをループし、各電子メールを特定のフォルダーに移動する簡単な方法を説明します。手の込んだ手順とコードを達成するために読んでください。

OutlookPSTファイル内のすべての電子メールを特定のフォルダーにバッチ移動する

最初に、Outlookアプリケーションを起動します。
次に、「開発者」タブに切り替えて、「VisualBasic」ボタンをクリックします。または、「Alt + F11」キーのショートカットを押します。
続いて、ポップアップVBAエディタウィンドウで、使用されていないモジュールを開くか、新しいモジュールを直接挿入します。
次に、次のVBAコードをコピーしてこのモジュールに貼り付けます。

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

その後、Outlookマクロのセキュリティレベルを低に変更します。
最終的には、ツールバーの「実行」アイコンをクリックするか、「F5」キーを押すことで、新しいマクロを実行できます。
一度に、特定のフォルダ内のすべてのフォルダのすべての電子メールがバッチで所定のフォルダに移動されます。

PSTデータを時間内に救出する

残念ながら苦しんでいる場合 PSTの損傷、それではどうしますか？一般に、最初に考えたのは、侵害されたPSTデータをできるだけ早く取り戻すことです。いつものように、最も簡単な方法は、最新のデータバックアップから復元することです。ただし、データのバックアップが数週間前のものである場合は、役に立たない可能性があります。この場合、次のような強力な回復ツールに戻る以外に選択肢はありません。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdf修正と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com