Kuinka määrittää väriluokka kokouksille automaattisesti sen jälkeen, kun ne on hyväksytty Outlookissa?
Päivittäisessä työssäsi saatat saada useita kokoussähköpostiviestejä Outlookissa. Joskus haluat määrittää tietyn väriluokan kokouksille automaattisesti, kun ne hyväksytään. Normaalisti voit määrittää ne manuaalisesti, mutta niiden määrittäminen yksitellen on hankalaa. Tässä artikkelissa puhun siitä, kuinka se voidaan suorittaa automaattisesti Outlookissa.
Määritä kokouksille automaattisesti väriluokka, kun olet hyväksynyt ne VBA-koodilla
Määritä kokouksille automaattisesti väriluokka, kun olet hyväksynyt ne VBA-koodilla
1. Pidä "ALT + F11" -näppäimiä painettuna avataksesi "Microsoft Visual Basic for Applications" -ikkunan.
2. Kaksoisnapsauta "Microsoft Visual Basic for Applications" -ikkunassa "Project1(VbaProject.OTM)"-ruudussa "ThisOutlookSession" avataksesi tilan, ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: Määritä kokouksille väriluokka automaattisesti niiden hyväksymisen jälkeen
Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
Set xMeetingItem = Item
If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
Set xMeetingItemAccepted = xMeetingItem
Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
With xAppointmentItem
.Categories = .Categories & "Red Category"
.Save
End With
End If
End If
End Sub
Huomautuksia: Yllä olevassa koodissa voit muuttaa "Punaisen luokan" haluamasi väriluokan nimeksi.
3. Käynnistä sitten Outlook uudelleen käynnistääksesi tämän makron.
4. Kun olet hyväksynyt kokoussähköpostin ja napsautat "Lähetä vastaa nyt" -vaihtoehtoa, tietty väriluokka määritetään hyväksytylle kokoukselle kerralla. Katso kuvakaappaus:
Huomautuksia: Tätä koodia käytetään vain oletustietotilissä.
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 ...
