Cara Menandakan Janji Temu Akhir Minggu sebagai Peribadi di Outlook

Untuk most pengguna, janji yang dijadualkan pada hujung minggu biasanya bersifat peribadi. Oleh itu, mereka mahu Outlook menandakan dan menunjukkan janji temu secara automatik. Dalam artikel ini, kami akan membuat ini menjadi kenyataan dengan sedikit skrip.

Untuk membezakan janji temu perniagaan dan swasta dengan lebih mudah, Outlook membenarkan pengguna menandakan janji temu sebagai peribadi. Dengan cara ini, anda akan merasa senang dan senang mencetak kalendar tanpa janji temu peribadi. Dalam keadaan ini, anda mungkin ingin Outlook anda secara automatik mengenali dan menandakan janji temu sebagai peribadi. Sebagai contoh, secara amnya, janji temu pada hujung minggu adalah peribadi, oleh itu anda mahu membiarkan Outlook menandakannya sebagai peribadi. Selepas itu, kami akan membimbing anda mencapainya.

Pelantikan Akhir Minggu Auto Tandai sebagai Peribadi

1. Pada mulanya, lancarkan editor Outlook VBA mengikut “Cara Menjalankan Kod VBA di Outlook Anda".
2. Kemudian, di tetingkap "Microsoft Visual Basic for Applications", masukkan kod 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. Selepas itu, restart Outlook untuk mengaktifkan makro.
4. Mulai sekarang, setiap kali anda membuat janji temu baru atau menukar janji temu yang ada hingga hujung minggu, Outlook akan menandakannya secara automatik sebagai peribadi.

Selesaikan Masalah Outlook yang Mengganggu

Ada kemungkinan anda menghadapi beberapa masalah ketika berurusan dengan Outlook, seperti pembekuan aplikasi yang tidak dijangka, mesej ralat pop timbul dan sebagainya. Apabila menderita, anda pasti risau. Sila bertenang! Panik tidak akan membantu apa-apa, tetapi membuat kes bertambah buruk. Di tempat pertama, anda boleh memeriksa sama ada anda dapat mengakses fail PST seperti biasa. Sekiranya demikian, anda harus membaiki fail PST, yang dapat dicapai melalui alat pembaikan peti masuk atau alat luaran yang lebih kuat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pembaikan mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com