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.
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.
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (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 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 / Vous rappeler lorsque des e-mails importants arrivent / 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
