Comment enregistrer par lots toutes les pièces jointes d'une tâche Outlook dans un dossier Windows

Si une tâche Outlook contient de nombreuses pièces jointes, pour les extraire et les enregistrer dans un dossier local, en général, vous devez les enregistrer une par une manuellement. Pourtant, dans cet article, nous présenterons une méthode pour enregistrer par lots toutes les pièces jointes en une seule fois.

Parfois, vous pouvez recevoir une tâche assignée par quelqu'un d'autre. Et cette tâche peut contenir plusieurs pièces jointes importantes dans son corps. Face à une telle tâche, vous devrez peut-être extraire et enregistrer ces pièces jointes dans un dossier Windows. Pourtant, contrairement aux e-mails, vous ne pouvez pas les enregistrer par lots par défaut. Outlook vous permet uniquement d'enregistrer un par un. Évidemment, ce sera trop fastidieux s'il y a trop de pièces jointes. Par conséquent, nous allons présenter ici un moyen de vous permettre d'accomplir cette tâche en masse.

Enregistrer par lots toutes les pièces jointes d'une tâche dans un dossier Windows

1. Au tout début, lancez l'application Outlook.
2. Ensuite, déclenchez l'éditeur Outlook VBA en faisant référence à "Comment exécuter le code VBA dans votre Outlook" .
3. Ensuite, copiez le code suivant dans un module inutilisé.

Sub BatchSaveAttachmentsFromTask()
    Dim objTask As Outlook.TaskItem
    Dim objShell, objWindowsFolder As Object
    Dim strWindowsFolder As String
    Dim objAttachment As Outlook.Attachment
    Dim strFolder, strFilePath As String

    'Get the task
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objTask = ActiveInspector.CurrentItem
           Case olExplorer
                Set objTask = ActiveExplorer.Selection.Item(1)
    End Select

    'Select a Windows folder for saving extracted attachments
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder to save Tasks' attachments:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       If objTask.Attachments.Count > 0 Then

          For Each objAttachment In objTask.Attachments
              strFilePath = strWindowsFolder & objAttachment.FileName
              objAttachment.SaveAsFile strFilePath
          Next
       End If

       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
    End If
End Sub

4. Ensuite, quittez l'éditeur VBA.
5. Après cela, ajoutez cette macro à la barre d'outils ou au ruban d'accès rapide.
6. Finalement, vous pouvez essayer.

• Tout d'abord, sélectionnez ou ouvrez une tâche.
• Ensuite, cliquez sur le bouton macro nouvellement ajouté.
• Dans la boîte de dialogue contextuelle, sélectionnez un dossier Windows selon vos besoins.
• Ensuite, cliquez sur "OK".
• À la fois, le dossier Windows s'affiche, dans lequel vous pouvez trouver les pièces jointes extraites.

Faire face à des problèmes Outlook dérangeants

Comme nous le savons tous, le fichier Outlook PST est susceptible de diverses erreurs et corruptions. Par exemple, si vous fermez fréquemment votre Outlook de manière incorrecte ou si vous téléchargez des fichiers malveillants, votre fichier Outlook PST peut devenir inaccessible un jour. À ce moment-là, même l'outil de réparation de la boîte de réception n'est pas en mesure de vous aider. Ce à quoi vous pouvez recourir est plus expérimenté et digne de confiance Correction PST logiciel, comme DataNumen Outlook Repair. Il peut extraire un maximum de données Outlook d'un fichier PST en un temps record.

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 fixer SQL Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com