როგორ ავტომატურად მონიშნოთ შაბათ-კვირის დანიშვნები, როგორც პირადი Outlook-ში

მost მომხმარებლებისთვის, შაბათ-კვირას დაგეგმილი შეხვედრები, როგორც წესი, პირადია. აქედან გამომდინარე, მათ სურთ Outlook-მა ავტომატურად მონიშნოს და აჩვენოს ასეთი შეხვედრები, როგორც პირადი. ამ სტატიაში ჩვენ ამას განვახორციელებთ ცოტა სკრიპტით.

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

ავტომატურად მონიშნეთ შაბათ-კვირის დანიშვნები, როგორც პირადი

1. თავდაპირველად გაუშვით Outlook VBA რედაქტორი "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
2. შემდეგ, "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში ჩადეთ შემდეგი კოდი "ThisOutlookSession" პროექტში.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olAppointment Then
       Set objAppointment = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    Call MarkWeedendAppointmentPrivate(objAppointment)
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "Start" Or Name = "End" Then
       Call MarkWeedendAppointmentPrivate(objAppointment)
    End If
End Sub

Private Sub MarkWeedendAppointmentPrivate(ByVal objAppointment As Outlook.AppointmentItem)
    Dim dStartDate As Date
 
    dStartDate = Format(objAppointment.Start, "Short Date")
 
    'If the appointment start falls on weekend
    Select Case Weekday(dStartDate)
           Case 7, 1
                'Mark it private
                objAppointment.Sensitivity = olPrivate
    End Select
End Sub

3. ამის შემდეგ, რეზtart Outlook მაკროს გასააქტიურებლად.
4. ამიერიდან, ყოველ ჯერზე, როდესაც შექმნით ახალ შეხვედრას ან შეცვლით არსებულ შეხვედრას შაბათ-კვირას, Outlook ავტომატურად მონიშნავს მას, როგორც კერძო.

მოაგვარეთ შემაშფოთებელი Outlook პრობლემები

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

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

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