วิธีแบทช์เปิดไฟล์ iCalendar (.ics) หลายไฟล์ใน Outlook ของคุณ

หากคุณมีไฟล์ iCalendar (.ics) จำนวนมากในไดรฟ์ในเครื่องของคุณ และต้องการเปิดเป็นชุดใน Outlook คุณสามารถอ่านบทความนี้ได้ ที่นี่เราจะสอนให้คุณใช้รหัส VBA เพื่อใช้งาน

โดยปกติแล้ว หากต้องการเปิดไฟล์ iCalendar (.ics) ใน Outlook คุณสามารถใช้คุณลักษณะ "นำเข้า" ได้อย่างง่ายดาย อย่างไรก็ตาม หากคุณต้องการเปิดหลายไฟล์เป็นชุด “นำเข้า” นั้นช่วยไม่ได้เพราะไม่สนับสนุนให้คุณเลือกไฟล์มากกว่าหนึ่งไฟล์พร้อมกัน จึงต้องใช้วิธีอื่น

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

ชุดเปิดไฟล์ iCalendar (.ics) หลายไฟล์

1. ขั้นแรก ให้เปิดโปรแกรม Outlook ของคุณ
2. จากนั้นแตะที่“ Alt + F11” เพื่อเข้าถึงตัวแก้ไข VBA
3. หลังจากนั้น ในหน้าต่างใหม่ ให้ป้อนโค้ด VBA ต่อไปนี้ลงในโมดูล

Sub BatchOpenMultipleICalendarFiles()
    Dim objShell, objWindowsFolder As Object
    Dim strWindowsFolder As String
 
    'Select a Windows Folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Call LoopFolders(strWindowsFolder)
 
       MsgBox "Completed!", vbInformation + vbOKOnly, "Open iCalendar Files"
    End If
End Sub

Sub LoopFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objICalendarFile As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
 
    'Open each iCalendar file
    For Each objFile In objFolder.Files
        If LCase(objFileSystem.GetExtensionName(objFile)) = "ics" Then
           Set objICalendarFile = objFile
           On Error Resume Next
           Application.GetNamespace("MAPI").OpenSharedFolder objICalendarFile.Path
        End If
    Next
 
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
              Call LoopFolders(objSubfolder.Path)
           End If
       Next
    End If
End Sub

4. ถัดไป ย้ายเคอร์เซอร์ของคุณในรูทีนย่อย “BatchOpenMultipleICalendarFiles”
5. ท้ายที่สุด ให้กด “F5” เพื่อเรียกใช้มาโครนี้
6. จากนั้น ในกล่องโต้ตอบป๊อปอัป ให้เลือกโฟลเดอร์ Windows หรือไดรฟ์ที่เก็บไฟล์ iCalendar
7. เมื่อคุณได้รับข้อความ "เสร็จสมบูรณ์" ให้เข้าถึงบานหน้าต่าง "ปฏิทิน" ใน Outlook
8. คุณจะเห็นว่าไฟล์ iCalendar ทั้งหมดในโฟลเดอร์ Windows นั้นอยู่ที่นั่นแล้ว เช่นภาพหน้าจอต่อไปนี้:

เตรียม PST Fix Tool ที่น่าเกรงขามไว้ใกล้ๆ

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

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

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