如何自動將已發送的會議移動到Outlook中的特定文件夾？

通常，發送電子郵件或會議後，它們都會位於“已發送郵件”文件夾中。因此，“已發送郵件”文件夾將相當混亂和麻煩。本文，我將介紹一種在會議發出後自動將已發送的會議移動到另一個文件夾的方法。

使用VBA代碼自動將發送的會議移動到特定文件夾

要將所有已發送的會議邀請自動移動到另一個文件夾，以下代碼可以幫助您，請按照以下步驟操作：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 Project1（VbaProject.OTM） 窗格以打開模式，然後將以下代碼複製並粘貼到空白模塊中。

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

文檔移動已發送會議 1