Come spostare automaticamente diversi tipi di elementi eliminati in cartelle diverse in Outlook?

In Outlook, tutti i tipi di elementi eliminati (posta, attività, contatti, ecc.) verranno spostati nella cartella Posta eliminata. Se desideri spostare gli elementi in cartelle diverse in base al tipo di elemento nella cartella Posta eliminata come mostrato nell'immagine sottostante, come puoi farlo in Outlook?

Sposta automaticamente diversi tipi di elementi eliminati in cartelle diverse con il codice VBA

Il codice VBA seguente può aiutarti a spostare automaticamente gli elementi eliminati in cartelle diverse, per favore fai come segue:

1. Avvia Outlook, quindi tieni premuto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi fare doppio clic Questa sessione di Outlook dal Progetto-Progetto1 riquadro, quindi copiare e incollare il codice seguente nella finestra del codice vuota:

Codice VBA: sposta automaticamente diversi tipi di elementi eliminati in cartelle diverse

Public WithEvents GDeletedFolder As Outlook.Folder
Public WithEvents GDeletedItems As Outlook.Items
Private Sub Application_Startup()
  Set GDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
  Set GDeletedItems = GDeletedFolder.Items
End Sub
Private Sub GDeletedItems_ItemAdd(ByVal Item As Object)
'Updateby ExtendOffice
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
Select Case TypeName(Item)
  Case "MailItem", "PostItem", "ReportItem", "MeetingItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Mails")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Mails", olFolderInbox)
    End If
  Case "AppointmentItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Appointments")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Appointments", olFolderCalendar)
    End If
  Case "ContactItem", "DistListItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Contacts")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Contacts", olFolderContacts)
    End If
  Case "TaskItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Tasks")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Tasks", olFolderTasks)
    End If
  Case "JournalItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Journals")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Journals", olFolderJournal)
    End If
  Case "NoteItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Notess")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Notess", olFolderNotes)
    End If
End Select
If xTargetFolder Is Nothing Then Exit Sub
Item.Move xTargetFolder
Set xTargetFolder = Nothing
End Sub

3. Quindi, salva questo codice e riavvia Outlook per attivare questo codice.

4. D'ora in poi, quando elimini un elemento, questo verrà spostato nel tipo di cartella corrispondente sotto Elementi eliminati cartella automaticamente.

5. Per visualizzare il risultato, fare clic su icona nella parte inferiore del riquadro delle cartelle, quindi fare clic su Cartelle per espandere tutte le cartelle nel riquadro, vedere gli screenshot: