วิธีตั้งค่าเวลาเริ่มต้นและสิ้นสุดเริ่มต้นของกิจกรรมตลอดทั้งวันโดยอิงตามเวลาทำงานของคุณใน Outlook

โดยปกติแล้ว ใน Outlook คุณจะไม่สามารถเปลี่ยนเวลาเริ่มต้นและเวลาสิ้นสุดของกิจกรรมตลอดทั้งวันได้ตามต้องการ บทความนี้จะแสดงวิธีการตั้งค่าเวลาเริ่มต้นและเวลาสิ้นสุดเริ่มต้นของกิจกรรมตลอดทั้งวันให้ตรงกับเวลาทำงานของคุณ

อย่างที่คุณเห็น เมื่อคุณเปิดใช้งานตัวเลือก “กิจกรรมตลอดทั้งวัน” ในการนัดหมาย ช่อง “เวลาเริ่มต้น” และ “เวลาสิ้นสุด” จะเป็นสีเทา ในกรณีนี้ หมายความว่าคุณไม่สามารถเปลี่ยนแปลงเวลาได้ตามต้องการ ดังนั้น ในส่วนต่อไปนี้ เราจะแนะนำวิธีการตั้งค่าเวลาเริ่มต้นและเวลาสิ้นสุดเริ่มต้นของกิจกรรมตลอดทั้งวันตามเวลาทำงานของคุณใน Outlook

ตั้งค่าเวลาเริ่มต้นและเวลาสิ้นสุดเริ่มต้นของกิจกรรมตลอดทั้งวันตามเวลาทำการ

1. ขั้นแรก ให้เปิดโปรแกรม Outlook ของคุณ
2. หลังจากเข้าสู่หน้าจอหลักของ Outlook แล้วคุณสามารถกดปุ่ม“ Alt + F11” ได้
3. จากนั้นคุณจะสามารถเข้าถึงหน้าต่างตัวแก้ไข Outlook VBA
4. ในหน้าต่าง“ Microsoft Visual Basic for Applications” ปัจจุบันคุณต้องเปิดหน้าต่างโปรเจ็กต์“ ThisOutlookSession”
5. จากนั้นคัดลอกรหัส VBA ต่อไปนี้ลงในโครงการนี้

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

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
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 objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. หลังจากนั้นคุณต้องเซ็นรหัสนี้ คลิก“ เครื่องมือ”>“ ลายเซ็น”
7. ในกล่องโต้ตอบถัดไปให้ทำตามคำแนะนำบนหน้าจอเพื่อกำหนดใบรับรองดิจิทัลให้กับโครงการ VBA ใหม่
8. ในภายหลังคุณควรเปลี่ยนการตั้งค่าแมโคร Outlook ของคุณเพื่ออนุญาตแมโครที่เซ็นชื่อแบบดิจิทัล
9. สุดท้าย คุณสามารถรีสตาร์ทแอปพลิเคชัน Outlook เพื่อเปิดใช้งานมาโครนี้ได้
10. ตั้งแต่นี้เป็นต้นไป ทุกครั้งที่คุณเปิดใช้งานตัวเลือก “กิจกรรมตลอดทั้งวัน” ในการนัดหมายใน Outlook เวลาเริ่มต้นและเวลาสิ้นสุดของการนัดหมายจะเปลี่ยนเป็นเวลาทำงานของคุณ ดังภาพหน้าจอต่อไปนี้:

ดึงข้อมูลที่มีค่าจากไฟล์ Outlook ที่ถูกบุกรุก

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

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

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