ファイルシステムからOutlookフォルダーにmsgファイルをインポートするにはどうすればよいですか？

通常、ドラッグ＆ドロップによってファイルシステムからOutlookフォルダーにmsgファイルをインポートできます。この記事では、ファイルシステムから指定されたOutlookフォルダーにすべてのmsgファイルをインポートする簡単な方法を詳しく説明します。

VBAコードを使用してファイルシステムからOutlookフォルダーにmsgファイルをインポートする

VBAコードを使用してファイルシステムからOutlookフォルダーにmsgファイルをインポートする

以下の手順で、ファイルシステムからOutlookの指定されたフォルダーにmsgファイルをインポートしてください。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。その後、下記のVBAコードをモジュールウィンドウにコピーします。

VBAコード: ファイルシステムからOutlookフォルダーにmsgファイルをインポートする

Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
    xSourceFldPath = xSelFolder.self.Path + "\"
Else
    xSourceFldPath = ""
    Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
    Exit Sub
End If
For Each xFileItem In xSourceFld.Files
    Set xMSG = Session.OpenSharedItem(xFileItem.Path)
    Set xMailItem = xMSG.Copy
    xMailItem.Move xSaveFld
    Set xMailItem = Nothing
    xMSG.Delete
    Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub

3. F5キーを押してコードを実行します。開いた「フォルダを選択」ダイアログボックスで、Outlookフォルダーにインポートするmsgファイルが含まれているフォルダを選択し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

4. これで「フォルダを選択」ダイアログボックスがポップアップ表示されますので、インポートしたmsgファイルを保存するOutlookフォルダを選択し、「OK」ボタンをクリックしてください。

これで、ファイルシステム内の特定のフォルダにあるすべてのmsgファイルが、指定されたOutlookフォルダに即座にインポートされます。

関連記事：

• Outlookで複数の選択したメールを一括でMSGファイルとして保存するにはどうすればよいですか？