Πώς να μετακινήσετε αυτόματα τις αποσταλείσες συσκέψεις σε έναν συγκεκριμένο φάκελο στο Outlook;

Κανονικά, μετά την αποστολή των μηνυμάτων ηλεκτρονικού ταχυδρομείου ή των συσκέψεων, και οι δύο θα βρίσκονται στο φάκελο "Απεσταλμένα". Έτσι, ο φάκελος "Απεσταλμένα" θα είναι πολύ ακατάστατος και δυσκίνητος. Αυτό το άρθρο, θα εισαγάγω μια μέθοδο για την αυτόματη μετακίνηση των συσκέψεων σε άλλο φάκελο μετά την αποστολή της σύσκεψης.

Μετακινήστε αυτόματα τις απεσταλμένες συσκέψεις σε έναν συγκεκριμένο φάκελο με κωδικό VBA

Μετακινήστε αυτόματα τις απεσταλμένες συσκέψεις σε έναν συγκεκριμένο φάκελο με κωδικό VBA

Για να μετακινήσετε αυτόματα όλες τις απεσταλμένες προσκλήσεις σε σύσκεψη σε άλλο φάκελο, ο παρακάτω κώδικας μπορεί να σας βοηθήσει, κάντε το εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (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

doc move εστάλη συνάντηση 1

3. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα. Τώρα, όταν αποστέλλεται ένα email συνάντησης, θα μετακινηθεί σε έναν νέο φάκελο με το όνομα Συναντήσεις σύμφωνα με το Απεσταλμένα στοιχεία φάκελο αυτόματα, δείτε το στιγμιότυπο οθόνης:

doc move εστάλη συνάντηση 2