Outlook-da bir nechta iCalendar (.ics) fayllarini qanday to'plash mumkin

Mahalliy diskingizda ko'plab iCalendar (.ics) fayllari mavjud bo'lsa va ularni Outlook-da ommaviy ravishda ochmoqchi bo'lsangiz, ushbu maqolani o'qishingiz mumkin. Bu erda biz sizga VBA kodidan foydalanishni o'rgatamiz.

Odatda, Outlook-da iCalendar (.ics) faylini ochish uchun siz “Import” funksiyasidan osongina foydalanishingiz mumkin. Biroq, agar siz ko'p narsalarni ommaviy ochishni istasangiz, "Import" yordam bermaydi, chunki u bir vaqtning o'zida bir nechta faylni tanlashni qo'llab-quvvatlamaydi. Shuning uchun siz boshqa usullardan foydalanishingiz kerak.

Agar ushbu ics fayllari bitta mahalliy papkada saqlangan bo'lsa, ularni tanlab, ularni ommaviy ochish uchun "Enter" tugmasini bosishingiz mumkin. Ammo, agar ular haydovchi ostidagi turli papkalarda joylashgan bo'lsa, yuqoridagi usul ham foydasiz. Bunday holda siz asosiy papka ostidagi barcha papkalarni rekursiv ravishda qayta ishlashingiz mumkin bo'lgan quyidagi usuldan foydalanishingiz mumkin. Endi batafsil ma'lumot olish uchun o'qing.

Bir nechta iCalendar (.ics) fayllarini ommaviy ochish

1. Boshlash uchun Outlook dasturingizni ishga tushiring.
2. Keyin VBA muharririga kirish uchun “Alt + F11” tugmachalarini bosing.
3. Shundan so'ng, yangi oynada modulga quyidagi VBA kodini kiriting.

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. Keyin kursorni “BatchOpenMultipleICalendarFiles” kichik dasturiga olib boring.
5. Nihoyat, ushbu makrosni ishga tushirish uchun "F5" tugmasini bosing.
6. Keyinchalik, ochilgan dialog oynasida iCalendar fayllari saqlanadigan Windows papkasini yoki diskini tanlang.
7. "Bajarildi" xabarini olganingizda, Outlook-ning "Taqvim" paneliga kiring.
8. Quyidagi skrinshot kabi Windows papkasidagi barcha iCalendar fayllari shu yerda boʻlganligini koʻrishingiz mumkin:

Yaqin atrofda kuchli PST tuzatish vositasini tayyorlang

Ehtimol, siz Outlook-ning xatolar va buzilishlarga moyilligini bilgansiz. Shunday qilib, muntazam ravishda Outlook ma'lumotlar fayllarini zaxiralash tavsiya etiladi. Shunday qilib, Outlook faylingiz buzilgan bo'lsa ham, zaxira nusxalaridan qimmatli Outlook ma'lumotlarini qaytarishingiz mumkin. Shunga qaramay, agar bunday zaxira bo'lmasa, siz kabi ajoyib ta'mirlash vositasidan foydalanishingiz kerak bo'ladi DataNumen Outlook Repair. Bu sizga yordam berishi mumkin Outlook-ni tuzatish mantar kabi muammolar.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com