Как групово отваряне на множество iCalendar (.ics) файлове във вашия Outlook

Ако имате много 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 и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com