2 วิธีในการตั้งค่าวันที่สิ้นสุดการนัดหมาย Outlook ที่เกิดขึ้นซ้ำเป็นค่าเริ่มต้น

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

เมื่อคุณสร้างการนัดหมายใหม่และคลิกปุ่ม“ การเกิดซ้ำ” ในกล่องโต้ตอบป๊อปอัป“ การเกิดซ้ำของการนัดหมาย” คุณจะเห็นว่า“ ไม่มีวันที่สิ้นสุด” ถูกเลือกโดยค่าเริ่มต้นดังที่แสดงในรูปต่อไปนี้ หากคุณไม่ชอบสิ่งนี้และต้องการกำหนดวันที่สิ้นสุดเริ่มต้นเช่น 90 วันนับจากเหตุการณ์แรกคุณสามารถอ่านต่อได้ ที่นี่เราจะสอนคุณ 2 แนวทางในการตระหนักถึงมัน

วิธีที่ 1: ตั้งค่าโดยการเปลี่ยน Registry

1. เริ่มต้นด้วยการไปที่ “เมนูเริ่มต้น” แล้วค้นหา “regedit”
2. จากนั้นคลิกที่พบโปรแกรม“ regedit”
3. จากนั้นกล่องโต้ตอบ“ การควบคุมบัญชีผู้ใช้” จะปรากฏขึ้นซึ่งคุณต้องคลิก“ ใช่”
4. หลังจากเข้าสู่หน้าต่าง“ Registry Editor” แล้วให้ไปที่เส้นทาง -” HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Options \ Calendar”
5. จากนั้นคลิกขวาที่“ ปฏิทิน” แล้วเลือก“ ใหม่”>“ ค่า DWORD (32 บิต)”
6. จากนั้นตั้งชื่อค่าใหม่นี้ว่า“ RecurrencesDefault”
7. จากนั้นดับเบิลคลิกที่ค่า
8. ในป๊อปอัป "แก้ไขค่า DWORD (32 บิต)" ให้ป้อนตัวเลขในช่อง "Value data" หมายถึงจำนวนวันนับจากวันนี้ ตัวอย่างเช่นถ้าเป็น“ 90” Outlook จะตั้งวันที่สิ้นสุดการเกิดซ้ำเป็น 90 วันนับจากวันนี้
9. หลังจากนั้นคลิก“ ตกลง” และออกจาก Registry Editor อย่างถูกต้อง
10. สุดท้ายนี้ ให้รีสตาร์ท Outlook ของคุณ แล้วลองสร้างนัดหมายแบบเกิดซ้ำอีกครั้ง วันสิ้นสุดจะถูกตั้งค่าตามค่า "RecurrencesDefault"

วิธีที่ 2: ตั้งค่าด้วย Outlook VBA

1. ขั้นแรก ให้เรียกใช้โปรแกรมแก้ไข VBA ของ Outlook โดยกด “Alt + F11”
2. จากนั้นใส่รหัส VBA ต่อไปนี้ในโปรเจ็กต์“ ThisOutlookSession”

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 TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Change enable "Recurrence"
    If Name = "IsRecurring" Then
       If objAppointment.IsRecurring = True Then
          Set objRecurrencePattern = objAppointment.GetRecurrencePattern
          'Change the end date to 30 days from the start date
          'Alter "30" as per your needs
          objRecurrencePattern.PatternEndDate = objRecurrencePattern.PatternStartDate + 30
       End If
    End If
End Sub

3. สุดท้าย คลิกเข้าไปที่มาโคร “Application_Startup” แล้วกด “F5”
4. ในปัจจุบันคุณสามารถสร้างการนัดหมายใหม่ได้
5. หลังจากนั้นคลิกปุ่ม "การเกิดซ้ำ" แก้ไขการตั้งค่าการเกิดซ้ำโดยใช้ "ไม่มีวันที่สิ้นสุด" แล้วคลิก "ตกลง"
6. หลังจากนั้นคุณสามารถคลิก "การเกิดซ้ำ" อีกครั้งเพื่อตรวจสอบ คุณจะเห็นว่าวันที่สิ้นสุดมีการเปลี่ยนแปลงตามรหัส VBA ของคุณ

แก้ไขไฟล์ Outlook PST ที่ไม่สามารถเข้าถึงได้

คุณเคยได้รับข้อความแสดงข้อผิดพลาดเกี่ยวกับ“ ไฟล์ PST ที่ไม่สามารถเข้าถึงได้” ใน Outlook ของคุณหรือไม่? ถ้าคุณมีคุณจัดการกับพวกเขาอย่างไร? บางที Scanpst อาจเกิดขึ้นกับความคิดของคุณในตอนแรก อย่างไรก็ตามเมื่อคุณพยายาม แก้ไข Outlookก็ล้มเหลวเช่นกัน ในสถานการณ์นี้ทางเลือกสุดท้ายของคุณคือซอฟต์แวร์กู้คืนข้อมูลที่มีประสบการณ์เช่น DataNumen Outlook Repair หรือบริการกู้คืนเฉพาะ

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

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