Outlook : Comment conserver l'annulation d'une réunion dans le calendrier en tant qu'organisateur ?

Dans Outlook, en tant qu'organisateur de réunion, lorsque vous annulez la réunion, la réunion sera automatiquement supprimée du calendrier. Dans certains cas, vous souhaiterez peut-être conserver les réunions annulées dans le calendrier pour faire quelques marques. Cependant, il n'y a pas de fonctionnalités intégrées dans Outlook qui peuvent gérer ce travail. Dans ce didacticiel, il fournit deux codes VBA pour conserver la réunion en tant que rendez-vous lors de l'annulation.

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 :

Activer Outlook, cliquez sur Déposez votre dernière attestation > Options, dans la fenêtre Options Outlook, cliquez sur Trust Center onglet, et cliquez Paramètres du Centre, puis dans la fenêtre Centre de gestion de la confidentialité, cliquez sur Paramètres de macro onglet, vérifier Activer toutes les macros (non recommandé, le code potentiellement dangereux peut s'exécuter) et Appliquer les paramètres de sécurité des macros aux compléments installés options. Cliquez sur OK > OK pour fermer les fenêtres. Recommencer Perspective.

1. Swift dans la vue Calendrier Outlook et sélectionnez la réunion que vous souhaitez annuler Appuyez sur autre + F11 pour activer la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Module pour insérer un nouveau module vierge. Ensuite, copiez et collez le code ci-dessous.

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 Courir bouton ou appuyez sur F5 , maintenant la réunion sélectionnée a été annulée et un nouveau rendez-vous nommé Annulé et sujet.

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 Courir bouton ou appuyez sur F5 touche, une boîte de dialogue Sélectionner un dossier apparaît pour vous permettre de choisir un dossier de calendrier pour coller le rendez-vous, puis cliquez sur OK.