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.
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
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.
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.
Nu är mötet inställt och kopierat och klistrat in som ett möte i den kalendermapp du väljer.
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.

