Kuidas automaatselt määrata erinevat meeldetuletusaega Outlooki koosolekute jaoks erinevates värvikategooriates

Outlooki lahendused September 29, 2025

Kui liigitate Outlooki koosolekuid värvikategooriate järgi ja soovite eri värvikategooriates koosolekutele määrata erineva meeldetuletusaja, vaadake seda artiklit. Siin õpetame teid seda Outlook VBA abil realiseerima.

Näiteks jagate koosolekud kahte rühma. Üks on värvikategoorias „Väljaspool toimuv“, kuna koosoleku toimumiskoht on liiga kaugel, ja teine ​​on värvikategoorias „Kohapealne“, kuna asukoht on siinsamas. Nüüd soovite, et Outlook saaks automaatselt määrata meeldetuletuse ajaks „väljaspool toimuv“ koosoleku 1 tund enne algust ja „kohapealne“ koosoleku 15 minutit enne algust. Selle nõude täitmiseks jagame allpool kiiret meetodit.

Erinevate värvikategooriate Outlooki koosolekute jaoks erinevate meeldetuletusaegade automaatne määramine

Määrake erinevate värvikategooriatega koosolekutele automaatselt erinevad meeldetuletused

  1. Alustuseks käivitage oma Outlooki rakendus.
  2. Seejärel vajutage VBA redaktori akna avamiseks klahvikombinatsiooni Alt + F11.
  3. Järgmisena kopeerige ja kleepige järgmises aknas allolev VBA kood projekti „ThisOutlookSession”.
Public WithEvents objCalendar As Outlook.Folder
Public WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
    Set objCalendar = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objCalendarItems = objCalendar.Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Call SetReminder_BasedOnCategories(Item)
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Call SetReminder_BasedOnCategories(Item)
End Sub

Private Sub SetReminder_BasedOnCategories(ByVal objCalendarItem As Object)
    Dim objMeeting As Outlook.AppointmentItem
    Dim strCategories As String
 
    If objCalendarItem.Class = olAppointment Then
       'Check if the item is a meeting
       If objCalendarItem.MeetingStatus = olMeeting Then
          Set objMeeting = objCalendarItem
          strCategories = objMeeting.Categories
 
          'Set Reminder as 60 min before start for offsite appointments
          If InStr(strCategories, "Offsite") > 0 Then
             With objMeeting
                 .ReminderSet = True
                 .ReminderMinutesBeforeStart = 60
                 .Save
             End With
             'Set Reminder as 15 min before start for onsite appointments
          ElseIf InStr(strCategories, "Onsite") > 0 Then
             With objMeeting
                 .ReminderSet = True
                 .ReminderMinutesBeforeStart = 15
                 .Save
             End With
          End If
       End If
    End If
End Sub

VBA kood – erinevate värvikategooriate koosolekute jaoks erinevate meeldetuletuste automaatne seadistamine

  1. Hiljem peate klõpsama alamrutiinil „Application_Startup” ja vajutama selle makro käivitamiseks klahvi „F5”.
  2. Alates sellest ajast iga kord, kui vaikekalendrisse lisatakse uus koosolek või muudate olemasolevat koosolekut, kontrollib Outlook automaatselt koosoleku kategooriaid ja määrab automaatselt erineva meeldetuletusaja.Erinevate värvikategooriate koosolekute meeldetuletusajad erinevad

Välistage Outlooki vead

Outlookiga võib aeg-ajalt esineda mitmesuguseid probleeme. Seetõttu on äärmiselt oluline, et kasutajad õpiksid, kuidas Outlooki probleemidega toime tulla. Alustuseks on parem teha regulaarselt Outlooki andmete varukoopiaid. Lisaks, kui see on võimalik, on soovitatav hoida võimast... Outlooki parandamine läheduses asuv tööriist, nt DataNumen Outlook Repair. See võib teie PST-faili skannida, et välja selgitada Outlooki probleemid ja seejärel need hõlpsalt lahendada.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.