Paano Mag-batch Magbukas ng Maramihang iCalendar (.ics) na mga File sa Iyong Outlook

Kung marami kang iCalendar (.ics) na file sa iyong lokal na drive at gusto mong i-batch ang mga ito sa Outlook, maaari mong basahin ang artikulong ito. Dito, tuturuan ka naming gamitin ang VBA code para magawa ito.

Karaniwan, para magbukas ng iCalendar (.ics) file sa iyong Outlook, madali mong magagamit ang feature na “Import”. Gayunpaman, kung gusto mong mag-batch ng marami, walang magawa ang “Import” dahil hindi ka nito sinusuportahan na pumili ng higit sa isang file nang sabay-sabay. Samakatuwid, kailangan mong gumamit ng iba pang mga diskarte.

Kung ang mga ics file na ito ay nakaimbak sa parehong lokal na folder, maaari mong piliin ang mga ito at pindutin ang "Enter" key upang buksan ang mga ito nang maramihan. Ngunit, kung ang mga ito ay matatagpuan sa iba't ibang mga folder sa ilalim ng isang drive, ang paraan sa itaas ay walang silbi rin. Sa kasong ito, maaari mong gamitin ang sumusunod na paraan, na maaaring iproseso ang lahat ng mga folder sa ilalim ng pangunahing folder nang recursively. Ngayon, basahin upang makuha ang mga detalye nito.

Batch Open Maramihang iCalendar (.ics) Files

1. Bilang panimula, ilunsad ang iyong programa sa Outlook.
2. Pagkatapos, mag-tap sa "Alt + F11" upang ma-access ang VBA editor.
3. Pagkatapos nito, sa bagong window, ipasok ang sumusunod na VBA code sa isang module.

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. Susunod, ilipat ang iyong cursor sa subroutine na “BatchOpenMultipleICalendarFiles.”
5. Sa huli, pindutin ang "F5" para ma-trigger ang macro na ito.
6. Pagkatapos, sa popup dialog box, pumili ng Windows folder o drive kung saan naka-imbak ang mga iCalendar file.
7. Kapag nakatanggap ka ng "Nakumpleto" na mensahe, i-access ang "Calendar" pane sa Outlook.
8. Makikita mo na ang lahat ng iCalendar file sa folder ng Windows na iyon ay naroon na, tulad ng sumusunod na screenshot:

Maghanda ng Mahusay na PST Fix Tool sa Malapit

Marahil ay alam mo na ang Outlook ay madaling kapitan ng mga pagkakamali at katiwalian. Sa gayon, ipinapayong i-back up ang iyong mga file ng data sa Outlook sa mga regular na pagitan. Sa ganitong paraan, kahit na ang iyong Outlook file ay nakompromiso, maaari mo lamang ibalik ang mahalagang data ng Outlook mula sa mga backup. Gayunpaman, kung walang ganoong backup, kakailanganin mong gumamit ng isang kahanga-hangang tool sa pag-aayos, tulad ng DataNumen Outlook Repair. Makakatulong ito sa iyo ayusin ang Outlook mga isyu tulad ng isang tapon.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang bawiin mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa