Jak zbiorczo otworzyć wiele plików iCalendar (.ics) w programie Outlook

Jeśli masz wiele plików iCalendar (.ics) na dysku lokalnym i chcesz zbiorczo otwierać je w programie Outlook, możesz przeczytać ten artykuł. Tutaj nauczymy Cię wykorzystywać kod VBA, aby to zrealizować.

Zwykle, aby otworzyć plik iCalendar (.ics) w programie Outlook, można łatwo skorzystać z funkcji „Importuj”. Jeśli jednak chcesz zbiorczo otworzyć wiele plików, „Import” jest bezradny, ponieważ nie umożliwia wybrania więcej niż jednego pliku na raz. Dlatego musisz użyć innych podejść.

Jeśli te pliki ics są przechowywane w tym samym folderze lokalnym, możesz je zaznaczyć i nacisnąć klawisz „Enter”, aby otworzyć je zbiorczo. Ale jeśli znajdują się w różnych folderach na dysku, powyższy sposób również jest bezużyteczny. W takim przypadku możesz użyć następującej metody, która może rekurencyjnie przetwarzać wszystkie foldery w folderze głównym. Teraz przeczytaj dalej, aby poznać szczegóły.

Batch Otwórz wiele plików iCalendar (.ics)

1. Na początek uruchom program Outlook.
2. Następnie dotknij „Alt + F11”, aby uzyskać dostęp do edytora VBA.
3. Następnie w nowym oknie wprowadź następujący kod VBA do modułu.

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. Następnie przesuń kursor w podprogramie „BatchOpenMultipleICalendarFiles”.
5. Ostatecznie naciśnij „F5”, aby wywołać to makro.
6. Następnie w wyskakującym oknie dialogowym wybierz folder lub dysk systemu Windows, na którym przechowywane są pliki iCalendar.
7. Gdy otrzymasz wiadomość „Completed”, otwórz okienko „Calendar” w Outlooku.
8. Możesz zobaczyć, że wszystkie pliki iCalendar w tym folderze Windows były tam, jak na poniższym zrzucie ekranu:

Przygotuj w pobliżu potężne narzędzie do naprawy plików PST

Być może wiesz, że program Outlook jest podatny na błędy i korupcję. W związku z tym zaleca się regularne tworzenie kopii zapasowych plików danych programu Outlook. W ten sposób, nawet jeśli plik programu Outlook zostanie zagrożony, możesz po prostu przywrócić cenne dane programu Outlook z kopii zapasowych. Jeśli jednak nie ma takiej kopii zapasowej, musiałbyś użyć niezwykłego narzędzia naprawczego, takiego jak DataNumen Outlook Repair. To może ci pomóc naprawić Outlooka problemy jak korek.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskać mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com