Mitme iCalendari (.ics) faili pakkimine Outlookis

Kui teie kohalikul draivil on palju iCalendari (.ics) faile ja soovite need Outlookis pakkides avada, lugege seda artiklit. Siin õpetame teid selle realiseerimiseks kasutama VBA-koodi.

Tavaliselt saate iCalendari (.ics) faili avamiseks Outlookis hõlpsasti kasutada funktsiooni "Import". Kui aga soovite mitut paketti avada, on "Import" abitu, kuna see ei toeta korraga mitme faili valimist. Seetõttu peate kasutama muid meetodeid.

Kui need ics-failid on salvestatud samasse kohalikku kausta, saate need valida ja vajutada nende hulgiavamiseks sisestusklahvi. Kuid kui need asuvad draivi all erinevates kaustades, on ülaltoodud meetod samuti kasutu. Sel juhul saate kasutada järgmist meetodit, mis suudab rekursiivselt töödelda kõiki põhikausta all olevaid kaustu. Nüüd lugege edasi, et saada selle üksikasju.

Mitme iCalendari (.ics) faili pakkimine

1. Alustuseks käivitage oma Outlooki programm.
2. Seejärel puudutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
3. Pärast seda sisestage uues aknas moodulisse järgmine VBA kood.

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. Järgmisena liigutage kursor alamprogrammi BatchOpenMultipleICalendarFiles.
5. Lõpuks vajutage selle makro käivitamiseks klahvi "F5".
6. Seejärel valige hüpikaknas dialoogiboksis Windowsi kaust või draiv, kuhu iCalendari failid on salvestatud.
7. Kui saate teate "Lõpetatud", avage Outlooki paan "Kalender".
8. Näete, et kõik selles Windowsi kaustas olevad iCalendari failid on seal olnud, nagu järgmine ekraanipilt:

Valmistage ette suurepärane PST-parandustööriist läheduses

Võib-olla olete teadnud, et Outlook on altid vigadele ja korruptsioonile. Seetõttu on soovitatav oma Outlooki andmefailid korrapäraste ajavahemike järel varundada. Isegi kui teie Outlooki fail on ohus, saate sel viisil lihtsalt varukoopiatest väärtuslikud Outlooki andmed tagasi tuua. Kui aga sellist varukoopiat pole, peaksite kasutama märkimisväärset remonditööriista, näiteks DataNumen Outlook Repair. See võib teid aidata parandada Outlook probleeme nagu kork.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastada mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom