Як пакетно відкрити кілька файлів iCalendar (.ics) у вашому

Якщо на вашому локальному диску багато файлів iCalendar (.ics) і ви хочете пакетно їх відкрити в Outlook, ви можете прочитати цю статтю. Тут ми навчимо вас використовувати код VBA для його реалізації.

Зазвичай, щоб відкрити файл iCalendar (.ics) у своєму Outlook, ви можете легко скористатися функцією «Імпорт». Однак, якщо ви хочете пакетно відкрити багато, "Імпорт" безпорадний, оскільки не підтримує вибір декількох файлів одночасно. Отже, вам доведеться використовувати інші підходи.

Якщо ці файли ics зберігаються в одній локальній папці, ви можете їх вибрати та натиснути клавішу “Enter”, щоб відкрити їх масово. Але якщо вони знаходяться в різних папках під диском, вищезазначений спосіб також марний. У цьому випадку ви можете використовувати наступний метод, який може рекурсивно обробляти всі папки в основній папці. Тепер читайте далі, щоб отримати докладнішу інформацію.

Пакетне відкриття декількох файлів iCalendar (.ics)

1. Для початку запустіть програму Outlook.
2. Потім натисніть «Alt + F11», щоб отримати доступ до редактора VBA.
3. Після цього в новому вікні введіть наступний код 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. Потім перемістіть курсор у підпрограму “BatchOpenMultipleICalendarFiles”.
5. Зрештою, натисніть “F5”, щоб запустити цей макрос.
6. Згодом у спливаючому діалоговому вікні виберіть папку або диск Windows, де зберігаються файли iCalendar.
7. Отримавши повідомлення "Завершено", відкрийте панель "Календар" у програмі Outlook.
8. Ви бачите, що всі файли iCalendar у цій папці Windows були там, як на наступному скріншоті:

Підготуйте неподалік грізний інструмент виправлення PST

Можливо, ви знали, що Outlook схильний до помилок та корупції. Таким чином, бажано робити регулярні резервні копії файлів даних Outlook. Таким чином, навіть якщо ваш файл Outlook стає скомпрометованим, ви можете просто повернути цінні дані Outlook із резервних копій. Однак, якщо такої резервної копії немає, вам доведеться скористатися чудовим інструментом ремонту, наприклад DataNumen Outlook Repair. Це може вам допомогти виправити Outlook випуски, як пробка.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити mdf - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com