Come aprire in batch più file iCalendar (.ics) in Outlook

Se hai molti file iCalendar (.ics) nell'unità locale e desideri aprirli in batch in Outlook, puoi leggere questo articolo. Qui ti insegneremo a utilizzare il codice VBA per realizzarlo.

Normalmente, per aprire un file iCalendar (.ics) in Outlook, puoi facilmente utilizzare la funzione "Importa". Tuttavia, se vuoi aprirne molti in batch, "Import" è impotente in quanto non ti supporta per selezionare più di un file contemporaneamente. Quindi, devi usare altri approcci.

Se questi file ics sono archiviati nella stessa cartella locale, puoi selezionarli e premere il tasto "Invio" per aprirli in blocco. Ma, se si trovano in cartelle diverse sotto un'unità, anche il modo sopra è inutile. In questo caso, puoi utilizzare il metodo seguente, che può elaborare in modo ricorsivo tutte le cartelle in una cartella principale. Ora, continua a leggere per ottenere ulteriori dettagli.

Batch Apri più file iCalendar (.ics).

1. Innanzitutto, avvia il programma Outlook.
2. Quindi, tocca "Alt + F11" per accedere all'editor VBA.
3. Successivamente, nella nuova finestra, inserisci il seguente codice VBA in un modulo.

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. Successivamente, sposta il cursore nella subroutine "BatchOpenMultipleICalendarFiles".
5. Alla fine, premi "F5" per attivare questa macro.
6. Successivamente, nella finestra di dialogo popup, seleziona una cartella o un'unità Windows in cui sono archiviati i file iCalendar.
7. Quando ricevi il messaggio "Completato", accedi al riquadro "Calendario" in Outlook.
8. Puoi vedere che tutti i file iCalendar in quella cartella di Windows sono stati laggiù, come il seguente screenshot:

Prepara un formidabile strumento di correzione PST nelle vicinanze

Forse sapevi che Outlook è soggetto a errori e corruzione. Pertanto, si consiglia di eseguire il backup dei file di dati di Outlook a intervalli regolari. In questo modo, anche se il tuo file di Outlook viene compromesso, puoi semplicemente recuperare preziosi dati di Outlook dai backup. Tuttavia, se non esiste un backup di questo tipo, è necessario utilizzare uno straordinario strumento di riparazione, come DataNumen Outlook Repair. Può aiutarti riparare Outlook problemi come un tappo di sughero.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com