Kaip automatiškai nustatyti skirtingą priminimo laiką skirtingų spalvų kategorijų „Outlook“ susitikimams

Jei klasifikuojate „Outlook“ susitikimus pagal spalvų kategorijas ir norite nustatyti skirtingą priminimo laiką skirtingų spalvų kategorijų susitikimams, galite peržiūrėti šį straipsnį. Čia mes išmokysime tai realizuoti naudojant Outlook VBA.

Pavyzdžiui, jūs suskirstote susitikimus į dvi grupes. Viena yra spalvų kategorijoje „Užsienyje“, nes susitikimo vieta yra per toli, o kita yra spalvų kategorijoje „Vietoje“, nes vieta yra čia pat. Dabar norite, kad „Outlook“ galėtų automatiškai nustatyti priminimo laiką apie susitikimą „užsienyje“ – 1 valandą prieš susitikimo pradžią, o apie susitikimą vietoje – 15 minučių prieš pradžią. Atsižvelgdami į šį reikalavimą, toliau pasidalinsime greitu metodu.

Automatiškai nustatykite skirtingą priminimą skirtingų spalvų kategorijų susitikimams

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada paspauskite „Alt + F11“ klavišus, kad pasiektumėte VBA redaktoriaus langą.
3. Tada kitame lange nukopijuokite ir įklijuokite žemiau esantį VBA kodą į projektą „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

4. Vėliau reikia spustelėti „Application_Startup“ subrutinę ir paspausti „F5“ klavišą, kad paleistumėte šią makrokomandą.
5. Nuo tada kiekvieną kartą, kai į numatytąjį kalendorių įtraukiamas naujas susitikimas arba pakeičiate esamą susitikimą, „Outlook“ automatiškai patikrins susitikimo kategorijas ir automatiškai nustatys skirtingą priminimo laiką.

Pašalinkite „Outlook“ klaidas

„Outlook“ programai retkarčiais gali kilti įvairių problemų. Todėl labai svarbu, kad vartotojai išmoktų spręsti „Outlook“ problemas. Pirmiausia, geriau reguliariai kurkite „Outlook“ duomenų atsargines kopijas. Be to, jei įmanoma, rekomenduojama turėti galingą... „Outlook“ taisymas netoliese esantis įrankis, pvz DataNumen Outlook Repair. Jis gali nuskaityti jūsų PST failą, kad išsiaiškintų „Outlook“ problemas ir lengvai jas išspręstų.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com