Jak dávkové otevření více souborů iCalendar (.ics) ve vašem Outlooku

Pokud máte na místním disku mnoho souborů iCalendar (.ics) a chcete je hromadně otevřít v Outlooku, můžete si přečíst tento článek. Zde vás naučíme využívat kód VBA k jeho realizaci.

Za normálních okolností můžete k otevření souboru iCalendar (.ics) v aplikaci Outlook snadno použít funkci „Importovat“. Pokud však chcete hromadně otevřít mnoho, je „Import“ bezmocný, protože nepodporuje výběr více než jednoho souboru najednou. Proto musíte použít jiné přístupy.

Pokud jsou tyto soubory ICS uloženy ve stejné místní složce, můžete je vybrat a hromadně je otevřít stisknutím klávesy „Enter“. Ale pokud jsou umístěny v různých složkách pod jednotkou, výše uvedený způsob je také k ničemu. V tomto případě můžete použít následující metodu, která dokáže rekurzivně zpracovat všechny složky v hlavní složce. Nyní čtěte dále a získejte další podrobnosti.

Dávkové otevírání více souborů iCalendar (.ics)

1. Pro začátek spusťte program Outlook.
2. Poté klepnutím na „Alt + F11“ otevřete editor VBA.
3. Poté v novém okně zadejte do modulu následující kód 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. Dále přesuňte kurzor do podprogramu „BatchOpenMultipleICalendarFiles“.
5. Nakonec toto makro spusťte stisknutím klávesy „F5“.
6. Následně v rozbalovacím dialogovém okně vyberte složku Windows nebo jednotku, kde jsou uloženy soubory iCalendar.
7. Když se zobrazí zpráva „Dokončeno“, otevřete v aplikaci Outlook podokno „Kalendář“.
8. Vidíte, že tam byly všechny soubory iCalendar ve složce Windows, například následující snímek obrazovky:

Připravte si v blízkosti impozantní nástroj pro opravu PST

Možná jste věděli, že Outlook je náchylný k chybám a poškozením. Proto je vhodné zálohovat datové soubory aplikace Outlook v pravidelných intervalech. Tímto způsobem, i když dojde k narušení souboru aplikace Outlook, můžete jednoduše přivést zpět ze zálohy cenná data aplikace Outlook. Pokud však taková záloha neexistuje, budete muset použít pozoruhodný nástroj pro opravu DataNumen Outlook Repair. To vám může pomoci opravit Outlook problémy jako korek.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com