วิธีผสานการนัดหมายและการประชุมทั้งหมดโดยอัตโนมัติจากปฏิทินทั้งหมดด้วย Outlook VBA

โซลูชัน Outlook September 29, 2025

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

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

ผสานการนัดหมายและการประชุมทั้งหมดโดยอัตโนมัติจากปฏิทินทั้งหมด

ในตอนแรกให้เปิดแอปพลิเคชัน Outlook ของคุณ
หลังจากที่คุณเข้าสู่หน้าต่างหลักของ Outlook แล้วให้กดปุ่ม“ Alt + F11”
จากนั้นคุณจะเข้าสู่หน้าต่าง“ Microsoft Visual Basic for Applications”
ถัดไปคุณจะต้องค้นหาและเปิดโครงการ“ ThisOutlookSession”
จากนั้นคุณควรคัดลอกและวางรหัส VBA ต่อไปนี้ลงในหน้าต่างโครงการนี้

'Here we take two calendars as an example - "Calendar A" & "Calendar B"
'You can add more as per your needs
Dim WithEvents objACalendarItems As Outlook.Items
Dim WithEvents objBCalendarItems As Outlook.Items
Dim objDefaultCalendar As Outlook.Folder
 
Private Sub Application_Startup()
    Set objACalendarItems = Application.Session.folders("File A").folders("Calendar").Items
    Set objBCalendarItems = Application.Session.folders("File B").folders("Calendar").Items

    'Here we merge into the default calendar
    Set objDefaultCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
End Sub
 
Private Sub objACalendarItems_ItemAdd(ByVal Item As Object)
    Call CopyToDefaultCalendar(Item)
End Sub

Private Sub objBCalendarItems_ItemAdd(ByVal Item As Object)
    Call CopyToDefaultCalendar(Item)
End Sub

Private Sub CopyToDefaultCalendar(ByVal objItem As Object)
    Dim objCopiedAppointment As Outlook.AppointmentItem
    Dim objMoviedAppointment As Outlook.AppointmentItem
    Dim strPSTFileName As String
 
    Set objCopiedAppointment = objItem.Copy
    Set objMoviedAppointment = objCopiedAppointment.Move(objDefaultCalendar)
 
    strPSTFileName = objItem.parent.parent.Name
 
    'Tag the source of the copied appointments
    objMoviedAppointment.Categories = "From " & strPSTFileName
    objMoviedAppointment.Save
    'If want to delete it from the original calendar, add the following line:
    'objItem.Delete
End Sub

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

ลบรายการที่ค้างชำระออกจากปฏิทินในเวลา

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

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

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