Cum să deschideți în lot mai multe fișiere iCalendar (.ics) în Outlook

Dacă aveți multe fișiere iCalendar (.ics) pe unitatea locală și doriți să le deschideți în lot în Outlook, puteți citi acest articol. Aici vă vom învăța să utilizați codul VBA pentru a-l realiza.

În mod normal, pentru a deschide un fișier iCalendar (.ics) în Outlook, puteți utiliza cu ușurință funcția „Import”. Cu toate acestea, dacă doriți să deschideți mai multe în loturi, „Import” este neajutorat, deoarece nu vă permite să selectați mai mult de un fișier simultan. Prin urmare, trebuie să utilizați alte abordări.

Dacă aceste fișiere ICS sunt stocate în același folder local, le puteți selecta și apăsați tasta „Enter” pentru a le deschide în bloc. Dar, dacă sunt localizate în foldere diferite sub o unitate, modul de mai sus este, de asemenea, inutil. În acest caz, puteți utiliza următoarea metodă, care poate procesa toate folderele dintr-un folder principal în mod recursiv. Acum, citiți mai departe pentru a afla mai multe detalii.

Deschideți în lot mai multe fișiere iCalendar (.ics).

1. Pentru început, lansați programul Outlook.
2. Apoi, atingeți „Alt + F11” pentru a accesa editorul VBA.
3. După aceea, în noua fereastră, introduceți următorul cod VBA într-un modul.

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. Apoi, mutați cursorul în subrutina „BatchOpenMultipleICalendarFiles”.
5. În cele din urmă, apăsați „F5” pentru a declanșa această macrocomandă.
6. Ulterior, în caseta de dialog pop-up, selectați un folder sau o unitate Windows în care sunt stocate fișierele iCalendar.
7. Când primiți mesajul „Terminat”, accesați panoul „Calendar” din Outlook.
8. Puteți vedea că toate fișierele iCalendar din acel folder Windows au fost acolo, ca în următoarea captură de ecran:

Pregătiți un instrument formidabil de remediere PST în apropiere

Poate ați știut că Outlook este predispus la erori și corupție. Prin urmare, este recomandabil să faceți copii de rezervă ale fișierelor de date Outlook la intervale regulate. În acest fel, chiar dacă fișierul dvs. Outlook devine compromis, puteți pur și simplu să aduceți înapoi datele valoroase Outlook din copiile de rezervă. Cu toate acestea, dacă nu există o astfel de copie de rezervă, ar trebui să utilizați un instrument de reparare remarcabil, cum ar fi DataNumen Outlook Repair. Te poate ajuta remediați Outlook probleme precum un dop.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com