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

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.

doc blijf vergaderen in agenda 1

doc blijf vergaderen in agenda 2

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

doc blijf vergaderen in agenda 3

3. klikken lopen knop of druk op F5 toets, nu is de geselecteerde vergadering geannuleerd en een nieuwe afspraak met de naam Geannuleerd & onderwerp.

doc blijf vergaderen in agenda 4

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.

doc blijf vergaderen in agenda 5

Nu is de vergadering geannuleerd en gekopieerd en als afspraak geplakt in de door u gekozen agendamap.

doc blijf vergaderen in agenda 6


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL