Hvordan batchåpne flere iCalendar (.ics)-filer i Outlook

Hvis du har mange iCalendar-filer (.ics) på din lokale stasjon og ønsker å åpne dem batch i Outlook, kan du lese denne artikkelen. Her skal vi lære deg å bruke VBA-kode for å realisere det.

Normalt, for å åpne en iCalendar (.ics)-fil i Outlook, kan du enkelt bruke "Import"-funksjonen. Men hvis du ønsker å batchåpne mange, er "Import" hjelpeløs siden den ikke støtter deg til å velge mer enn én fil samtidig. Derfor må du bruke andre tilnærminger.

Hvis disse ics-filene er lagret i samme lokale mappe, kan du velge dem og trykke "Enter"-tasten for å åpne dem i bulk. Men hvis de er plassert i forskjellige mapper under en stasjon, er metoden ovenfor også ubrukelig. I dette tilfellet kan du bruke følgende metode, som kan behandle alle mapper under en hovedmappe rekursivt. Les videre for å få detaljene videre.

Batch Åpne flere iCalendar (.ics)-filer

1. For å begynne, start Outlook-programmet ditt.
2. Trykk deretter på "Alt + F11" for å få tilgang til VBA-redigering.
3. Etter det, i det nye vinduet, skriv inn følgende VBA-kode i en 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. Deretter flytter du markøren i "BatchOpenMultipleICalendarFiles"-underrutinen.
5. Til slutt, trykk "F5" for å utløse denne makroen.
6. I popup-dialogboksen velger du deretter en Windows-mappe eller -stasjon der iCalendar-filene er lagret.
7. Når du mottar meldingen "Fullført", åpner du "Kalender"-panelet i Outlook.
8. Du kan se at alle iCalendar-filene i den Windows-mappen har vært der, som følgende skjermbilde:

Forbered et formidabelt PST-fiksverktøy i nærheten

Kanskje du har visst at Outlook er utsatt for feil og korrupsjon. Derfor er det tilrådelig å sikkerhetskopiere Outlook-datafilene dine med jevne mellomrom. På denne måten, selv om Outlook-filen din blir kompromittert, kan du ganske enkelt hente tilbake verdifulle Outlook-data fra sikkerhetskopier. Likevel, hvis det ikke er en slik sikkerhetskopi, må du bruke et bemerkelsesverdig reparasjonsverktøy, som DataNumen Outlook Repair. Det kan hjelpe deg å fikse Outlook problemer som en kork.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med