Skip i'r prif gynnwys

Sut i gael gwared ar yr holl atodiadau o e-bost yn Outlook?

Fel rheol pan fyddwch yn rhagolwg e-bost, gallwch ddileu atodiad gyda chlicio ar y dde a dewis y Dileu Ymlyniad eitem. Weithiau gall fod llawer o atodiadau mewn neges e-bost, a bydd yn ddiflas eu tynnu fesul un. Yma rydym yn eich trefnu gyda dau dric hawdd i gael gwared ar yr holl atodiadau mewn un e-bost, a thynnu pob atodiad o sawl e-bost hefyd yn Outlook.

Tynnwch yr holl atodiadau â llaw mewn un neges e-bost yn Outlook
Tynnwch yr holl atodiadau o negeseuon e-bost lluosog yn Outlook gyda chod VBA
Tynnwch yr holl atodiadau o un neu nifer o negeseuon e-bost yn hawdd gyda Kutools ar gyfer Outlook


Tynnwch yr holl atodiadau â llaw mewn un neges e-bost yn Outlook

Mae'n hawdd cael gwared ar yr holl atodiadau mewn negeseuon e-bost dethol gyda'r Dileu Atodiadau nodwedd yn Outlook.

Cam 1: Dewiswch y neges e-bost y byddwch chi'n tynnu ei atodiadau yn nes ymlaen.

Cam 2: Cliciwch un o atodiadau yn y Pane Darllen i actifadu'r Offer Atodiadau.

Cam 3: Cliciwch y Dewis Popeth botwm yn y Dewis grŵp ar y Ymlyniadau tab.

Bydd y cam hwn yn eich galluogi i ddewis yr holl atodiadau yn y negeseuon e-bost dethol hyn ar unwaith.

Cam 4: Cliciwch y Dileu Ymlyniad botwm yn y Camau Gweithredu grŵp ar y Ymlyniadau tab.

Cam 5: Yn y blwch deialog rhybuddio, cliciwch y Dileu Atodiadau botwm.

Yna caiff yr holl atodiadau yn y negeseuon e-bost dethol hyn eu dileu cyn gynted â phosibl.

Nodyn: Mae'r nodwedd Dileu Atodiadau yn gweithio'n iawn yn Outlook 2010 a'r fersiwn ddiweddarach, ond nid yn Outlook 2007.


Tynnwch yr holl atodiadau yn hawdd o sawl e-bost a ddewiswyd yn Outlook:

Efo'r Datgysylltwch Pob atodiad cyfleustodau Kutools ar gyfer Excel, gallwch chi gael gwared ar yr holl atodiadau yn hawdd o sawl e-bost a ddewiswyd fel y demo isod a ddangosir. (Bydd yr atodiadau yn cael eu cadw mewn ffolder benodol) Dadlwythwch a cheisiwch nawr! (llwybr am ddim 30 diwrnod)


Tynnwch yr holl atodiadau o negeseuon e-bost lluosog yn Outlook gyda chod VBA

Os ydych chi am dynnu pob atodiad o nifer o negeseuon e-bost yn Microsoft Outlook, bydd y dull canlynol yn eich helpu i'w wneud yn hawdd. Rydym yn eich argymell galluogi pob macros yn eich Microsoft Outlook yn gyntaf.

Cam 1: Ewch i ffolder Fy Nogfen, creu ffolder newydd, a'i enwi fel OL Ymlyniadau

Cam 2: Dewiswch nifer o negeseuon e-bost y byddwch chi'n tynnu eu hatodiadau yn nes ymlaen.

Nodyn: Gallwch ddewis negeseuon e-bost anghynhenid ​​gyda dal y Ctrl allwedd a chlicio.

Gallwch ddewis negeseuon e-bost yn olynol gyda dal y Symud allwedd a chlicio.

Cam 3: Agorwch y Golygydd VBA gyda phwyso'r Alt allwedd a F11 allwedd ar yr un pryd.

Cam 4: Ehangu'r Project1 > Gwrthrychau Microsoft Outlook yn y bar chwith, ac yna cliciwch ddwywaith ar y SesiwnOutlook i'w agor yn y Golygydd. Gweler y llun sgrin canlynol:

Cam 5: Copïwch a gludwch y cod VBA canlynol yn y cwarel golygu.

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

Cam 6: Pwyswch allwedd F5 i redeg y cod VBA hwn.

Nawr mae'r holl atodiadau o negeseuon e-bost dethol yn cael eu tynnu, gyda hypergysylltiadau gadael i bob atodiad wedi'i ddileu ar waelod yr holl negeseuon e-bost a ddewiswyd.


Tynnwch yr holl atodiadau o un neu nifer o negeseuon e-bost yn hawdd gyda Kutools ar gyfer Outlook

Mae adroddiadau Datgysylltwch Bawb atodiadau cyfleustodau o Kutools ar gyfer Rhagolwg yn gallu tynnu pob atodiad yn gyflym o un neu sawl e-bost dethol yn Outlook. Gwnewch fel a ganlyn.

Kutools ar gyfer Rhagolwg : gyda mwy na 100 o ychwanegion Outlook defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod.

1. Dewiswch un neu fwy o negeseuon e-bost gyda'r atodiadau rydych chi am eu tynnu, yna cliciwch Kutools > Offer YmlyniadDatgysylltwch Bawb. Gweler y screenshot:

2. Yn y Gosodiadau Datgysylltu blwch deialog, ffurfweddwch fel a ganlyn.

  • 2.1 Cliciwch y Pori botwm i ddewis ffolder i arbed yr holl atodiadau sydd wedi'u dileu.
  • 2.2 Yn ddiofyn, mae'r Datgysylltwch atodiad (au) yn yr arddull islaw blwch yn cael ei wirio, dewiswch opsiwn i gadw'r atodiadau i wahanol ffolderau yn seiliedig ar e-byst yn ôl yr angen.
  • 2.3 Cliciwch y OK botwm. Gweler y screenshot:

Nodiadau:
1. Os ydych chi am arbed pob atodiad i'r un ffolder, dad-diciwch y Creu is-ffolderi yn yr arddull ganlynol blwch.
2. Ar ôl tynnu atodiadau, bydd eicon yr atodiad yn diflannu o e-bost y rhestr bostio. Gallwch wirio'r Mae'r eicon ymlyniad yn dal i fod yn yr e-byst blwch i'w gadw bob amser.
2. Ar wahân i dynnu pob atodiad o e-byst dethol, gallwch dynnu atodiadau yn ôl amodau penodol yn unig. Er enghraifft, dim ond tynnu'r atodiadau y mae'r maint yn fwy na 500KB yr ydych am eu tynnu, cliciwch y Dewisiadau mwy cymhleth botwm i ehangu'r amodau, ac yna ffurfweddu fel y sgriw isod.

3. Cliciwch ar y Ydy botwm yn y Datgysylltwch Bawb blwch deialog.

4. Yna a Kutools ar gyfer Rhagolwg bydd blwch deialog yn ymddangos i ddweud wrthych faint o atodiadau sy'n cael eu dileu. Cliciwch y OK botwm. 

Nawr mae'r holl atodiadau'n cael eu tynnu ar unwaith gyda dim ond y hypergysylltiadau yn gadael mewn e-byst dethol. Gallwch glicio ar yr hyperddolen i agor yr atodiad cyfatebol yn ôl yr angen.

  Os ydych chi am gael treial am ddim (60 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau ProArbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

 

 

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