Ako dávkovo otvoriť viacero súborov iCalendar (.ics) v programe Outlook

Ak máte na lokálnom disku veľa súborov iCalendar (.ics) a chceli by ste ich hromadne otvoriť v programe Outlook, môžete si prečítať tento článok. Tu vás naučíme používať kód VBA na jeho realizáciu.

Za normálnych okolností môžete na otvorenie súboru iCalendar (.ics) v programe Outlook jednoducho použiť funkciu „Importovať“. Ak však chcete hromadne otvoriť veľa súborov, „Import“ je bezmocný, pretože nepodporuje výber viac ako jedného súboru naraz. Preto musíte použiť iné prístupy.

Ak sú tieto súbory ics uložené v rovnakom lokálnom priečinku, môžete ich vybrať a stlačením klávesu „Enter“ ich otvoriť hromadne. Ak sa však nachádzajú v rôznych priečinkoch pod jednotkou, vyššie uvedený spôsob je tiež zbytočný. V tomto prípade môžete použiť nasledujúcu metódu, ktorá dokáže rekurzívne spracovať všetky priečinky v hlavnom priečinku. Teraz čítajte ďalej, aby ste získali ďalšie podrobnosti.

Dávkové otvorenie viacerých súborov iCalendar (.ics).

1. Na začiatok spustite program Outlook.
2. Potom klepnutím na „Alt + F11“ vstúpte do editora VBA.
3. Potom v novom okne zadajte nasledujúci kód VBA do modulu.

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. Potom presuňte kurzor v podprograme „BatchOpenMultipleICalendarFiles“.
5. Nakoniec toto makro spustíte stlačením „F5“.
6. Následne v kontextovom dialógovom okne vyberte priečinok alebo jednotku Windows, kde sú uložené súbory iCalendar.
7. Keď dostanete správu „Dokončené“, otvorte tablu „Kalendár“ v programe Outlook.
8. Môžete vidieť, že všetky súbory iCalendar v tomto priečinku Windows tam boli, ako napríklad nasledujúca snímka obrazovky:

Pripravte si impozantný nástroj na opravu PST v blízkosti

Možno ste vedeli, že Outlook je náchylný na chyby a poškodenie. Preto sa odporúča v pravidelných intervaloch zálohovať dátové súbory programu Outlook. Týmto spôsobom, aj keď je váš súbor programu Outlook ohrozený, môžete jednoducho vrátiť cenné údaje programu Outlook zo záloh. Ak však takáto záloha neexistuje, budete musieť použiť pozoruhodný nástroj na opravu, napr DataNumen Outlook Repair. Môže vám pomôcť opraviť Outlook problémy ako korok.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane vymáhať mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S