Comment ouvrir par lots plusieurs fichiers iCalendar (.ics) dans votre Outlook

Si vous avez de nombreux fichiers iCalendar (.ics) sur votre lecteur local et que vous souhaitez les ouvrir par lots dans Outlook, vous pouvez lire cet article. Ici, nous allons vous apprendre à utiliser le code VBA pour le réaliser.

Normalement, pour ouvrir un fichier iCalendar (.ics) dans votre Outlook, vous pouvez facilement utiliser la fonction "Importer". Cependant, si vous souhaitez en ouvrir plusieurs par lots, "Importer" est inutile car il ne vous permet pas de sélectionner plus d'un fichier à la fois. Par conséquent, vous devez utiliser d'autres approches.

Si ces fichiers ics sont stockés dans le même dossier local, vous pouvez les sélectionner et appuyer sur la touche "Entrée" pour les ouvrir en masse. Mais, s'ils se trouvent dans des dossiers différents sous un lecteur, la méthode ci-dessus est également inutile. Dans ce cas, vous pouvez utiliser la méthode suivante, qui peut traiter tous les dossiers sous un dossier principal de manière récursive. Maintenant, lisez la suite pour obtenir ses détails plus loin.

Ouvrir plusieurs fichiers iCalendar (.ics) par lots

1. Pour commencer, lancez votre programme Outlook.
2. Ensuite, appuyez sur "Alt + F11" pour accéder à l'éditeur VBA.
3. Après cela, dans la nouvelle fenêtre, entrez le code VBA suivant dans un module.

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. Ensuite, déplacez votre curseur dans la sous-routine "BatchOpenMultipleICalendarFiles".
5. Enfin, appuyez sur "F5" pour déclencher cette macro.
6. Ensuite, dans la boîte de dialogue contextuelle, sélectionnez un dossier ou un lecteur Windows sur lequel les fichiers iCalendar sont stockés.
7. Lorsque vous recevez le message "Terminé", accédez au volet "Calendrier" dans Outlook.
8. Vous pouvez voir que tous les fichiers iCalendar de ce dossier Windows ont été là-bas, comme la capture d'écran suivante :

Préparez un formidable outil de correction PST à proximité

Peut-être savez-vous qu'Outlook est sujet aux erreurs et à la corruption. Ainsi, il est conseillé de sauvegarder vos fichiers de données Outlook à intervalles réguliers. De cette façon, même si votre fichier Outlook est compromis, vous pouvez simplement récupérer des données Outlook précieuses à partir de sauvegardes. Pourtant, s'il n'y a pas une telle sauvegarde, vous devrez utiliser un outil de réparation remarquable, comme DataNumen Outlook Repair. Cela peut vous aider à réparer Outlook problèmes comme un bouchon.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com