Wie verschiebt man gesendete Besprechungseinladungen in Outlook automatisch in einen bestimmten Ordner?

Normalerweise landen sowohl gesendete E-Mails als auch versandte Besprechungseinladungen im Ordner „Gesendete Elemente“ – was diesen schnell unübersichtlich und unhandlich macht. In diesem Artikel zeige ich Ihnen eine Methode, mit der gesendete Besprechungen automatisch in einen separaten Ordner verschoben werden, sobald sie versendet wurden.

Automatisches Verschieben gesendeter Besprechungen in einen bestimmten Ordner mithilfe von VBA-Code

---

Automatisches Verschieben gesendeter Besprechungen in einen bestimmten Ordner mithilfe von VBA-Code

Um alle gesendeten Besprechungseinladungen automatisch in einen anderen Ordner zu verschieben, hilft Ihnen der folgende Code. Gehen Sie dazu wie folgt vor:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Doppelklicken Sie im Microsoft Visual Basic for Applications-Fenster auf ThisOutlookSession im Bereich Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Automatisches Verschieben gesendeter Besprechungen 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

3. Schließen Sie anschließend das Code-Fenster und speichern Sie es. Sobald eine Besprechungs-E-Mail versendet wird, wird sie automatisch in einen neuen Ordner namens Meetings unterhalb des Gesendete Elemente-Ordners verschoben (siehe Screenshot):