Kaip paketiniu būdu atidaryti kelis „iCalendar“ (.ics) failus „Outlook“.

Jei vietiniame diske turite daug iCalendar (.ics) failų ir norėtumėte juos paketu atidaryti programoje "Outlook", galite perskaityti šį straipsnį. Čia mes išmokysime jus naudoti VBA kodą, kad jį įgyvendintumėte.

Paprastai norėdami atidaryti „iCalendar“ (.ics) failą „Outlook“, galite lengvai pasinaudoti „Importavimo“ funkcija. Tačiau, jei norite atidaryti daug failų paketais, „Importuoti“ yra bejėgis, nes jis nepalaiko pasirinkimo daugiau nei vieno failo vienu metu. Taigi, jūs turite naudoti kitus metodus.

Jei šie ics failai yra saugomi tame pačiame vietiniame aplanke, galite juos pasirinkti ir paspausti klavišą „Enter“, kad atidarytumėte juos masiškai. Tačiau jei jie yra skirtinguose disko aplankuose, aukščiau aprašytas būdas taip pat yra nenaudingas. Tokiu atveju galite naudoti šį metodą, kuris gali rekursyviai apdoroti visus pagrindiniame aplanke esančius aplankus. Dabar skaitykite toliau, kad gautumėte daugiau informacijos.

Paketas Atidaryti kelis iCalendar (.ics) failus

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada bakstelėkite „Alt + F11“, kad pasiektumėte VBA redaktorių.
3. Po to naujame lange į modulį įveskite šį VBA kodą.

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. Tada perkelkite žymeklį į paprogramę „BatchOpenMultipleICalendarFiles“.
5. Galiausiai paspauskite „F5“, kad suaktyvintumėte šią makrokomandą.
6. Tada iššokančiajame dialogo lange pasirinkite „Windows“ aplanką arba diską, kuriame saugomi „iCalendar“ failai.
7. Kai gaunate pranešimą „Baigta“, „Outlook“ atidarykite „Kalendoriaus“ sritį.
8. Galite matyti, kad visi „iCalendar“ failai tame „Windows“ aplanke buvo ten, pavyzdžiui, šioje ekrano kopijoje:

Netoliese paruoškite puikų PST taisymo įrankį

Galbūt žinojote, kad „Outlook“ yra linkusi į klaidas ir korupciją. Todėl patartina reguliariai kurti atsargines Outlook duomenų failų kopijas. Tokiu būdu, net jei jūsų „Outlook“ failas yra pažeistas, galite tiesiog grąžinti vertingus „Outlook“ duomenis iš atsarginių kopijų. Tačiau, jei tokios atsarginės kopijos nėra, turėtumėte naudoti puikų taisymo įrankį, pvz DataNumen Outlook Repair. Tai gali jums padėti pataisyti Outlook tokias problemas kaip kamštis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com