Note: The other languages of the website are Google-translated. Back to English

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 cours 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 cours 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


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL