วิธีทำเครื่องหมายการนัดหมายวันหยุดสุดสัปดาห์โดยอัตโนมัติเป็นส่วนตัวใน Outlook

แบบฟอร์มost ผู้ใช้ การนัดหมายที่กำหนดไว้ในช่วงสุดสัปดาห์มักเป็นแบบส่วนตัว ดังนั้นพวกเขาต้องการให้ Outlook ทำเครื่องหมายและแสดงการนัดหมายดังกล่าวเป็นแบบส่วนตัวโดยอัตโนมัติ ในบทความนี้ เราจะทำให้สิ่งนี้เป็นจริงด้วยการเขียนสคริปต์เล็กน้อย

เพื่อให้แยกแยะระหว่างการนัดหมายทางธุรกิจและการนัดหมายส่วนตัวได้ง่ายขึ้น Outlook อนุญาตให้ผู้ใช้ทำเครื่องหมายการนัดหมายเป็นการส่วนตัว ด้วยวิธีนี้ คุณจะพบว่าการพิมพ์ปฏิทินค่อนข้างสะดวกและง่ายดายโดยไม่ต้องมีการนัดหมายส่วนตัว ในสถานการณ์นี้ คุณอาจต้องการให้ Outlook จดจำและทำเครื่องหมายการนัดหมายเฉพาะเจาะจงให้เป็นส่วนตัวโดยอัตโนมัติ ตัวอย่างเช่น โดยทั่วไป การนัดหมายในช่วงสุดสัปดาห์จะเป็นแบบส่วนตัว ดังนั้นคุณจึงต้องการให้ Outlook ทำเครื่องหมายเป็นการส่วนตัวโดยอัตโนมัติ หลังจากนั้นเราจะแนะนำคุณให้บรรลุผลสำเร็จ

ทำเครื่องหมายการนัดหมายวันหยุดสุดสัปดาห์อัตโนมัติเป็นแบบส่วนตัว

1. ในตอนแรก เปิดตัวแก้ไข Outlook VBA ตาม “วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
2. จากนั้นในหน้าต่าง "Microsoft Visual Basic for Applications" ให้วางโค้ดต่อไปนี้ลงในโครงการ "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. หลังจากนั้น restart Outlook เพื่อเปิดใช้งานแมโคร
4. จากนี้ไป ทุกครั้งที่คุณสร้างการนัดหมายใหม่หรือเปลี่ยนการนัดหมายที่มีอยู่เป็นวันหยุดสุดสัปดาห์ Outlook จะทำเครื่องหมายเป็นการส่วนตัวโดยอัตโนมัติ

แก้ปัญหา Outlook ที่น่ารำคาญ

อาจเป็นไปได้ว่าคุณประสบปัญหาบางอย่างเมื่อต้องรับมือกับ Outlook เช่น แอปพลิเคชันค้างโดยไม่คาดคิด ข้อความแสดงข้อผิดพลาดป๊อปอัป และอื่นๆ เมื่อทุกข์ก็วิตกกังวล กรุณาใจเย็น ๆ! ความตื่นตระหนกไม่ได้ช่วยอะไร แต่จะทำให้คดีแย่ลง ในตอนแรกคุณสามารถตรวจสอบว่าคุณสามารถเข้าถึงไฟล์ PST ได้ตามปกติหรือไม่ หากเป็นเช่นนั้น คุณจะต้องซ่อมแซมไฟล์ PST ซึ่งสามารถทำได้ผ่านไฟล์ เครื่องมือซ่อมแซมกล่องจดหมาย หรือเครื่องมือภายนอกที่ทรงพลังกว่า เช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อม mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.