Outlook: Kuinka pitää kokouksen peruutus kalenterissa järjestäjänä?
Outlookissa kokouksen järjestäjänä, kun peruutat kokouksen, kokous poistetaan automaattisesti kalenterista. Joissakin tapauksissa saatat haluta säilyttää peruutetut kokoukset kalenterissa tehdäksesi merkintöjä. Outlookissa ei kuitenkaan ole sisäänrakennettuja ominaisuuksia, jotka voisivat käsitellä tätä työtä. Tässä opetusohjelmassa se tarjoaa kaksi VBA-koodia, joiden avulla kokous voidaan pitää tapaamisena peruutettaessa.
VBA-koodit peruutetun kokouksen kopioimiseksi tapaamisena
VBA-koodit peruutetun kokouksen kopioimiseksi tapaamisena
Tässä on kaksi koodia kokouksen peruuttamiseen sekä sen kopioimiseen ja liittämiseen tapaamisena samanaikaisesti.
Huomautus: ennen kuin otat koodin käyttöön, varmista, että nämä kaksi vaihtoehtoa on valittu:
Ota Outlook käyttöön, napsauta filee > Vaihtoehdot, napsauta Outlookin asetukset -ikkunassa Valvontakeskus välilehti ja napsauta Valvontakeskuksen asetuksetja napsauta sitten Luottamuskeskus-ikkunassa Makroasetukset välilehti, tarkista Ota kaikki makrot käyttöön (ei suositella, mahdollisesti vaarallinen koodi voi toimia) ja Käytä makrosuojausasetuksia asennettuihin apuohjelmiin vaihtoehtoja. Klikkaus OK > OK sulkemaan ikkunat. Käynnistä uudelleen Näkymät.
1. Siirry nopeasti Outlook-kalenterinäkymään ja valitse kokous, jonka haluat peruuttaa. Paina muut + F11 -näppäimiä ottaaksesi Microsoft Visual Basic for Applications -ikkunan käyttöön.
2. napsauttaa liite > Moduulit lisätäksesi uuden tyhjän moduulin. Kopioi ja liitä sitten alla oleva koodi siihen.
Koodi: Kopioi kokous tapaamisena ja peruuta se
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. napsauttaa ajaa tai paina F5 näppäintä, nyt valittu kokous on peruutettu ja uusi tapaaminen nimeltä Peruutettu ja aihe.
Jos haluat kopioida ja liittää kokouksen tapaamisena toiseen kalenteriin ja peruuttaa kokouksen, käytä alla olevaa koodia:
Koodi: Kopioi kokous tapaamisena toiseen kalenteriin ja peruuta se
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
Napauta ajaa tai paina F5 -näppäintä, Valitse kansio -valintaikkuna avautuu, jossa voit valita kalenterikansion tapaamisen liittämiseen ja napsauta sitten OK.
Nyt kokous on peruutettu ja kopioitu ja liitetty tapaamiseen valitsemaasi kalenterikansioon.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
