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

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

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


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL