Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս հեռացնել բոլոր կցորդները էլփոստից Outlook- ում:

Սովորաբար էլփոստը նախադիտելիս կարող եք աջ կտտոցով ջնջել հավելվածը և ընտրել այն Հեռացնել հավելվածը իրը Երբեմն էլփոստի հաղորդագրության մեջ կարող են լինել բազմաթիվ կցորդներ, և ձանձրալի կլինի դրանք մեկ առ մեկ հեռացնելը: Այստեղ մենք ձեզ կազմակերպում ենք երկու հեշտ հնարքներ `մեկ էլփոստում բոլոր կցորդները հեռացնելու և բազմաթիվ նամակներից, ինչպես նաև Outlook- ում, բոլոր կցորդները հեռացնելու համար:

Outlook- ում մեկ էլփոստի հաղորդագրության մեջ ձեռքով հեռացրեք բոլոր կցորդները
Հեռացրեք բոլոր կցորդները բազմաթիվ էլփոստի հաղորդագրություններից Outlook- ում `VBA կոդով
Outlook- ի համար Kutools- ով հեշտությամբ հեռացրեք բոլոր կցորդները մեկ կամ մի քանի նամակներից


Outlook- ում մեկ էլփոստի հաղորդագրության մեջ ձեռքով հեռացրեք բոլոր կցորդները

Հեշտ է հեռացնել բոլոր կցորդները ընտրված էլփոստի հաղորդագրություններում հետ Հեռացնել հավելվածները առանձնահատկությունը Outlook- ում:

Քայլ 1. Ընտրեք էլփոստի հաղորդագրությունը, որի կցորդները հետո կհեռացնեք:

Քայլ 2. Կտտացրեք Կարդալու հատվածի կցորդներից մեկը ՝ Կցորդների գործիքներն ակտիվացնելու համար:

Քայլ 3: Սեղմեք Ընտրել բոլորը կոճակը Ընտրություն խմբում Attachments էջանիշը.

Այս քայլը հնարավորություն կտա միանգամից ընտրել այս կցված էլփոստի բոլոր կցորդները:

Քայլ 4: Սեղմեք Հեռացնել հավելվածը կոճակը Գործողություններ խմբում Attachments էջանիշը.

Քայլ 5. Նախազգուշացման երկխոսության դաշտում կտտացրեք Հեռացնել հավելվածները կոճակը:

Ապա այս ընտրված էլփոստի բոլոր կցորդները հնարավորինս շուտ ջնջվում են:

ՆշումՀեռացնել կցորդները հնարավորությունը լավ է աշխատում Outlook 2010-ում և ավելի ուշ տարբերակում, բայց ոչ Outlook 2007-ում:


Outlook- ում բազմաթիվ ընտրված էլփոստերից հեշտությամբ հեռացրեք բոլոր կցորդները.

Հետ Անջատել բոլոր կցորդները օգտակարությունը Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք հեշտությամբ հեռացնել բոլոր կցորդները բազմաթիվ ընտրված էլ-նամակներից, ինչպես ցույց է տրված ստորև ներկայացված ցուցադրումը: (Կցորդները կպահվեն նշված թղթապանակում) Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)


Հեռացրեք բոլոր կցորդները բազմաթիվ էլփոստի հաղորդագրություններից Outlook- ում `VBA կոդով

Եթե ​​ցանկանում եք հեռացնել բոլոր կցորդները Microsoft Outlook- ի բազմաթիվ էլփոստի հաղորդագրություններից, հետևյալ մեթոդը կօգնի ձեզ դա անել հեշտությամբ: Մենք խորհուրդ ենք տալիս ձեզ միացրեք ձեր Microsoft Outlook- ի բոլոր մակրոները առաջին հերթին:

Քայլ 1. Գնալ դեպի պանակ Իմ փաստաթուղթը, ստեղծեք նոր պանակ և անվանեք այն որպես OLA հավելվածներ

Քայլ 2. Ընտրեք մի քանի էլփոստի հաղորդագրություններ, որոնց կցորդները հետո կհեռացնեք:

Նշում: Դուք կարող եք ընտրել անհետեւողական էլփոստի հաղորդագրություններ ՝ Ctrl ստեղնը և սեղմելը:

Դուք կարող եք ընտրել էլ. Փոստի հաղորդագրություններ ՝ պահելով Հերթափոխություն ստեղնը և սեղմելը:

Քայլ 3. Բացեք VBA խմբագիրը ՝ սեղմելով այն ալտ բանալին եւ F11 բանալին միաժամանակ:

Քայլ 4. Ընդլայնել Project1 > Microsoft Outlook օբյեկտներ ձախ բարում և այնուհետև կրկնակի կտտացրեք այն ԱյսOutlookSession- ը այն խմբագրում բացելու համար: Տեսեք էկրանի հետևյալ նկարը.

Քայլ 5. Պատճենեք և տեղադրեք հետևյալ VBA կոդը ՝ խմբագրման պատուհանում:

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. Սեղմեք կոճակի ստեղնը F5 գործարկել այս VBA կոդը:

Այժմ ընտրված էլփոստի հաղորդագրություններից բոլոր կցորդները հանվում են ՝ յուրաքանչյուր ջնջված կցորդին հղումներ թողնելով բոլոր ընտրված էլփոստի հաղորդագրությունների ներքևում:


Outlook- ի համար Kutools- ով հեշտությամբ հեռացրեք բոլոր կցորդները մեկ կամ մի քանի նամակներից

The Անջատել բոլորը կցորդների օգտակարությունը Outlook- ի համար նախատեսված գործիքներ կարող է արագ հեռացնել բոլոր կցորդները Outlook- ի մեկ կամ մի քանի ընտրված էլ-նամակներից: Խնդրում եմ, արեք հետևյալ կերպ.

Outlook- ի համար նախատեսված գործիքներ ավելի քան 100 օգտակար Outlook հավելումներով, անվճար փորձեք առանց սահմանափակումների 60 օրվա ընթացքում.

1. Ընտրեք մեկ կամ մի քանի էլփոստի հաղորդագրություններ այն կցորդներով, որոնք ցանկանում եք հեռացնել, ապա կտտացրեք Կուտոլս > Կցման գործիքներԱնջատել բոլորը, Տեսեք,

2. Մեջ Առանձնացնել կարգավորումները երկխոսության տուփ, խնդրում ենք կազմաձևել հետևյալը.

  • 2.1 սեղմեք Թերթել բոլոր ջնջված կցորդները պահելու համար պանակ ընտրելու կոճակը:
  • 2.2 Լռելյայնորեն, Կտրեք կցորդ (ներ) ը ներքևի ոճով տուփը ստուգված է, խնդրում ենք ընտրեք տարբերակ ՝ հավելվածները տարբեր թղթապանակների մեջ պահելու համար ՝ ելնելով ձեր էլ.
  • 2.3 սեղմեք OK կոճակ Տեսեք,

Notes:
1. Եթե ցանկանում եք բոլոր կցորդները պահպանել նույն թղթապանակում, ապա ընտրեք ընտրությունը Ստեղծեք ենթապանակներ հետևյալ ոճով տուփ:
2. Կցորդները հեռացնելուց հետո կցորդի պատկերակը կվերանա փոստային ցուցակի էլ. Փոստից: Կարող եք ստուգել Կցորդի պատկերակը դեռ մնում է էլփոստերում տուփ ՝ այն միշտ պահելու համար:
2. Բացի ընտրված էլփոստերից բոլոր կցորդները հեռացնելուց, կցորդները կարող եք հեռացնել միայն հատուկ պայմաններով: Օրինակ, դուք միայն ցանկանում եք հեռացնել այն կցորդները, որոնց չափը 500 ԿԲ-ից ավելի է, խնդրում ենք կտտացնել Ընդլայնված ընտրանքներ պայմանները ընդլայնելու կոճակը և այնուհետև կազմաձևել, ինչպես ցույց է տրված ստորև նկարված նկարը:

3. Սեղմեք այո կոճակը Անջատել բոլորը երկխոսության վանդակում:

4. Հետո ա Outlook- ի համար նախատեսված գործիքներ երկխոսության պատուհանը կհայտնվի ՝ ձեզ ասելու համար, թե քանի հավելված է ջնջված: Խնդրում ենք սեղմել OK կոճակը: 

Այժմ բոլոր կցորդները անմիջապես հանվում են ընտրված էլ.փոստերում թողնելով միայն հղումները: Կարող եք կտտացնել hyperlink- ին ՝ համապատասխան կցորդը բացելու համար, որքան անհրաժեշտ է:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (60-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ ProԽմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

 

 

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