Hafta Sonu Randevularını Outlook'ta Özel Olarak Otomatik Olarak İşaretleme

Biçimost kullanıcılar, hafta sonu planlanan randevular genellikle özeldir. Bu nedenle, Outlook'un bu tür randevuları otomatik olarak özel olarak işaretlemesini ve göstermesini istiyorlar. Bu yazımızda biraz scripting ile bunu gerçekleştireceğiz.

İş ve özel randevuları daha kolay ayırt edebilmek için Outlook, kullanıcıların randevuları özel olarak işaretlemesine izin verir. Bu sayede, özel randevular olmadan takvim yazdırmayı oldukça uygun ve kolay bulacaksınız. Bu durumda, Outlook'unuzun belirli randevuları otomatik olarak tanımasını ve özel olarak işaretlemesini isteyebilirsiniz. Örneğin, genellikle hafta sonu randevuları özeldir, bu nedenle Outlook'un bunları otomatik olarak özel olarak işaretlemesine izin vermek istersiniz. Bundan sonra, bunu başarmanız için size rehberlik edeceğiz.

Hafta Sonu Randevularını Otomatik Olarak Özel Olarak İşaretle

1. İlk başta, Outlook VBA düzenleyicisini “ göre başlatın.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından “Microsoft Visual Basic for Applications” penceresinde “ThisOutlookSession” projesine aşağıdaki kodu koyun.

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. Bundan sonra restarMakroyu etkinleştirmek için Outlook.
4. Bundan sonra, yeni bir randevu oluşturduğunuzda veya var olan bir randevuyu hafta sonu olarak değiştirdiğinizde, Outlook otomatik olarak özel olarak işaretleyecektir.

Sinir bozucu Outlook Sorunlarını Çözün

Beklenmedik uygulama donması, açılan hata mesajları vb. gibi Outlook ile uğraşırken bazı sorunlarla karşılaşmış olabilirsiniz. Onlara acı çekerken endişelenirsin. Lütfen sakin ol! Panik hiçbir şeye yardımcı olmaz, ancak durumu daha da kötüleştirir. İlk olarak, PST dosyasına her zamanki gibi erişip erişemediğinizi kontrol edebilirsiniz. Öyleyse, PST dosyasını onarmanız gerekir; bu, gelen kutusu onarım aracı veya daha güçlü bir harici araç gibi DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf onarımı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com