Kako grupno otvoriti više iCalendar (.ics) datoteka u vašem Outlooku

Ako imate mnogo iCalendar (.ics) datoteka na vašem lokalnom pogonu i želite ih skupno otvoriti u programu Outlook, možete pročitati ovaj članak. Ovdje ćemo vas naučiti upotrijebiti VBA kod da biste to realizirali.

Obično, da biste otvorili iCalendar (.ics) datoteku u vašem Outlooku, možete jednostavno koristiti značajku "Uvoz". Međutim, ako želite grupno otvoriti više datoteka, "Uvoz" je bespomoćan jer ne podržava odabir više od jedne datoteke odjednom. Stoga morate koristiti druge pristupe.

Ako su te ics datoteke pohranjene u istoj lokalnoj mapi, možete ih odabrati i pritisnuti tipku "Enter" da biste ih skupno otvorili. Ali, ako se nalaze u različitim mapama ispod pogona, gornji način također je beskoristan. U ovom slučaju možete koristiti sljedeću metodu koja može rekurzivno obraditi sve mape unutar glavne mape. Sada čitajte kako biste saznali više o njegovim detaljima.

Skupno otvaranje više iCalendar (.ics) datoteka

1. Za početak, pokrenite svoj Outlook program.
2. Zatim dodirnite “Alt + F11” za pristup VBA uređivaču.
3. Nakon toga u novom prozoru unesite sljedeći VBA kod u 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. Zatim pomaknite kursor u potprogramu “BatchOpenMultipleICalendarFiles”.
5. Naposljetku, pritisnite “F5” da biste pokrenuli ovu makronaredbu.
6. Nakon toga u skočnom dijaloškom okviru odaberite Windows mapu ili pogon gdje su pohranjene iCalendar datoteke.
7. Kada primite poruku "Dovršeno", pristupite oknu "Kalendar" u programu Outlook.
8. Možete vidjeti da su sve iCalendar datoteke u toj Windows mapi bile tamo, kao na sljedećoj snimci zaslona:

Pripremite sjajan alat za popravak PST-a u blizini

Možda ste znali da je Outlook sklon pogreškama i oštećenjima. Zbog toga je preporučljivo sigurnosno kopirati Outlook podatkovne datoteke u redovitim intervalima. Na ovaj način, čak i ako vaša Outlook datoteka postane ugrožena, možete jednostavno vratiti vrijedne Outlook podatke iz sigurnosnih kopija. Ipak, ako ne postoji takva sigurnosna kopija, trebali biste upotrijebiti izvanredan alat za popravak, kao što je DataNumen Outlook Repair. Može vam pomoći da popraviti Outlook pitanja poput čepa.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com