Ինչպես խմբաքանակով բացել բազմաթիվ iCalendar (.ics) ֆայլեր ձեր Outlook-ում

Եթե ​​ունեք iCalendar (.ics) շատ ֆայլեր ձեր տեղական սկավառակում և ցանկանում եք դրանք խմբաքանակով բացել Outlook-ում, կարող եք կարդալ այս հոդվածը: Այստեղ մենք կսովորեցնենք ձեզ օգտագործել VBA կոդը՝ այն իրականացնելու համար:

Սովորաբար, ձեր Outlook-ում iCalendar (.ics) ֆայլ բացելու համար կարող եք հեշտությամբ օգտվել «Ներմուծում» գործառույթից: Այնուամենայնիվ, եթե ցանկանում եք խմբաքանակով բացել շատերը, «Ներմուծումը» անօգնական է, քանի որ այն չի աջակցում ձեզ միանգամից մեկից ավելի ֆայլ ընտրելը: Այսպիսով, դուք պետք է օգտագործեք այլ մոտեցումներ:

Եթե ​​այս 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. Դուք կարող եք տեսնել, որ Windows պանակի բոլոր iCalendar ֆայլերը գտնվում են այնտեղ, ինչպես հետևյալ սքրինշոթը.

Մոտակայքում պատրաստեք սարսափելի PST Fix գործիք

Հավանաբար դուք գիտեիք, որ Outlook-ը հակված է սխալների և կոռուպցիայի: Այսպիսով, խորհուրդ է տրվում կրկնօրինակել ձեր Outlook տվյալների ֆայլերը կանոնավոր պարբերականությամբ: Այս կերպ, չնայած ձեր Outlook ֆայլը վտանգված է, դուք կարող եք պարզապես հետ բերել արժեքավոր Outlook տվյալները կրկնօրինակներից: Այնուամենայնիվ, եթե նման պահուստավորում չկա, դուք պետք է օգտագործեք ուշագրավ վերանորոգման գործիք, օրինակ DataNumen Outlook Repair. Դա կարող է օգնել ձեզ շտկել Outlook- ը խցանման նման հարցեր:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com