Outlook бағдарламасында бірнеше iCalendar (.ics) файлдарын қалай бумалық түрде ашуға болады?

Егер сізде жергілікті дискіде көптеген iCalendar (.ics) файлдары болса және оларды Outlook бағдарламасында бумамен ашқыңыз келсе, сіз осы мақаланы оқи аласыз. Мұнда біз оны жүзеге асыру үшін VBA кодын қолдануды үйретеміз.

Әдетте, iCalendar (.ics) файлын Outlook бағдарламасында ашу үшін сіз «Импорттау» мүмкіндігін оңай пайдалана аласыз. Алайда, егер сіз көпшілікті пакеттік түрде ашқыңыз келсе, «Импорттау» дәрменсіз, өйткені ол сізге бірден бірнеше файлды таңдауды қолдамайды. Демек, сіз басқа тәсілдерді қолдануыңыз керек.

Егер бұл ics файлдары бір жергілікті қалтада сақталса, оларды таңдап, «Enter» пернесін басып, оларды жаппай ашуыңызға болады. Бірақ, егер олар дискінің астында әр түрлі қалталарда орналасса, онда жоғарыда көрсетілген тәсіл де пайдасыз. Бұл жағдайда негізгі қалта астындағы барлық қалталарды рекурсивті өңдей алатын келесі әдісті қолдануға болады. Енді оның егжей-тегжейін білу үшін оқыңыз.

Бірнеше iCalendar (.ics) файлдарын пакеттік түрде ашыңыз

1. Бастау үшін Outlook бағдарламаңызды іске қосыңыз.
2. Содан кейін VBA редакторына кіру үшін «Alt + F11» пернесін түртіңіз.
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. Содан кейін, қалқымалы диалог терезесінде iCalendar файлдары сақталатын Windows қалтасын немесе дискіні таңдаңыз.
7. «Аяқталды» хабарламасын алған кезде Outlook бағдарламасында «Күнтізбе» тақтасына кіріңіз.
8. Сіз Windows қалтасындағы барлық iCalendar файлдарының келесі скриншот сияқты тұрғанын көре аласыз:

Жақын жерде PST түзету құралын дайындаңыз

Мүмкін сіз Outlook-та қателіктер мен сыбайлас жемқорлыққа бейім екенін білген шығарсыз. Осылайша, Outlook деректер файлдарының сақтық көшірмелерін белгілі бір уақыт аралығында жасау ұсынылады. Осылайша, сіздің Outlook файлыңыз бұзылса да, сіз сақтық көшірмелерден құнды Outlook деректерін қайтара аласыз. Егер мұндай сақтық көшірме болмаса, сізге жөндеудің керемет құралын қолдану қажет болады DataNumen Outlook Repair. Бұл сізге көмектесе алады Outlook бағдарламасын түзетіңіз тығын сияқты мәселелер.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com