Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com esborren tots els fitxers adjunts del correu electrònic a Outlook?

Normalment quan previsualitzeu un missatge de correu electrònic, podeu suprimir un fitxer adjunt fent clic dret i seleccionant-lo Elimina el fitxer adjunt article. De vegades pot haver-hi molts adjunts en un missatge de correu electrònic, i serà tediós eliminar-los un per un. Aquí us organitzem amb dos senzills trucs per eliminar tots els fitxers adjunts en un correu electrònic i eliminar tots els fitxers adjunts de diversos correus electrònics a Outlook.

Elimineu manualment tots els fitxers adjunts en un missatge de correu electrònic a Outlook

Traieu tots els fitxers adjunts de diversos missatges de correu electrònic a Outlook amb codi VBA

Elimineu fàcilment tots els fitxers adjunts d'un o diversos correus electrònics amb Kutools for Outlook


Desa fàcilment tots els fitxers adjunts de diversos correus electrònics seleccionats a la carpeta:

Amb el Separar tots els fitxers adjunts utilitat de Kutools for Excel, podeu desar fàcilment tots els fitxers adjunts de diversos correus electrònics seleccionats a la carpeta especificada a Outlook tal com es mostra a la captura de pantalla.

Kutools per Outlook: amb més complements d'Outlook de 40, gratuïts per intentar sense limitacions en 45 dies. Baixada i prova gratuïta Ara!

Kutools per Outlook: 100 + Noves eines avançades per a Outlook.
Pestanya d'Office: Activa l'edició i la navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú Classic: Porta menús antics i barres d'eines cap enrere a Office 2007, 2010, 2013, 2016 i 2019.

Elimineu manualment tots els fitxers adjunts en un missatge de correu electrònic a Outlook

És fàcil eliminar tots els fitxers adjunts en un missatge de correu electrònic seleccionat amb el Elimina els fitxers adjunts funció a Outlook.

Pas 1: seleccioneu el missatge de correu electrònic amb els fitxers adjunts que suprimireu més endavant.

Pas 2: feu clic a un dels fitxers adjunts al tauler de lectura per activar les Eines adjuntes.

Pas 3: feu clic al botó Selecciona tot botó al Selecció grup al Arxius adjunts Tab.

Aquest pas us permetrà seleccionar tots els fitxers adjunts d'aquests missatges de correu electrònic seleccionats alhora.

Pas 4: feu clic al botó Elimina el fitxer adjunt botó al Accions grup al Arxius adjunts Tab.

Pas 5: al quadre de diàleg d'advertència, feu clic a la icona Elimina els fitxers adjunts botó.

A continuació, tots els fitxers adjunts d'aquests missatges de correu electrònic seleccionats se suprimiran el més aviat possible.

Nota: La característica Remove Attachments funciona correctament en Outlook 2010 i 2013, però no en Outlook 2007.


Traieu tots els fitxers adjunts de diversos missatges de correu electrònic a Outlook amb codi VBA

Si voleu eliminar tots els fitxers adjunts de diversos missatges de correu electrònic a Microsoft Outlook, el següent mètode us ajudarà a fer-ho fàcilment. Et recomanem habiliteu totes les macros del vostre Microsoft Outlook en primer lloc.

Pas 1: aneu a la carpeta de El meu document, creeu una carpeta nova i anomeneu-la com a OLAttachments

Pas 2: seleccioneu diversos missatges de correu electrònic els fitxers adjunts que suprimireu més endavant.

Nota: Podeu seleccionar missatges de correu electrònic inconsecuents amb la celebració de Ctrl tecla i clic.

Podeu seleccionar missatges de correu electrònic consecutius mantenint el Canviar tecla i clic.

Pas 3: Obriu l'Editor de VBA prement la tecla Alt clau i F11 clau al mateix temps.

Pas 4: expandeixi el Project1 > Objectes de Microsoft Outlook a la barra esquerra i, a continuació, feu doble clic a la icona ThisOutlookSession per obrir-lo a l'Editor. Vegeu la següent captura de pantalla:

Pas 5: copieu i enganxeu el codi VBA següent al tauler d'edició.

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

Pas 6: premeu la tecla de F5 per executar aquest codi VBA.

Ara s'eliminen tots els fitxers adjunts de missatges de correu electrònic seleccionats, deixant els hipervincles a cada fitxer adjunt eliminat al final de tots els missatges de correu electrònic seleccionats.


Elimineu fàcilment tots els fitxers adjunts d'un o diversos correus electrònics amb Kutools for Outlook (només diversos clics)

El Desenganxa-ho tot utilitat de fitxers adjunts de Kutools per Outlook pot eliminar ràpidament tots els fitxers adjunts d'un o diversos correus electrònics seleccionats a Outlook. Feu el següent.

Kutools per Outlook : amb més complements de Outlook pràctics 20, lliure de provar sense límit en 45 dies.

1. Seleccioneu un o diversos missatges de correu electrònic amb els fitxers adjunts que voleu eliminar i, a continuació, feu clic a Kutools > Desenganxa-ho tot. Mostra la captura de pantalla:

2. A la Seleccioneu una carpeta quadre de diàleg, feu clic a la icona explorar botó per seleccionar una carpeta per guardar tots els fitxers adjunts eliminats. Consulteu el Creeu subcarpetes en el següent estil quadre i, a continuació, seleccioneu un estil de carpeta a la llista desplegable. I, finalment, feu clic al botó OK botó Mostra la captura de pantalla:

3. Feu clic al botó Sí al quadre de diàleg Separar tot.

4. Llavors a Kutools per Outlook apareixerà el quadre de diàleg per indicar quants fitxers adjunts s'esborren. Feu clic al'enllaç OK botó.

Ara, tots els fitxers adjunts s'eliminen immediatament amb només els hipervincles que surten en correus electrònics seleccionats. Podeu fer clic a l'hipervincle per obrir el fitxer adjunt corresponent segons necessiteu.

Si voleu fer una prova gratuïta d'aquesta utilitat, visiteu descàrrega gratuïta del programari primer, i després aneu a aplicar l'operació segons els passos anteriors.


Demostració: elimineu fàcilment tots els fitxers adjunts de correus electrònics amb Kutools for Outlook

Kutools per Outlook inclou 20 + potents funcions i eines per a Microsoft Outlook. Lliure de provar sense límit en 45 dies. Descarregueu la prova gratuïta ara!



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l&#39;anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    René · 1 years ago
    Can somebody change the code so that only for example attachments named "TermsAndConditions.pdf" are deleted
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Rene,
      Please follow the steps in the above second method, run the below VBA code. In an opening dialog box, please enter the attachment's name with the file extension (such as test.docx), and then click the OK button to just remove it from the selected email.

      Sub ReplaceAttachmentsToLink()
      Dim xMail As Outlook.MailItem
      Dim xAttachments As Outlook.Attachments
      Dim xSelection As Outlook.Selection
      Dim i, xCount As Long
      Dim xFile, xFldPath, xDelFiles, xFileName As String
      Dim xFlag As Boolean

      xFldPath = CreateObject("shell.Application").NameSpace(5).self.Path
      On Error Resume Next
      Set xSelection = Outlook.ActiveExplorer.Selection
      xFldPath = xFldPath & "\OLAttachments"
      xFlag = False
      xFileName = InputBox("Attachment name:", "Kutools for Outlook")

      If StrPtr(xFileName) = 0 Then Exit Sub
      If xFileName <> "" Then
      For Each xMail In xSelection
      Set xAttachments = xMail.Attachments
      xCount = xAttachments.Count
      If xCount > 0 Then
      For i = xCount To 1 Step -1
      xFile = xAttachments.Item(i).FileName
      If xFileName = xFile Then
      xFlag = True
      xFile = xFldPath & "\" & xFile
      xAttachments.Item(i).SaveAsFile xFile
      xAttachments.Item(i).Delete
      If xMail.BodyFormat <> olFormatHTML Then
      xDelFiles = xDelFiles & vbCrLf & ""
      Else
      xDelFiles = xDelFiles & "
      " & "" & xFile & ""
      End If
      End If
      Next i
      If xFlag = True Then
      If xMail.BodyFormat <> olFormatHTML Then
      xMail.Body = xMail.Body & vbCrLf & "The file(s) were saved to " & xDelFiles
      Else
      xMail.HTMLBody = xMail.HTMLBody & "
      " & "The file(s) were saved to " & xDelFiles & "
      "
      End If
      End If
      xMail.Save
      xDelFiles = ""
      End If
      Next
      If xFlag = False Then
      MsgBox "The Attachment does not exist!"
      Else
      MsgBox "The attachment has been deleted."
      End If
      Else
      MsgBox "Please input a attachment name"
      End If
      Set xAttachments = Nothing
      Set xMail = Nothing
      Set xSelection = Nothing
      End Sub
  • To post as a guest, your comment is unpublished.
    Peter · 1 years ago
    Method 1 doesn't work here, as there's only 1 option under 'Selection': Copy.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Peter,
      Outlook users are reporting that the Select All (attachments) feature in Outlook 2016 is missing.
  • To post as a guest, your comment is unpublished.
    Dinesh · 1 years ago
    The VBA Code solution was great .... worked beautifully
  • To post as a guest, your comment is unpublished.
    Ray · 1 years ago
    Compile Error Sub or Function not defined??
  • To post as a guest, your comment is unpublished.
    Ciaran · 1 years ago
    VBA code worked great. Many thanks!