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

Outlook: Hur fortsätter jag att avbryta mötet i kalendern som arrangör?

I Outlook, som mötesarrangör, kommer mötet att raderas automatiskt från kalendern när du avbryter mötet. I vissa fall kanske du vill behålla de inställda mötena i kalendern för att göra vissa markeringar. Det finns dock inga inbyggda funktioner i Outlook som kan hantera det här jobbet. I den här handledningen tillhandahåller den två VBA-koder för att hålla mötet som ett möte medan du avbokar.

VBA-koder för att kopiera inställt möte som möte


VBA-koder för att kopiera inställt möte som möte

Här är två koder för att avbryta mötet och kopiera och klistra in det som ett möte samtidigt.

Obs: Innan du aktiverar koden, se till att dessa två alternativ är markerade:

Aktivera Outlook, klicka på Fil > Tillbehör, klicka på i fönstret Outlook-alternativ trust Center fliken och klicka på Trust Center Settings, klicka sedan på i Trust Center-fönstret Makroinställningar fliken, kolla Aktivera alla makron (rekommenderas inte, potentiellt farlig kod kan köras) och Tillämpa makrosäkerhetsinställningar på installerade tillägg alternativ. Klick OK > OK att stänga fönstren. Omstart Syn.

doc fortsätt att träffas i kalender 1

doc fortsätt att träffas i kalender 2

1. Gå till Outlook-kalendervyn och välj det möte som du vill avbryta. Tryck andra + F11 för att aktivera Microsoft Visual Basic for Applications-fönstret.

2. klick Insert > Modulerna för att sätta in en ny tom modul. Kopiera sedan och klistra in nedanstående kod till den.

Kod: Kopiera mötet som möte och avboka 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ätt att träffas i kalender 3

3. klick Körning knappen eller tryck på F5 tangenten, nu har det valda mötet avbrutits och ett nytt möte med namnet Cancled & subjet.

doc fortsätt att träffas i kalender 4

Om du vill kopiera och klistra in mötet som ett möte i en annan kalender och sedan avbryta mötet, använd nedanstående kod:

Kod: Kopiera möte som möte i en annan kalender och avbryt 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

Klicka Körning knappen eller tryck på F5 En dialogruta för Välj mapp dyker upp där du kan välja en kalendermapp för att klistra in mötet och klicka sedan på OK.

doc fortsätt att träffas i kalender 5

Nu är mötet inställt och kopierat och klistrat in som ett möte i den kalendermapp du väljer.

doc fortsätt att träffas i kalender 6


Kutools for Outlook - Tar med 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL