Hur man ställer in olika påminnelsestider för Outlook-möten i olika färgkategorier

Om du klassificerar Outlook-möten efter färgkategorier och vill ställa in olika påminnelsetid för möten i olika färgkategorier kan du hänvisa till den här artikeln. Här lär vi dig att förverkliga det med Outlook VBA.

Till exempel delar du möten i två grupper. Den ena är i färgkategorin "Offsite" eftersom mötesplatsen är för långt, och den andra är i "Onsite" -färgkategorin eftersom platsen är här. Nu vill du att Outlook automatiskt kan ställa in påminnelsetiden för "offsite" -möte till 1 timme före start och "onsite" -möte 15 minuter före start. När vi tittar på detta krav, kommer vi att dela en snabb metod.

Auto Ställ in olika påminnelser för möten i olika färgkategorier

1. Till att börja med startar du din Outlook-applikation.
2. Tryck sedan på “Alt + F11” -knapparna för att komma åt VBA-redigeringsfönstret.
3. Därefter, i det efterföljande fönstret, kopiera och klistra in VBA-koden nedan i projektet “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. Senare måste du klicka på “Application_Startup ”underrutin och tryck på” F5 ”-knappen för att köra detta makro.
5. Sedan dess, varje gång när ett nytt möte läggs till i standardkalendern eller du ändrar ett befintligt möte, kommer Outlook att automatiskt kontrollera kategorierna för mötet och automatiskt ställa in olika påminnelsestider.

Eliminera Outlook-fel

Olika problem kan förekomma i Outlook då och då. Därför är det oerhört viktigt för användare att lära sig att hantera Outlook-frågor. För somtart, du borde göra regelbundna säkerhetskopior av Outlook-data. Dessutom, om det är överkomligt, föreslås det att hålla en potent Outlook-reparation verktyg i närheten, t.ex. DataNumen Outlook Repair. Det kan skanna din PST-fil för att ta reda på Outlook-problem och sedan lösa dem med lätthet.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL-återhämtning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com