Outlook: Hoe kan ik als organisator de vergadering in de agenda annuleren?

Als u in Outlook als organisator van een vergadering de vergadering annuleert, wordt de vergadering automatisch uit de agenda verwijderd. In sommige gevallen wilt u misschien de geannuleerde vergaderingen in de agenda houden om wat punten te scoren. Er zijn echter geen ingebouwde functies in Outlook die deze taak aankunnen. In deze zelfstudie biedt het twee VBA-codes om de vergadering als afspraak te behouden tijdens het annuleren.

VBA-codes voor het kopiëren van geannuleerde vergadering als afspraak

VBA-codes voor het kopiëren van geannuleerde vergadering als afspraak

Hier zijn twee codes voor het annuleren van de vergadering en het tegelijkertijd kopiëren en plakken als een afspraak.

Opmerking: voordat u de code inschakelt, moet u ervoor zorgen dat deze twee opties zijn aangevinkt:

Schakel Outlook in, klik op Dien in > Opties, klik in het venster Outlook-opties op Vertrouwenscentrum tab en klik Vertrouwenscentrum-instellingenen klik vervolgens in het Vertrouwenscentrum-venster op Macro-instellingen tab, vink aan Schakel alle macro's in (niet aanbevolen; potentieel gevaarlijke code kan worden uitgevoerd) en Macrobeveiligingsinstellingen toepassen op geïnstalleerde invoegtoepassingen opties. Klik OK > OK om de ramen te sluiten. Herstart Outlook.

1. Ga snel naar de Outlook-agendaweergave en selecteer de vergadering die u wilt annuleren Druk op anders + F11 toetsen om het Microsoft Visual Basic for Applications-venster in te schakelen.

2. klikken Invoegen > Module om een nieuwe lege module in te voegen. Kopieer en plak vervolgens onderstaande code erin.

Code: Kopieer vergadering als afspraak en annuleer deze

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. klikken lopen knop of druk op F5 toets, nu is de geselecteerde vergadering geannuleerd en een nieuwe afspraak met de naam Geannuleerd & onderwerp.

Als u de vergadering als afspraak in een andere agenda wilt kopiëren en plakken en vervolgens de vergadering wilt annuleren, gebruikt u onderstaande code:

Code: Kopieer vergadering als afspraak in een andere agenda en annuleer deze

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

Klik lopen knop of druk op F5 toets, verschijnt er een dialoogvenster Selecteer map waarin u een agendamap kunt kiezen om de afspraak in te plakken en klik vervolgens op OK.