Preskoči na glavno vsebino

Outlook: Kako obdržati preklican sestanek v koledarju kot organizator?

Ko v Outlooku kot organizator sestanka prekličete sestanek, bo sestanek samodejno izbrisan iz koledarja. V nekaterih primerih boste morda želeli obdržati preklicane sestanke v koledarju, da naredite nekaj oznak. Vendar v Outlooku ni vgrajenih funkcij, ki bi lahko opravile to nalogo. V tej vadnici ponuja dve kodi VBA za ohranjanje sestanka kot sestanka med preklicem.

Kode VBA za kopiranje preklicanega sestanka kot sestanka


Kode VBA za kopiranje preklicanega sestanka kot sestanka

Avtor: Sonce Zadnja sprememba: 2022-12-22

Tu sta dve kodi za preklic sestanka in istočasno kopiranje in lepljenje kot sestanek.

Opomba: preden omogočite kodo, se prepričajte, da sta ti dve možnosti označeni:

Omogočite Outlook, kliknite file > možnosti, kliknite v oknu Outlookove možnosti Trust Center in kliknite Trust Center Nastavitve, nato v oknu Središča zaupanja kliknite Nastavitve makrov tab, preveri Omogoči vse makre (ni priporočljivo; lahko se zažene potencialno nevarna koda) in Uporabite varnostne nastavitve makrov za nameščene dodatke opcije. Kliknite OK > OK zapreti okna. Restart obeti.

dokument ohrani sestanek v koledarju 1

dokument ohrani sestanek v koledarju 2

1. Pomaknite se do pogleda koledarja Outlook in izberite srečanje, ki ga želite preklicati. Pritisnite druga + F11 tipke za omogočanje okna Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduli da vstavite nov prazen modul. Nato vanj kopirajte in prilepite spodnjo kodo.

Koda: Kopirajte sestanek kot sestanek in ga prekličite

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

dokument ohrani sestanek v koledarju 3

3. klik Run ali pritisnite F5 tipko, zdaj je bil izbrani sestanek preklican in nov sestanek z imenom Preklican & subjekt.

dokument ohrani sestanek v koledarju 4

Če želite kopirati in prilepiti sestanek kot sestanek v drug koledar in nato preklicati sestanek, uporabite spodnjo kodo:

Koda: Kopirajte sestanek kot sestanek v drug koledar in ga prekličite

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 Run ali pritisnite F5 tipko, se prikaže pogovorno okno Izberi mapo, v katerem lahko izberete mapo koledarja, v katero želite prilepiti sestanek, nato pa kliknite V redu.

dokument ohrani sestanek v koledarju 5

Zdaj je bilo srečanje preklicano ter kopirano in prilepljeno kot sestanek v mapo koledarja, ki jo izberete.

dokument ohrani sestanek v koledarju 6


Najboljša pisarniška orodja za produktivnost

Izjemne novice: Zažene se Kutools for Outlook Brezplačna različica!

Izkusite popolnoma nove Kutools za Outlook BREZPLAČNA različica s 70+ neverjetnimi funkcijami, vaša za uporabo ZA VEDNO! Kliknite za prenos zdaj!

🤖 Kutools AI : Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Samodejni odgovor (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Odpoklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Opomni vas, ko pridejo pomembna e-poštna sporočila  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Takoj odklenite Kutools za Outlook z enim klikom—trajno brezplačno. ne čakaj, prenesite zdaj in povečajte svojo učinkovitost!

kutools za funkcije Outlooka1 kutools za funkcije Outlooka2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations