როგორ გავხსნათ რამდენიმე 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 Tool ახლომახლო

ალბათ თქვენ იცით, რომ Outlook მიდრეკილია შეცდომებისა და კორუფციისკენ. ამრიგად, მიზანშეწონილია თქვენი Outlook მონაცემთა ფაილების სარეზერვო ასლის შექმნა რეგულარული ინტერვალებით. ამ გზით, მიუხედავად იმისა, რომ თქვენი Outlook ფაილი კომპრომეტირებულია, თქვენ შეგიძლიათ უბრალოდ დააბრუნოთ ღირებული Outlook მონაცემები სარეზერვო ასლებიდან. თუმცა, თუ ასეთი სარეზერვო საშუალება არ არის, მოგიწევთ გამოიყენოთ შესანიშნავი სარემონტო ინსტრუმენტი, მაგალითად DataNumen Outlook Repair. მას შეუძლია დაგეხმაროთ Outlook-ის შესწორება ისეთი საკითხები, როგორიცაა კორკი.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად