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

Outlook: Hvordan fortsætter jeg med at aflyse møde i kalenderen som arrangør?

I Outlook, som mødearrangør, vil mødet automatisk blive slettet fra kalenderen, når du aflyser mødet. I nogle tilfælde vil du måske beholde de aflyste møder i kalenderen for at markere nogle. Der er dog ingen indbyggede funktioner i Outlook, der kan klare dette job. I denne vejledning giver den to VBA-koder til at holde mødet som en aftale, mens du aflyser.

VBA-koder til kopiering af aflyst møde som aftale


VBA-koder til kopiering af aflyst møde som aftale

Her er to koder til at aflyse mødet og kopiere og indsætte det som en aftale på samme tid.

Bemærk: Inden du aktiverer koden, skal du sørge for, at disse to muligheder er markeret:

Aktivér Outlook, klik på filet > Indstillinger, i vinduet Outlook-indstillinger skal du klikke på Trust Center fane og klik Indstillinger for tillidscenter, og klik derefter i vinduet Trust Center Makroindstillinger fanen, tjek Aktivér alle makroer (anbefales ikke; potentielt farlig kode kan køre) og Anvend makrosikkerhedsindstillinger på installerede tilføjelser muligheder. Klik OK > OK at lukke vinduerne. Genstart Outlook.

doc fortsæt med at mødes i kalender 1

doc fortsæt med at mødes i kalender 2

1. Skift til Outlook-kalendervisning, og vælg det møde, du vil annullere Tryk på andre + F11 for at aktivere vinduet Microsoft Visual Basic til applikationer.

2. klik indsatte > Moduler for at indsætte et nyt tomt modul. Kopier derefter og indsæt nedenstående kode til den.

Kode: Kopier møde som aftale og aflys det

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 fortsæt med at mødes i kalender 3

3. klik Kør knappen eller tryk på F5 tast, nu er det valgte møde blevet aflyst og en ny aftale med navnet Cancled & subjet.

doc fortsæt med at mødes i kalender 4

Hvis du vil kopiere og indsætte mødet som en aftale i en anden kalender og derefter annullere mødet, skal du bruge nedenstående kode:

Kode: Kopier møde som aftale i en anden kalender og aflys det

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 Kør knappen eller tryk på F5 tast, åbnes en dialogboks Vælg mappe, hvor du kan vælge en kalendermappe til at indsætte aftalen på, og klik derefter på OK.

doc fortsæt med at mødes i kalender 5

Nu er mødet blevet aflyst og kopieret og indsat som en aftale i den kalendermappe du vælger.

doc fortsæt med at mødes i kalender 6


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Skriv venligst dine kommentarer på engelsk
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL