Outlook : Comment conserver l'annulation de réunion dans le calendrier en tant qu'organisateur ?
Dans Outlook, en tant qu'organisateur de réunion, lorsque vous annulez la réunion, celle-ci est automatiquement supprimée du calendrier. Dans certains cas, vous pourriez souhaiter conserver les réunions annulées dans le calendrier pour y apporter des marques. Cependant, il n'y a aucune fonctionnalité intégrée dans Outlook qui peut gérer cette tâche. Ce tutoriel fournit deux codes VBA pour conserver la réunion sous forme de rendez-vous tout en l'annulant.
Codes VBA pour copier une réunion annulée en tant que rendez-vous
Codes VBA pour copier une réunion annulée en tant que rendez-vous
Voici deux codes pour annuler la réunion et la copier-coller en tant que rendez-vous en même temps.
Remarque : avant d'activer le code, assurez-vous que ces deux options sont cochées :
Activez Outlook, cliquez sur Fichier > Options, dans la fenêtre Options Outlook, cliquez sur l'onglet Centre de confiance, puis sur Paramètres du Centre de confiance. Ensuite, dans la fenêtre Centre de confiance, cliquez sur l'onglet Paramètres des macros, cochez Activer toutes les macros (non recommandé ; un code potentiellement dangereux peut s'exécuter) et Appliquer les paramètres de sécurité des macros aux compléments installés. Cliquez sur OK > OK pour fermer les fenêtres. Redémarrez Outlook.
1. Passez à la vue Calendrier Outlook, et sélectionnez la réunion que vous souhaitez annuler. Appuyez sur Alt + F11 pour activer la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module pour insérer un nouveau module vierge. Ensuite, copiez et collez le code ci-dessous dedans.
Code : Copier la réunion en tant que rendez-vous et l'annuler
Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.Subject = "Canceled: " & xMeetingItem.Subject
.Start = xMeetingItem.Start
.Duration = xMeetingItem.Duration
.Location = xMeetingItem.Location
.Body = xMeetingItem.Body
.Save
.Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
.MeetingStatus = olMeetingCanceled
.Send
.Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
3. Cliquez sur le bouton Exécuter ou appuyez sur la touche F5 , maintenant la réunion sélectionnée a été annulée et un nouveau rendez-vous nommé Annulé & sujet a été créé.
Si vous souhaitez copier et coller la réunion en tant que rendez-vous dans un autre calendrier, puis annuler la réunion, utilisez le code ci-dessous :
Code : Copier la réunion en tant que rendez-vous dans un autre calendrier et l'annuler
Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.Subject = "Canceled: " & xMeetingItem.Subject
.Start = xMeetingItem.Start
.Duration = xMeetingItem.Duration
.Location = xMeetingItem.Location
.Body = xMeetingItem.Body
.Save
.Move xDestCalendar
End With
With xMeetingItem
.MeetingStatus = olMeetingCanceled
.Send
.Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
Cliquez sur le bouton Exécuter ou appuyez sur la touche F5 , une boîte de dialogue Sélectionner un dossier apparaît pour vous permettre de choisir un dossier de calendrier où coller le rendez-vous, puis cliquez sur OK.
Maintenant, la réunion a été annulée et copiée-collée en tant que rendez-vous dans le dossier de calendrier que vous avez choisi.
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
