Comment supprimer toutes les pièces jointes du courrier électronique dans Outlook?

Normalement, lorsque vous prévisualisez un e-mail, vous pouvez supprimer une pièce jointe avec un clic droit et sélectionner le Supprimer la pièce jointe article. Parfois, il peut y avoir de nombreuses pièces jointes dans un message électronique et il sera fastidieux de les supprimer une par une. Ici, nous vous proposons deux astuces simples pour supprimer toutes les pièces jointes dans un seul e-mail et supprimer toutes les pièces jointes de plusieurs e-mails également dans Outlook.

Supprimer manuellement toutes les pièces jointes dans un message électronique dans Outlook
Supprimer toutes les pièces jointes de plusieurs messages électroniques dans Outlook avec le code VBA
Supprimez facilement toutes les pièces jointes d'un ou plusieurs e-mails avec Kutools for Outlook

Supprimer manuellement toutes les pièces jointes dans un message électronique dans Outlook

Il est facile de supprimer toutes les pièces jointes dans un e-mail sélectionné avec le Supprimer les pièces jointes fonctionnalité dans Outlook.

Étape 1: Sélectionnez l'e-mail dont vous supprimerez les pièces jointes ultérieurement.

Étape 2: Cliquez sur l'une des pièces jointes dans le volet de lecture pour activer les outils de pièces jointes.

Étape 3: cliquez sur le Sélectionner tout bouton dans le Sélection groupe sur le Pièces jointes languette.

Cette étape vous permettra de sélectionner toutes les pièces jointes dans les messages électroniques sélectionnés à la fois.

Étape 4: cliquez sur le Supprimer la pièce jointe bouton dans le Actions groupe sur le Pièces jointes languette.

Étape 5: Dans la boîte de dialogue d'avertissement, cliquez sur l'icône Supprimer les pièces jointes .

Ensuite, toutes les pièces jointes de cet e-mail sélectionné sont supprimées dès que possible.

Notes: La fonctionnalité Supprimer les pièces jointes fonctionne correctement dans Outlook 2010 et la version ultérieure, mais pas dans Outlook 2007.

Supprimer toutes les pièces jointes de plusieurs messages électroniques dans Outlook avec le code VBA

Si vous souhaitez supprimer toutes les pièces jointes de plusieurs messages électroniques dans Microsoft Outlook, la méthode suivante vous aidera à le faire facilement. Nous vous recommandons activer toutes les macros dans votre Microsoft Outlook d'abord.

Étape 1: Accédez au dossier de Mon document, créez un nouveau dossier et nommez-le Pièces jointes OLA

Étape 2: Sélectionnez plusieurs e-mails dont vous supprimerez les pièces jointes ultérieurement.

Remarque : Vous pouvez sélectionner des e-mails non consécutifs en maintenant le Ctrl touche et en cliquant.

Vous pouvez sélectionner des e-mails consécutifs en maintenant le Jour touche et en cliquant.

Étape 3: Ouvrez l'éditeur VBA en appuyant sur le autre clé et F11 clé en même temps.

Étape 4: Développez le Project1 > Objets Microsoft Outlook dans la barre de gauche, puis double-cliquez sur le Cette session Outlook pour l'ouvrir dans l'éditeur. Voir la capture d'écran suivante:

Étape 5: Copiez et collez le code VBA suivant dans le volet d'édition.

Public Sub ReplaceAttachmentsToLink()
Dim objApp As Outlook.Application
Dim aMail As Outlook.MailItem 'Object
Dim oAttachments As Outlook.Attachments
Dim oSelection As Outlook.Selection
Dim i As Long
Dim iCount As Long
Dim sFile As String
Dim sFolderPath As String
Dim sDeletedFiles As String
 
    ' Get the path to your My Documents folder
    sFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next
 
    ' Instantiate an Outlook Application object.
    Set objApp = CreateObject("Outlook.Application")
 
    ' Get the collection of selected objects.
    Set oSelection = objApp.ActiveExplorer.Selection
 
    ' Set the Attachment folder.
    sFolderPath = sFolderPath & "\OLAttachments"
 
    
    ' Check each selected item for attachments. If attachments exist,
    ' save them to the Temp folder and strip them from the item.
    For Each aMail In oSelection
 
    ' This code only strips attachments from mail items.
    ' If aMail.class=olMail Then
    ' Get the Attachments collection of the item.
    Set oAttachments = aMail.Attachments
    iCount = oAttachments.Count
     
       
    If iCount > 0 Then
     
        ' We need to use a count down loop for removing items
        ' from a collection. Otherwise, the loop counter gets
        ' confused and only every other item is removed.
         
        For i = iCount To 1 Step -1
         
            ' Save attachment before deleting from item.
            ' Get the file name.
            sFile = oAttachments.Item(i).FileName
             
            ' Combine with the path to the Temp folder.
            sFile = sFolderPath & "\" & sFile
             
            ' Save the attachment as a file.
            oAttachments.Item(i).SaveAsFile sFile
             
            ' Delete the attachment.
            oAttachments.Item(i).Delete
             
            'write the save as path to a string to add to the message
            'check for html and use html tags in link
            If aMail.BodyFormat <> olFormatHTML Then
                sDeletedFiles = sDeletedFiles & vbCrLf & "<file://" & sFile & ">"
            Else
                sDeletedFiles = sDeletedFiles & "<br>" & "<a href='file://" & _
                sFile & "'>" & sFile & "</a>"
            End If
             
                         
        Next i
        'End If
             
       ' Adds the filename string to the message body and save it
       ' Check for HTML body
       If aMail.BodyFormat <> olFormatHTML Then
           aMail.Body = aMail.Body & vbCrLf & _
           "The file(s) were saved to " & sDeletedFiles
       Else
           aMail.HTMLBody = aMail.HTMLBody & "<p>" & _
           "The file(s) were saved to " & sDeletedFiles & "</p>"
       End If
       
       aMail.Save
       'sets the attachment path to nothing before it moves on to the next message.
       sDeletedFiles = ""
    
       End If
    Next 'end aMail
     
ExitSub:
 
Set oAttachments = Nothing
Set aMail = Nothing
Set oSelection = Nothing
Set objApp = Nothing
End Sub

Étape 6: Appuyez sur la touche de F5 pour exécuter ce code VBA.

Désormais, toutes les pièces jointes des e-mails sélectionnés sont supprimées, en laissant des hyperliens vers chaque pièce jointe supprimée au bas de tous les e-mails sélectionnés.

Supprimez facilement toutes les pièces jointes d'un ou plusieurs e-mails avec Kutools for Outlook

Les Détacher tout pièces jointes utilitaire de Kutools for Outlook peut supprimer rapidement toutes les pièces jointes d'un ou plusieurs e-mails sélectionnés dans Outlook. Veuillez faire comme suit.

Kutools for Outlook : avec plus de 100 compléments Outlook pratiques, gratuit pour essayer sans limitation dans 60 jours.

1. Sélectionnez un ou plusieurs e-mails contenant les pièces jointes que vous souhaitez supprimer, puis cliquez sur Kutools > Outils de fixation > Détacher tout. Voir la capture d'écran:

2. dans le Détacher les paramètres boîte de dialogue, veuillez configurer comme suit.

• 2.1 Cliquez sur le Explorer pour sélectionner un dossier pour enregistrer toutes les pièces jointes supprimées.
• 2.2 Par défaut, le Détachez les pièces jointes dans le style ci-dessous est cochée, veuillez choisir une option pour enregistrer les pièces jointes dans différents dossiers en fonction des e-mails selon vos besoins.
• 2.3 Cliquez sur le OK bouton. Voir la capture d'écran:

3. Cliquez sur l' Oui bouton dans le Détacher tout boite de dialogue.

4. Puis un Kutools for Outlook La boîte de dialogue apparaîtra pour vous indiquer le nombre de pièces jointes supprimées. Veuillez cliquer sur le OK . 

Désormais, toutes les pièces jointes sont supprimées immédiatement, seuls les liens hypertexte restant dans les e-mails sélectionnés. Vous pouvez cliquer sur le lien hypertexte pour ouvrir la pièce jointe correspondante selon vos besoins.

---

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et rend le travail beaucoup plus facile !

• CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
• Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
• Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
• Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
• Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.

Lire la suite... Télécharger maintenant...