Passer au contenu principal

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 le > 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.

doc garder la réunion dans le calendrier 1

doc garder la réunion dans le calendrier 2

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

doc garder la réunion dans le calendrier 3

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.

doc garder la réunion dans le calendrier 4

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.

doc garder la réunion dans le calendrier 5

Maintenant, la réunion a été annulée et copiée et collée en tant que rendez-vous dans le dossier de calendrier que vous choisissez.

doc garder la réunion dans le calendrier 6


Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

📧 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 ProSauvegarde 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.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations