Sådan batches åbne flere iCalendar (.ics) filer i din Outlook

Hvis du har mange iCalendar (.ics) filer på dit lokale drev og gerne vil batch-åbne dem i Outlook, kan du læse denne artikel. Her lærer vi dig at bruge VBA-kode til at realisere det.

Normalt, for at åbne en iCalendar (.ics) fil i din Outlook, kan du nemt gøre brug af "Import" -funktionen. Men hvis du vil batch-åbne mange, er "Import" hjælpeløs, da det ikke understøtter dig til at vælge mere end en fil på én gang. Derfor skal du bruge andre tilgange.

Hvis disse ics-filer er gemt i den samme lokale mappe, kan du vælge dem og trykke på "Enter" -tasten for at åbne dem samlet. Men hvis de er placeret i forskellige mapper under et drev, er ovenstående måde også ubrugelig. I dette tilfælde kan du bruge følgende metode, som kan behandle alle mapper under en hovedmappe rekursivt. Læs nu for at få detaljerne videre.

Batch Åbn flere iCalendar (.ics) filer

1. Til at starte med skal du starte dit Outlook-program.
2. Tryk derefter på "Alt + F11" for at få adgang til VBA-editor.
3. Derefter skal du i det nye vindue indtaste følgende VBA-kode i et modul.

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. Flyt derefter din markør i "BatchOpenMultipleICalendarFiles" subrutine.
5. I sidste ende skal du trykke på "F5" for at udløse denne makro.
6. I pop op-dialogboksen skal du derefter vælge en Windows-mappe eller et drev, hvor iCalendar-filerne er gemt.
7. Når du modtager en meddelelse "Afsluttet", skal du åbne "Kalender" -ruden i Outlook.
8. Du kan se, at alle iCalendar-filer i den Windows-mappe har været derovre, som f.eks. Følgende skærmbillede:

Forbered et formidabelt PST-fixværktøj i nærheden

Måske har du vidst, at Outlook er udsat for fejl og korruption. Dermed anbefales det at sikkerhedskopiere dine Outlook-datafiler med jævne mellemrum. På denne måde, selvom din Outlook-fil bliver kompromitteret, kan du simpelthen bringe værdifulde Outlook-data tilbage fra sikkerhedskopier. Alligevel, hvis der ikke er sådan en sikkerhedskopi, skal du bruge et bemærkelsesværdigt reparationsværktøj, som f.eks DataNumen Outlook Repair. Det kan hjælpe dig med at rette Outlook problemer som en kork.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com