Si të vendosni automatikisht kohë të ndryshme rikujtuese për takimet e Outlook në kategori të ndryshme ngjyrash

Nëse po i klasifikoni takimet e Outlook sipas kategorive të ngjyrave dhe dëshironi të vendosni kohë të ndryshme rikujtuese për takime në kategori të ndryshme ngjyrash, mund t'i referoheni këtij artikulli. Këtu do t'ju mësojmë ta realizoni atë me Outlook VBA.

Për shembull, po i ndani takimet në dy grupe. Njëri është në kategorinë e ngjyrave "Jashtë vendit" në kuptimin që vendndodhja e takimit është shumë larg, dhe tjetri është në kategorinë e ngjyrave "Në vend" pasi vendndodhja është pikërisht këtu. Tani, ju dëshironi që Outlook të mund ta caktojë automatikisht kohën e kujtesës për takimin "jashtë vendit" si 1 orë para fillimit dhe takimin "në vend" si 15 minuta para fillimit. Duke parë këtë kërkesë, më poshtë do të ndajmë një metodë të shpejtë.

Cakto automatikisht kujtesë të ndryshme për takime në kategori të ndryshme ngjyrash

1. Për të filluar, hapni aplikacionin tuaj Outlook.
2. Më pas, shtypni butonat "Alt + F11" për të hyrë në dritaren e redaktuesit VBA.
3. Më pas, në dritaren pasuese, kopjoni dhe ngjisni kodin VBA më poshtë në projektin "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. Më vonë, duhet të klikoni në nënprogramin "Application_Startup" dhe të shtypni butonin "F5" për të ekzekutuar këtë makro.
5. Që atëherë, sa herë që një takim i ri shtohet në kalendarin e parazgjedhur ose kur ndryshoni një takim ekzistues, Outlook do të kontrollojë automatikisht kategoritë e takimit dhe do të vendosë automatikisht kohën e ndryshme të kujtesës.

Eliminoni gabimet e Outlook

Probleme të ndryshme mund të shfaqen në Outlook herë pas here. Prandaj, është jashtëzakonisht e rëndësishme që përdoruesit të mësojnë se si të përballojnë problemet e Outlook. Për të filluar, është më mirë të bëni kopje rezervë të të dhënave të Outlook rregullisht. Për më tepër, nëse është e përballueshme, sugjerohet të mbani një të fuqishëm. Riparimi i parashikimeve mjet afër, si p.sh DataNumen Outlook Repair. Mund të skanojë skedarin tuaj PST për të kuptuar problemet e Outlook dhe më pas t'i zgjidhë ato me lehtësi.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com