Ugrás a tartalomra

Hogyan lehet eltávolítani az összes mellékletet az e-mailből az Outlook programban?

Normál esetben, amikor egy e-mailt tekint meg, akkor a mellékletet jobb gombbal törölheti, és kiválaszthatja a ikont Távolítsa el a mellékletet tétel. Néha sok melléklet lehet egy e-mailben, és unalmas lesz eltávolítani őket egyenként. Itt két egyszerű trükkel gondoskodunk az összes melléklet eltávolításáról egy e-mailben, és az összes melléklet eltávolításáról több e-mailről az Outlookban is.

Manuálisan távolítsa el az összes mellékletet egy e-mail üzenetből az Outlook programban
Távolítsa el az összes mellékletet több e-mail üzenetből az Outlookban VBA kóddal
Könnyen eltávolíthatja az összes mellékletet egy vagy több e-mailből a Kutools for Outlook segítségével


Manuálisan távolítsa el az összes mellékletet egy e-mail üzenetből az Outlook programban

Könnyen eltávolíthatja a kiválasztott e-mail üzenetek összes mellékletét a Távolítsa el a mellékleteket funkció az Outlookban.

1. lépés: Válassza ki azt az e-mail üzenetet, amelynek mellékletét később eltávolítja.

2. lépés: Kattintson a Mellékletek egyikére az Olvasópanelen a Mellékletek eszközének aktiválásához.

3 lépés: Kattintson a Az összes kijelölése gombot a Kiválasztás csoport a Berendezés Tab.

Ez a lépés lehetővé teszi a kiválasztott e-mail üzenetek összes mellékletének kiválasztását egyszerre.

4 lépés: Kattintson a Távolítsa el a mellékletet gombot a Hozzászólások csoport a Berendezés Tab.

5. lépés: A figyelmeztető párbeszédpanelen kattintson a gombra Távolítsa el a mellékleteket gombot.

Ezután a kiválasztott e-mail üzenetek összes mellékletét a lehető leghamarabb törli.

Megjegyzések: A Mellékletek eltávolítása funkció remekül működik az Outlook 2010-ben és a későbbi verzióban, az Outlook 2007-ben azonban nem.


Könnyen eltávolíthatja az összes mellékletet az Outlook több kiválasztott e-mailjéből:

Aktivitáskövető Válassza le az összes mellékletet hasznossága Kutools az Excel számára, könnyedén eltávolíthatja az összes mellékletet több kiválasztott e-mailből, ahogy az alábbi bemutató mutatja. (A mellékleteket egy megadott mappába menti) Töltse le és próbálja ki most! (30 napos ingyenes túra)


Távolítsa el az összes mellékletet több e-mail üzenetből az Outlookban VBA kóddal

Ha el akarja távolítani az összes mellékletet több e-mail üzenetből a Microsoft Outlook alkalmazásban, a következő módszer megkönnyíti ezt. Javasoljuk engedélyezze az összes makrót a Microsoft Outlook alkalmazásban először.

1. lépés: Menjen a A dokumentumom, hozzon létre egy új mappát, és nevezze el OLA mellékletek

2. lépés: Válasszon ki több e-mailt, amelyeknek a mellékletét később eltávolítja.

Jegyzet: Kiválaszthatja a nem egymás után következő e-mail üzeneteket a Ctrl gombot és kattintson.

Az egymást követő e-mail üzeneteket kiválaszthatja a műszak gombot és kattintson.

3. lépés: Nyissa meg a VBA szerkesztőt a más kulcs és F11 gombot egyszerre.

4. lépés: Bontsa ki a Project1 > Microsoft Outlook objektumok a bal sávban, majd kattintson duplán a ThisOutlookSession hogy megnyissa a Szerkesztőben. Lásd a következő képernyőképet:

5. lépés: Másolja és illessze be a következő VBA kódot a szerkesztő ablaktáblába.

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

6. lépés: Nyomja meg a gombot F5 hogy futtassa ezt a VBA kódot.

Most a kijelölt e-mail üzenetek összes mellékletét eltávolítja, az egyes törölt mellékletekhez pedig az összes kijelölt e-mail alján hiperhivatkozások maradnak.


Könnyen eltávolíthatja az összes mellékletet egy vagy több e-mailből a Kutools for Outlook segítségével

A Válasszon le mindent mellékletek segédprogramja Kutools az Outlook számára gyorsan eltávolíthatja az összes mellékletet egy vagy több kiválasztott e-mailből az Outlook programban. Kérjük, tegye a következőket.

Kutools az Outlook számára : több mint 100 praktikus Outlook-bővítménnyel, szabadon kipróbálható korlátozás nélkül 60 nap alatt.

1. Jelöljön ki egy vagy több e-mailt az eltávolítani kívánt mellékletekkel, majd kattintson a gombra Kutools > Melléklet eszközökVálasszon le mindent. Lásd a képernyőképet:

2. Ban,-ben Beállítások leválasztása párbeszédpanelt, kérjük, konfigurálja az alábbiak szerint.

  • 2.1 Kattintson a gombra Tallózás gombot, hogy kiválasszon egy mappát az összes törölt melléklet mentéséhez.
  • 2.2 Alapértelmezés szerint a Válassza le a mellékleteket az alábbi stílusban négyzet be van jelölve, kérjük, válasszon egy lehetőséget a mellékletek különböző mappákba mentéséhez az e-mailek alapján, amire szüksége van.
  • 2.3 Kattintson a gombra OK gomb. Lásd a képernyőképet:

Megjegyzések:
1. Ha az összes mellékletet ugyanabba a mappába kívánja menteni, törölje a jelet Hozzon létre almappákat a következő stílusban doboz.
2. A mellékletek eltávolítása után a melléklet ikon eltűnik a levelezőlista e-mailjéből. Ellenőrizheti a A melléklet ikon továbbra is megmarad az e-mailekben doboz mindig megtartani.
2. A kijelölt e-mailek összes mellékletének eltávolítása mellett a mellékleteket csak meghatározott feltételekkel távolíthatja el. Például csak azokat a mellékleteket szeretné eltávolítani, amelyek mérete meghaladja az 500 KB-ot, kattintson a gombra Speciális beállítások gombra a feltételek kibővítéséhez, majd az alább látható képkonfiguráció szerint konfigurálja.

3. Kattintson a Igen gombot a Válasszon le mindent párbeszédablak.

4. Ezután a Kutools az Outlook számára megjelenik a párbeszédpanel, amely megmondja, hogy hány mellékletet törölnek. Kattintson a gombra OK gombot. 

Most minden mellékletet azonnal eltávolít, és csak a hiperhivatkozások maradnak a kiválasztott e-mailekben. A hiperhivatkozásra kattintva megnyithatja a megfelelő mellékletet, amire szüksége van.

  Ha ingyenes (60 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

Comments (33)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello,
MS recently changed the storage limits for Hotmail. Attachments are counted towards storage used.
Many users would like to remove only the attachments in bulk. Your VBA script may be the solution for these users.
Can you confirm if this script still works for Hotmail users in 2023?
Thank you in advance.
This comment was minimized by the moderator on the site
The article and the comments below are very helpful! Thanks!
This comment was minimized by the moderator on the site
 Hello, I use the VBA code, unfortunaltely all the attachements were deleted from the emails, and they were not storage in any of the folders... so i lost many attachment files. anyone knows how can i restored
This comment was minimized by the moderator on the site
The VBA code shown in solution 2 works fine, however, but my goal is to remove only attachments which are not inline the message. Being VBA ignorant I would like to ask if it is possible to modify the code in that manner it would remove only attached files, not pictures inside the email text. It would surely make my day :)

Thank you in advance
This comment was minimized by the moderator on the site
Can somebody change the code so that only for example attachments named "TermsAndConditions.pdf" are deleted
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Method 1 doesn't work here, as there's only 1 option under 'Selection': Copy.
This comment was minimized by the moderator on the site
Dear Peter,
Outlook users are reporting that the Select All (attachments) feature in Outlook 2016 is missing.
This comment was minimized by the moderator on the site
The VBA Code solution was great .... worked beautifully
This comment was minimized by the moderator on the site
Compile Error Sub or Function not defined??
This comment was minimized by the moderator on the site
VBA code worked great. Many thanks!
This comment was minimized by the moderator on the site
Hi This was really helpful , but as all attachments were not saved when i tried again it gives a message "the macros in this project are disabled".....tried enabling macros in outlook but no luck, any one can help! Regards Lisa
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations