Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas kustutada kõik manused Outlooki e-kirjadest?

Tavaliselt, kui vaatate e-kirja ette, võite manuse kustutada paremklõpsuga ja valida Eemalda manus kirje Mõnikord võib e-kirjaga olla palju manuseid ja igaüks neist ükshaaval eemaldab tüütu. Siin me korraldame teile kaks lihtsat nippe, et eemaldada kõik manused ühes e-kirjas ja eemaldada kõik manused ka mitmelt e-posti aadressilt Outlookis.

Eemaldage käsitsi kõik manused ühes Outlooki e-kirjas

Eemaldage kõik manused Outlooki mitmelt e-posti aadressilt, kasutades VBA-koodi

Eemaldage hõlpsalt kõik manused ühest või mitmest e-posti aadressilt Kutools Outlooki abil


Hoidke kõik manused mitmelt valitud meililt kausta järgmiselt:

Koos Eemalda kõik manused kasulikkus Kutools Exceli jaoks, saate hõlpsalt salvestada kõik manused mitmelt valitud meililt Outlooki määratud kausta, nagu allpool on kujutatud ekraanipildi.

Outlooki Kutools: rohkem kui 40 käepärased Outlooki lisandmoodulid, mida saate tasuta proovida 45 päeva jooksul ilma piiranguteta. Laadige alla ja proovige kohe proovige nüüd!

Outlooki Kutools: 100 + uued täpsemad tööriistad Outlooki jaoks.
Office'i vahekaart: Lubage Office'i vahelehtede redigeerimine ja sirvimine, Just nagu Chrome, Firefox, IE 8 / 9 / 10.
Klassikaline menüü: Viige vanad menüüd ja tööriistaribad tagasi Office 2007, 2010, 2013, 2016 ja 2019.

Eemaldage käsitsi kõik manused ühes Outlooki e-kirjas

Kõigi manuste valimine valitud e-kirjadesse on lihtne eemaldada Eemalda manused funktsioon Outlookis.

Samm 1: valige e-kiri, mille manused hiljem eemaldatakse.

Samm 2: klõpsake mõnda manuste tööriista aktiveerimiseks lugemispaanil ühte manust.

Samm 3: klõpsake nupul Vali kõik nuppu Valik grupi kohta Manused Tab.

See samm võimaldab teil valida kõik manused valitud valitud e-kirjades korraga.

Samm 4: klõpsake nupul Eemalda manus nuppu Meetmete grupi kohta Manused Tab.

Samm 5: hoiatusdialoogis klõpsake Eemalda manused nuppu.

Siis kustutatakse kõik valitud meilisõnumite kõik manused niipea kui võimalik.

Märkus. Eemalda manused funktsiooni toimivad hästi Outlook 2010 ja 2013, kuid mitte Outlook 2007.


Eemaldage kõik manused Outlooki mitmelt e-posti aadressilt, kasutades VBA-koodi

Kui soovite eemaldada kõik manused Microsoft Outlooki mitmest e-posti sõnumist, aitab see hõlpsasti kasutada järgmist meetodit. Soovitame teid lubage kõik oma Microsoft Outlooki makrosid Esiteks.

Samm 1: mine kausta Minu dokument, looge uus kaust ja nimetage see nagu OLAtaotused

Samm 2: valige mitu e-posti aadressi, mille manused hiljem eemaldatakse.

Märge: Võite valida mittesekvate e-kirjade, hoides neid Ctrl võti ja klõpsamine.

Saate valida järjestikuseid e-kirju, hoides neid nihe võti ja klõpsamine.

Samm 3: ava VBA-redaktor, vajutades nuppu muu võti ja F11 võti samal ajal.

Samm 4: laiendage Project1 > Microsoft Outlook Objektid vasakpoolsel ribal ja seejärel topeltklõps ThisOutlookSession selle avamiseks redaktoris. Vaata järgnevat ekraanipilti:

Samm 5: kopeeri ja kleepige redigeerimispaanile järgmine VBA kood.

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

Samm 6: vajutage nuppu F5 käivitada see VBA kood.

Nüüd eemaldatakse kõik valitud e-kirjadest lisatud manused, jättes hüperlingid kõikide valitud meilisõnumite allosas olevate kustutatud manuste juurde.


Eemaldage hõlpsalt kõik manused ühest või mitmest e-posti aadressilt Kutools Outlooki abil (vaid mitu klikki)

The Eemalda kõik manused kasulikkust Outlooki Kutools saab kiiresti eemaldada kõik manused Outlookist ühest või mitmest valitud meililistist. Palun tehke järgmist.

Outlooki Kutools : rohkem kui 20 käepärased Outlooki lisandmoodulid, Tasuta proovida 45 päeva jooksul ilma piiranguteta.

1. Valige üks või mitu meilisõnumit manustega, mida soovite eemaldada, seejärel klõpsake Kutools > Eemalda kõik. Vaata pilti:

2. Aastal Palun valige kaust dialoogiboksis klõpsake nuppu Sirvi nuppu, et valida kõigi kustutatud manuste salvestamiseks vajalik kaust. Kontrolli Loo alamkatalooge järgmises stiilis kastis ja seejärel rippmenüüst kataloogi stiil. Ja lõpuks klõpsake OK nuppu. Vaata pilti:

3. Klikkige dialoogiboksis Eemalda kõik dialoogiboksiga Jah.

4. Siis üks Outlooki Kutools Avaneb dialoogiboks, mis näitab, kui palju manuseid kustutatakse. Palun klõpsake OK nuppu.

Nüüd kustutatakse kõik manused viivitamatult, ainult valitud kirjadesse jäävad hüperlingid. Võite klõpsata hüperlingil vastava manuse avamiseks vastavalt vajadusele.

Kui soovite selle utiliidi tasuta proovida, siis külastage palun tasuta alla laadida tarkvara kõigepealt ja seejärel käsku rakendada operatsioon vastavalt eespool toodud sammudele.


Demo: hõlpsasti eemaldage Kutoolsist Outlooki jaoks kõik manused meilidest

Outlooki Kutools sisaldab Microsoft Outlooki 20 + võimsaid funktsioone ja tööriistu. Tasuta proovida 45 päeva jooksul ilma piiranguteta. Laadige tasuta prooviversioon nüüd alla!



Outlooki Kutools

Rohkem kui 100 täiustatud funktsioonid Outlooki 2010, 2013, 2016, 2019 ja 365 jaoks

ekraanipilt kutools jaoks banneri 201812 jaoks väikeseks

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks

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!