Hoe automatisch verzonden vergaderingen naar een specifieke map in Outlook verplaatsen?

Normaal gesproken zullen ze na het verzenden van de e-mails of vergaderingen beide in de map Verzonden items worden geplaatst. De map Verzonden items zal dus behoorlijk rommelig en omslachtig zijn. In dit artikel zal ik een methode introduceren om de verzonden vergaderingen automatisch naar een andere map te verplaatsen nadat de vergadering is verzonden.

Verplaats automatisch de verzonden vergaderingen naar een specifieke map met VBA-code

Verplaats automatisch de verzonden vergaderingen naar een specifieke map met VBA-code

Om alle verzonden uitnodigingen voor vergaderingen automatisch naar een andere map te verplaatsen, kan de volgende code u helpen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: verplaats de verzonden vergaderingen automatisch naar een specifieke map

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 verplaatsing verzonden vergadering 1

3. Sla vervolgens het codevenster op en sluit het. Wanneer nu een vergader-e-mail wordt verzonden, wordt deze naar een nieuwe map met de naam verplaatst Vergaderingen onder de Verzonden items map automatisch, zie screenshot:

doc verplaatsing verzonden vergadering 2