Outlookで送信された会議を特定のフォルダに自動的に移動させるにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

通常、メールや会議を送信した後、どちらも「送信済みアイテム」フォルダに保存されます。そのため、「送信済みアイテム」フォルダはかなり煩雑で扱いにくくなります。この記事では、会議が送信された後にその会議を別のフォルダに自動的に移動させる方法をご紹介します。

VBAコードを使用して送信された会議を特定のフォルダに自動的に移動する

VBAコードを使用して送信された会議を特定のフォルダに自動的に移動する

すべての送信された会議招待を自動的に別のフォルダに移動させるには、次のコードが役立ちます。以下の手順を行ってください：

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

2. Microsoft Visual Basic for Applications ウィンドウで、Project1(VbaProject.OTM) ペインから ThisOutlookSession をダブルクリックしてモジュールを開き、次のコードを空白のモジュールにコピーして貼り付けます。

VBAコード: 送信された会議を特定のフォルダに自動的に移動する

Private WithEvents GExplorer As Outlook.Explorer
Public WithEvents GSentFolder As Outlook.Folder
Public WithEvents GSentItems As Outlook.Items
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xFolder As Folder, xRootFolder As Folder
Dim xRootFldName As String
Dim xPos As Integer
    On Error Resume Next
    Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    xPos = VBA.InStr(3, xFolder.FolderPath, "\")
    If xPos > 0 Then
        xRootFldName = VBA.Mid(xFolder.FolderPath, 3, xPos - 3)
    Else
        xRootFldName = VBA.Mid(xFolder.FolderPath, 3, Len(xFolder.FolderPath) - 2)
    End If
    Set xRootFolder = Outlook.Application.Session.Folders(xRootFldName)
    Set GSentFolder = xRootFolder.Folders("Sent Items")
    Set GSentItems = GSentFolder.Items
End Sub
Private Sub GSentItems_ItemAdd(ByVal Item As Object)
    Dim xMeetingItem As Outlook.MeetingItem
    Dim xTargetFolder As Outlook.Folder
    On Error Resume Next
    If Item.Class <> olMeetingRequest Then Exit Sub
    Set xMeetingItem = Item
    Set xTargetFolder = GSentFolder.Folders("Meetings")
    If xTargetFolder Is Nothing Then
        Set xTargetFolder = GSentFolder.Folders.Add("Meetings")
    End If
    xMeetingItem.Move xTargetFolder
End Sub