Outlook : comment supprimer les éléments de calendrier en double
Parfois, il y a des éléments de calendrier en double lorsque nous importons des événements à partir d'autres appareils. Pour supprimer les éléments de calendrier en double, ce didacticiel présente deux méthodes différentes, l'une consiste à supprimer un par un lorsque les doublons sont moins nombreux, l'autre utilise VBA pour supprimer tous les doublons à la fois.
Supprimer manuellement les éléments de calendrier en double un par un
VBA pour supprimer les éléments de calendrier en double à la fois
- Automatisez l'envoi d'e-mails avec CC / BCC automatique, Transfert automatique par des règles ; envoyer Réponse automatique (Out of Office) sans nécessiter de serveur Exchange...
- Recevez des rappels comme Avertissement BCC lorsque vous répondez à tous alors que vous êtes dans la liste BCC, et Rappeler en cas de pièces jointes manquantes pour les pièces jointes oubliées...
- Améliorez l'efficacité de la messagerie avec Répondre (à tous) avec pièces jointes, Ajouter automatiquement un message d'accueil ou une date et une heure dans la signature ou l'objet, Répondre à plusieurs e-mails
- Rationalisez l'envoi d'e-mails avec Rappel des e-mails, Outils de fixation (Tout compresser, Tout enregistrer automatiquement...), Supprimer les doublonset Rapport rapide
Supprimer manuellement les éléments de calendrier en double un par un
Pour supprimer les éléments de calendrier en double un par un, vous devez d'abord les répertorier dans un ordre spécifique pour afficher clairement les doublons, puis les supprimer un par un.
1. Généralement, le calendrier est dans un Calendrier vue, activez le calendrier dont vous souhaitez supprimer les doublons, puis cliquez sur Voir > Change de vue > Liste.
Maintenant, le calendrier a été vu comme une liste.
2. Spécifiez ensuite une condition que vous utilisez pour comparer si les éléments sont en double, en supposant de comparer si les éléments ont le même sujet. Cliquez sur OBJET dans la liste du calendrier, tous les éléments ayant le même sujet sont placés ensemble.
3. Vous pouvez maintenant supprimer les éléments qui ont le même sujet un par un en cliquant avec le bouton droit sur l'élément et en cliquant sur Supprimer dans le menu contextuel contextuel.
VBA pour supprimer les éléments de calendrier en double à la fois
Voici quelques VBA qui peuvent supprimer tous les éléments de calendrier en double dans un dossier de calendrier dans différents cas.
1. presse autre + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module pour créer un nouveau module vierge, puis copiez et collez le code ci-dessous dans le module.
VBA : supprimer tous les éléments de calendrier en double dans une catégorie spécifique
'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
Dim xStores As Stores
Dim xStore As Store
Dim xRootFolder As Folder
Dim xFolder As Object
Set xStores = Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
Set xStores = Nothing
End Sub
Sub ProcessFolders(ByVal CurrentFld As Folder)
Dim xDictionary As Object
Dim i As Long
Dim xItem As Object
Dim xKey As String
Dim xSubFld As Folder
On Error Resume Next
If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
Set xDictionary = CreateObject("Scripting.Dictionary")
For i = CurrentFld.Items.Count To 1 Step -1
Set xItem = CurrentFld.Items.Item(i)
'change categories as you need in below script
If xItem.Categories = "date" Then
'change the comparing items as you need
xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
If xDictionary.Exists(xKey) = True Then
xItem.Delete
Else
xDictionary.Add xKey, True
End If
End If
Next i
For Each xSubFld In CurrentFld.Folders
ProcessFolders xSubFld
Next
End Sub
Dans ce VBA, il supprimera tous les doublons dans "données” cette catégorie en comparant le sujet, l'emplacement, le corps et la catégorie, vous pouvez les modifier selon vos besoins.
3. puis appuyez sur F5 ou cliquez sur Exécuter pour exécuter le code, une boîte de dialogue Macros apparaît, choisissez Supprimer le calendrier en double et cliquez sur Courir .
Ensuite, les éléments en double dans la catégorie "date" ont été supprimés.
VBA : supprimer tous les éléments de calendrier en double dans les catégories
Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
Dim xStores As Stores
Dim xStore As Store
Dim xRootFolder As Folder
Dim xFolder As Object
Set xStores = Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
Set xStores = Nothing
End Sub
Sub ProcessFolders(ByVal CurrentFld As Folder)
Dim xDictionary As Object
Dim i As Long
Dim xItem As Object
Dim xKey As String
Dim xSubFld As Folder
On Error Resume Next
If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
Set xDictionary = CreateObject("Scripting.Dictionary")
For i = CurrentFld.Items.Count To 1 Step -1
Set xItem = CurrentFld.Items.Item(i)
'change the comparing items as you need
xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
If xDictionary.Exists(xKey) = True Then
xItem.Delete
Else
xDictionary.Add xKey, True
End If
Next i
For Each xSubFld In CurrentFld.Folders
ProcessFolders xSubFld
Next
End Sub
Exécutez ce code, tous les doublons qui sont au même sujet, emplacement, corps, catégorie dans chaque catégorie ont été supprimés.
Notes: Ci-dessus, VBA fonctionne dans le dossier du calendrier et comprend un sous-dossier.
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel facile des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Boostez votre productivité Outlook avec des vues à onglets / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.