Kā paketēt vairākus Outlook iCalendar (.ics) failus

Ja vietējā diskā ir daudz iCalendar (.ics) failu un vēlaties tos paketē atvērt programmā Outlook, varat izlasīt šo rakstu. Šeit mēs iemācīsim jums izmantot VBA kodu, lai to realizētu.

Parasti, lai programmā Outlook atvērtu iCalendar (.ics) failu, varat viegli izmantot funkciju “Importēt”. Tomēr, ja vēlaties atvērt sērijveidā daudzus failus, importēšana ir bezpalīdzīga, jo tā neatbalsta iespēju atlasīt vairākus failus vienlaikus. Tādējādi jums ir jāizmanto citas pieejas.

Ja šie ics faili tiek glabāti vienā un tajā pašā lokālajā mapē, varat tos atlasīt un nospiest taustiņu Enter, lai tos atvērtu lielapjomā. Bet, ja tie atrodas dažādās mapēs zem diska, arī iepriekš minētais veids ir bezjēdzīgs. Šajā gadījumā jūs varat izmantot šādu metodi, kas rekursīvi var apstrādāt visas galvenās mapes mapes. Tagad lasiet tālāk, lai iegūtu sīkāku informāciju.

Paketes atvērt vairākus iCalendar (.ics) failus

1. Lai sāktu, palaidiet savu Outlook programmu.
2. Pēc tam pieskarieties “Alt + F11”, lai piekļūtu VBA redaktoram.
3. Pēc tam jaunajā logā modulī ievadiet šādu VBA kodu.

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. Pēc tam pārvietojiet kursoru apakšprogrammā “BatchOpenMultipleICalendarFiles”.
5. Galu galā nospiediet taustiņu “F5”, lai aktivizētu šo makro.
6. Pēc tam uznirstošajā dialoglodziņā atlasiet Windows mapi vai disku, kurā tiek glabāti iCalendar faili.
7. Kad saņemat ziņojumu “Pabeigts”, programmā Outlook piekļūstiet rūtim “Kalendārs”.
8. Jūs varat redzēt, ka visi iCalendar faili šajā Windows mapē ir bijuši tur, piemēram, šāds ekrānuzņēmums:

Tuvumā sagatavojiet milzīgu PST labošanas rīku

Varbūt jūs zināt, ka programma Outlook ir pakļauta kļūdām un korupcijai. Tāpēc ieteicams regulāri dublēt savus Outlook datu failus. Tādā veidā, pat ja jūsu Outlook fails tiek apdraudēts, jūs varat vienkārši atgūt vērtīgus Outlook datus no dublējumiem. Tomēr, ja šādas rezerves kopijas nav, jums jāizmanto ievērojams remonta rīks, piemēram, DataNumen Outlook Repair. Tas var jums palīdzēt labot Outlook tādi jautājumi kā korķis.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar