Vous avez peut-être remarqué que les réunions annulées restent affichées dans votre calendrier. Vous devez alors les supprimer manuellement, ce qui est fastidieux. Vous souhaitez sans doute qu'Outlook puisse supprimer automatiquement les réunions annulées. Cet article vous explique comment faire.
En fait, mon article précédent - "Comment supprimer avec tact les réunions annulées du calendrier Outlook” a introduit quelques astuces pour supprimer manuellement les réunions annulées. De plus, dans la dernière section de cet article, il existe un moyen de laisser Outlook supprimer automatiquement les réunions annulées. Mais cette méthode permettra également à Outlook d'accepter automatiquement toutes les invitations à la réunion. Ce n'est pas ce que vous voulez parfois. Par conséquent, nous allons vous montrer ici une autre méthode, qui est assez simple et beaucoup plus pratique.
Supprimer automatiquement les réunions annulées du calendrier
- Dès le départ, lancez votre programme Outlook.
- Ensuite, vous devez appuyer sur les touches "Alt + F11" dans la fenêtre Outlook.
- Ensuite, dans la fenêtre de l'éditeur VBA suivante, vous devez double-cliquer sur le projet "ThisOutlookSession" sur le côté gauche.
- Ensuite, vous devez copier le code VBA suivant dans ce projet.
Private WithEvents objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
Set objItems = objInbox.Items
End Sub
'Occurs when the meeting cancellation arrives in your Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
Dim objCalendar As Outlook.Folder
Dim objAppointments As Outlook.Items
Dim i As Long
Dim objMeeting As Outlook.AppointmentItem
If TypeOf Item Is MeetingItem Then
If Left(LCase(Item.Subject), 9) = "canceled:" Then
'Remove canceled meeting
Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
Set objAppointments = objCalendar.Items
For i = objAppointments.count To 1 Step -1
Set objAppointment = objAppointments.Item(i)
If Left(objAppointment.Subject, 9) = "Canceled:" Then
objAppointment.Delete
End If
Next
End If
End If
End Sub
- Après cela, vous pouvez attribuer un certificat numérique à ce projet. Cliquez sur "Outils" et choisissez "Signature numérique". Suivez ensuite l'assistant pour le terminer.
- Plus tard, fermez la fenêtre "Microsoft Visual Basic pour Applications" et dirigez-vous pour modifier vos paramètres de macro Outlook pour autoriser les macros signées.
- Vous pourrez éventuellement redémarrer Outlook pour activer le nouveau projet VBA.
- Depuis, chaque fois qu'une annulation de réunion arrive dans votre boîte de réception, la macro se lance et supprime automatiquement la réunion annulée du calendrier.
Utiliser pleinement l'outil de réparation de la boîte de réception
De nombreux utilisateurs d'Outlook peuvent avoir été en proie à divers problèmes dans leur Outlook, y compris de petits dysfonctionnements, des messages d'erreur et une absence soudaine de réponse ainsi que des dommages graves, etc. Pour être honnête, pour les petits problèmes, Outlook dispose d'un outil de réparation intégré - Scanpst, ce qui peut les réparer facilement. Ainsi, lorsque vous rencontrez des problèmes dans Outlook, vous pouvez l'utiliser pour prendre une photo. En cas d'échec, vous pouvez continuer à vous aider d'un outil tiers expérimenté et remarquable, tel que DataNumen Outlook Repair.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupération SQL et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com