Outlook-da birdən çox iCalendar (.ics) faylını necə toplu şəkildə açmaq olar

Əgər yerli diskinizdə çoxlu iCalendar (.ics) faylları varsa və onları toplu şəkildə Outlook-da açmaq istəyirsinizsə, bu məqaləni oxuya bilərsiniz. Burada biz sizə VBA kodunu həyata keçirmək üçün istifadə etməyi öyrədəcəyik.

Adətən, Outlook-da iCalendar (.ics) faylını açmaq üçün siz “İdxal” funksiyasından asanlıqla istifadə edə bilərsiniz. Bununla belə, bir çox faylı toplu şəkildə açmaq istəyirsinizsə, “İdxal” çarəsizdir, çünki o, bir anda birdən çox fayl seçməyinizi dəstəkləmir. Buna görə də başqa üsullardan istifadə etməlisiniz.

Bu ics faylları eyni yerli qovluqda saxlanılırsa, siz onları seçib toplu şəkildə açmaq üçün “Enter” düyməsini sıxa bilərsiniz. Lakin, əgər onlar sürücünün altındakı müxtəlif qovluqlarda yerləşirlərsə, yuxarıdakı üsul da faydasızdır. Bu halda, əsas qovluq altındakı bütün qovluqları rekursiv şəkildə emal edə bilən aşağıdakı üsuldan istifadə edə bilərsiniz. İndi onun təfərrüatlarını daha ətraflı öyrənmək üçün oxuyun.

Çoxlu iCalendar (.ics) Fayllarını Toplu Açın

1. Başlamaq üçün Outlook proqramınızı işə salın.
2. Sonra VBA redaktoruna daxil olmaq üçün "Alt + F11" düymələrinə toxunun.
3. Bundan sonra, yeni pəncərədə modula aşağıdakı VBA kodunu daxil edin.

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. Sonra kursorunuzu “BatchOpenMultipleICalendarFiles” alt proqramında hərəkət etdirin.
5. Nəhayət, bu makronu işə salmaq üçün "F5" düyməsini basın.
6. Sonra, açılan informasiya qutusunda iCalendar fayllarının saxlandığı Windows qovluğunu və ya diskini seçin.
7. “Tamamlandı” mesajı aldığınız zaman Outlook-da “Təqvim” bölməsinə daxil olun.
8. Aşağıdakı ekran görüntüsü kimi Windows qovluğundakı bütün iCalendar fayllarının orada olduğunu görə bilərsiniz:

Yaxınlıqda Möhtəşəm PST Düzəltmə Aləti hazırlayın

Yəqin ki, Outlook-un səhvlərə və korrupsiyaya meylli olduğunu bilirsiniz. Beləliklə, müntəzəm olaraq Outlook məlumat fayllarının ehtiyat nüsxəsini çıxarmaq məsləhətdir. Bu yolla, Outlook faylınız təhlükə altına düşsə də, siz sadəcə olaraq ehtiyat nüsxələrdən dəyərli Outlook məlumatlarını geri qaytara bilərsiniz. Yenə də belə bir ehtiyat nüsxə yoxdursa, siz kimi əla təmir alətindən istifadə etməlisiniz DataNumen Outlook Repair. Bu sizə kömək edə bilər Outlook-u düzəldin mantar kimi məsələlər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com