Comment déplacer automatiquement différents types d'éléments supprimés dans différents dossiers dans Outlook ?

Dans Outlook, tous les types d'éléments supprimés (courriers, tâches, contacts, etc.) seront déplacés vers le dossier Éléments supprimés. Si vous souhaitez déplacer les éléments vers différents dossiers en fonction du type d'élément sous le dossier Éléments supprimés comme illustré ci-dessous, comment pouvez-vous le faire dans Outlook ?

Déplacez automatiquement différents types d'éléments supprimés dans différents dossiers avec le code VBA

Le code VBA ci-dessous peut vous aider à déplacer automatiquement les éléments supprimés vers différents dossiers, procédez comme suit :

1. Lancez Outlook, puis maintenez enfoncé ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Ensuite, double-cliquez Cette session Outlook du Projet-Projet1 volet, puis copiez et collez le code ci-dessous dans la fenêtre de code vide :

Code VBA : Déplacez automatiquement différents types d'éléments supprimés dans différents dossiers

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. Ensuite, enregistrez ce code et redémarrez Outlook pour activer ce code.

4. Désormais, lorsque vous supprimerez un élément, il sera déplacé vers le type de dossier correspondant sous Les éléments supprimés dossier automatiquement.

5. Pour voir le résultat, veuillez cliquer en bas du volet des dossiers, puis cliquez sur dossiers pour développer tous les dossiers dans le volet, consultez les captures d'écran :

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

• CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
• Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
• Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
• Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
• Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.

Lire la suite... Télécharger maintenant...