Wie verschiebe ich gesendete Besprechungen automatisch in einen bestimmten Ordner in Outlook?

Normalerweise befinden sich beide nach dem Senden der E-Mails oder Besprechungen im Ordner "Gesendete Objekte". Daher ist der Ordner "Gesendete Objekte" erheblich unübersichtlich und umständlich. In diesem Artikel werde ich eine Methode zum automatischen Verschieben der gesendeten Besprechungen in einen anderen Ordner nach dem Versenden der Besprechung vorstellen.

Verschieben Sie die gesendeten Besprechungen automatisch in einen bestimmten Ordner mit VBA-Code

Verschieben Sie die gesendeten Besprechungen automatisch in einen bestimmten Ordner mit VBA-Code

Der folgende Code kann Ihnen dabei helfen, alle gesendeten Besprechungseinladungen automatisch in einen anderen Ordner zu verschieben:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: Verschieben Sie die gesendeten Besprechungen automatisch in einen bestimmten Ordner

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

doc move sendete Besprechung 1

3. Speichern und schließen Sie dann das Codefenster. Wenn eine Besprechungs-E-Mail gesendet wird, wird sie in einen neuen Ordner mit dem Namen verschoben Meetings unter dem Gesendete Objekte Ordner automatisch, siehe Screenshot:

doc move sendete Besprechung 2