როგორ ავტომატურად დააყენოთ სხვადასხვა შეხსენების დრო Outlook შეხვედრებისთვის სხვადასხვა ფერის კატეგორიებში

თუ თქვენ ახარისხებთ Outlook-ის შეხვედრებს ფერის კატეგორიების მიხედვით და გსურთ დააყენოთ სხვადასხვა შეხსენების დრო შეხვედრებისთვის სხვადასხვა ფერის კატეგორიაში, შეგიძლიათ მიმართოთ ამ სტატიას. აქ ჩვენ გასწავლით მის რეალიზებას Outlook VBA-ით.

მაგალითად, თქვენ შეხვედრებს ორ ჯგუფად ყოფთ. ერთი „ადგილის გარეთ“ ფერის კატეგორიაშია, რადგან შეხვედრის ადგილმდებარეობა ძალიან შორს არის, ხოლო მეორე „ადგილზე“ ფერის კატეგორიაშია, რადგან ადგილმდებარეობა სწორედ აქ არის. ახლა, თქვენ გსურთ, რომ Outlook-მა ავტომატურად დააყენოს შეხსენების დრო „ადგილის გარეთ“ შეხვედრის დაწყებამდე 1 საათით ადრე და „ადგილზე“ შეხვედრის დაწყებამდე 15 წუთით ადრე. ამ მოთხოვნის გათვალისწინებით, შემდგომში სწრაფ მეთოდს გაგიზიარებთ.

ავტომატური დაყენება სხვადასხვა შეხსენების შეხვედრებისთვის სხვადასხვა ფერის კატეგორიებში

1. დასაწყისისთვის, გაუშვით თქვენი Outlook აპლიკაცია.
2. შემდეგ დააჭირეთ "Alt + F11" ღილაკებს VBA რედაქტორის ფანჯარაში შესასვლელად.
3. შემდეგ, მომდევნო ფანჯარაში, დააკოპირეთ და ჩასვით ქვემოთ მოცემული VBA კოდი „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. მოგვიანებით, ამ მაკროს გასაშვებად უნდა დააწკაპუნოთ „Application_Startup“ ქვერუტინზე და დააჭიროთ „F5“ ღილაკს.
5. მას შემდეგ, ყოველ ჯერზე, როდესაც ახალ შეხვედრას ემატება ნაგულისხმევი კალენდარი ან შეცვლით არსებულ შეხვედრას, Outlook ავტომატურად შეამოწმებს შეხვედრის კატეგორიებს და ავტომატურად დააყენებს სხვადასხვა შეხსენების დროს.

აღმოფხვრა Outlook შეცდომები

Outlook-ს დროდადრო შეიძლება სხვადასხვა პრობლემა შეექმნას. ამიტომ, მომხმარებლებისთვის უაღრესად მნიშვნელოვანია ისწავლონ Outlook-ის პრობლემებთან გამკლავება. დასაწყისისთვის, უმჯობესია რეგულარულად შექმნათ Outlook-ის მონაცემების სარეზერვო ასლები. გარდა ამისა, თუ ეს შესაძლებელია, რეკომენდებულია ძლიერი... Outlook შეკეთება ხელსაწყო ახლოს, როგორიცაა DataNumen Outlook Repair. მას შეუძლია თქვენი PST ფაილის სკანირება Outlook-ის პრობლემების გასარკვევად და შემდეგ მარტივად გადაჭრას.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად