Cara Otomatis Menandai Janji Akhir Pekan sebagai Pribadi di Outlook

Bentukost pengguna, janji temu yang dijadwalkan pada akhir pekan biasanya bersifat pribadi. Oleh karena itu, mereka ingin Outlook secara otomatis menandai dan menampilkan janji temu tersebut sebagai pribadi. Pada artikel ini, kami akan mewujudkannya dengan sedikit skrip.

Untuk lebih mudah membedakan antara janji temu bisnis dan pribadi, Outlook mengizinkan pengguna menandai janji temu sebagai pribadi. Dengan cara ini, Anda akan merasa cukup nyaman dan mudah untuk mencetak kalender tanpa janji temu pribadi. Dalam situasi ini, Anda mungkin ingin Outlook Anda secara otomatis mengenali dan menandai janji tertentu sebagai pribadi. Misalnya, umumnya, janji temu di akhir pekan bersifat pribadi, sehingga Anda ingin mengizinkan Outlook menandainya secara otomatis sebagai pribadi. Selanjutnya, kami akan memandu Anda mencapainya.

Tandai Otomatis Janji Akhir Pekan sebagai Pribadi

1. Pertama-tama, luncurkan editor Outlook VBA menurut "Cara Menjalankan Kode VBA di Outlook Anda".
2. Kemudian, di jendela "Microsoft Visual Basic for Applications", masukkan kode berikut ke dalam proyek "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. Setelah itu restart Outlook untuk mengaktifkan makro.
4. Mulai sekarang, setiap kali Anda membuat janji baru atau mengubah janji yang sudah ada menjadi akhir pekan, Outlook akan otomatis menandainya sebagai pribadi.

Memecahkan Masalah Outlook yang Mengganggu

Mungkin saja Anda mengalami beberapa masalah saat berurusan dengan Outlook, seperti aplikasi berhenti tiba-tiba, pesan kesalahan popup, dan sebagainya. Saat menderita mereka, Anda akan khawatir. Mohon tenang! Kepanikan tidak akan membantu apa-apa, tetapi memperburuk keadaan. Pertama-tama, Anda dapat memeriksa apakah Anda dapat mengakses file PST seperti biasa. Jika demikian, Anda harus memperbaiki file PST, yang dapat dilakukan melalui alat perbaikan kotak masuk atau alat eksternal yang lebih kuat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaikan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com