Note: The other languages of the website are Google-translated. Back to English

Kako odstraniti vse priloge iz e-pošte v Outlooku?

Običajno pri predogledu e-pošte lahko prilogo izbrišete z desnim klikom in izberete Odstranite priponko element. Včasih je v e-poštnem sporočilu veliko prilog in jih bo dolgočasno odstranjevati eno za drugo. Tukaj vam uredimo dva preprosta trika, kako odstranite vse priloge v enem e-poštnem sporočilu in odstranite vse priloge iz več e-poštnih sporočil tudi v Outlooku.

V programu Outlook ročno odstranite vse priloge v enem e-poštnem sporočilu
Odstranite vse priloge iz več e-poštnih sporočil v Outlooku s kodo VBA
Z Kutools za Outlook enostavno odstranite vse priloge iz enega ali več e-poštnih sporočil


V programu Outlook ročno odstranite vse priloge v enem e-poštnem sporočilu

Z izbirnim e-poštnim sporočilom lahko enostavno odstranite vse priloge v Odstranite priloge funkcija v Outlooku.

1. korak: Izberite e-poštno sporočilo, katerega priloge boste kasneje odstranili.

2. korak: V podoknu za branje kliknite eno od prilog, da aktivirate orodja za priloge.

Korak 3: Kliknite na Izberi vse gumb v izbor skupina na Priponke tab.

Ta korak vam bo omogočil, da hkrati izberete vse priloge v teh izbranih e-poštnih sporočilih.

Korak 4: Kliknite na Odstranite priponko gumb v Proces skupina na Priponke tab.

5. korak: V opozorilnem pogovornem oknu kliknite Odstranite priloge gumb.

Nato se vse priloge v tem izbranem e-poštnem sporočilu čim prej izbrišejo.

Opombe: Funkcija Odstrani priloge dobro deluje v programu Outlook 2010 in novejših različicah, v programu Outlook 2007 pa ne.


Enostavno odstranite vse priloge iz več izbranih e-poštnih sporočil v Outlooku:

Z Odstranite vse priloge uporabnost Kutools za Excel, lahko enostavno odstranite vse priloge iz več izbranih e-poštnih sporočil, kot je prikazano spodaj. (Priloge bodo shranjene v določeno mapo) Prenesite in poskusite zdaj! (30-dnevna brezplačna pot)


Odstranite vse priloge iz več e-poštnih sporočil v Outlooku s kodo VBA

Če želite odstraniti vse priloge iz več e-poštnih sporočil v programu Microsoft Outlook, vam bo to pomagalo z lahkoto. Priporočamo vam omogoči vse makre v Microsoft Outlooku najprej.

1. korak: Pojdite v mapo Moj dokument, ustvarite novo mapo in jo poimenujte kot Priključki OLA

2. korak: Izberite več e-poštnih sporočil, katerih priloge boste kasneje odstranili.

Opomba: Izberete lahko neprekinjena e-poštna sporočila z držanjem Ctrl tipko in klik.

Izberete lahko zaporedna e-poštna sporočila z držanjem Shift tipko in klik.

3. korak: Odprite urejevalnik VBA s pritiskom na druga tipko in F11 istočasno.

4. korak: Razširite Project1 > Predmeti Microsoft Outlook v levi vrstici in nato dvokliknite Ta OutlookSession da ga odprete v urejevalniku. Oglejte si naslednji posnetek zaslona:

5. korak: Kopirajte in prilepite naslednjo kodo VBA v podokno za urejanje.

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. korak: Pritisnite tipko F5 za zagon te kode VBA.

Zdaj so odstranjene vse priloge iz izbranih e-poštnih sporočil, pri čemer na dnu vseh izbranih e-poštnih sporočil ostanejo hiperpovezave do vsake izbrisane priloge.


Z Kutools za Outlook enostavno odstranite vse priloge iz enega ali več e-poštnih sporočil

O Loči vse priponke pripomoček Kutools za Outlook lahko hitro odstrani vse priloge iz enega ali več izbranih e-poštnih sporočil v Outlooku. Naredite naslednje.

Kutools za Outlook : z več kot 100 priročnimi dodatki za Outlook, brezplačno poskusite brez omejitev v 60 dneh.

1. Izberite eno ali več e-poštnih sporočil s prilogami, ki jih želite odstraniti, in kliknite Kutools > Orodja za pritrditevLoči vse. Oglejte si posnetek zaslona:

2. V Ljubljani Odstrani nastavitve pogovorno okno, nastavite na naslednji način.

  • 2.1 Kliknite na Brskanje , da izberete mapo za shranjevanje vseh izbrisanih prilog.
  • 2.2 Privzeto je Odlepite prilogo (-e) v spodnjem slogu potrdite polje, izberite možnost, da shranite priloge v različne mape glede na e-poštna sporočila, kot jih potrebujete.
  • 2.3 Kliknite na OK . Oglejte si posnetek zaslona:

Opombe:
1. Če želite shraniti vse priloge v isto mapo, počistite polje Ustvarite podmape v naslednjem slogu škatla.
2. Po odstranitvi prilog ikona priloge izgine z e-pošte na poštnem seznamu. Lahko preverite Ikona priloge še vedno ostane v e-poštnih sporočilih vedno shranite.
2. Poleg odstranjevanja vseh prilog iz izbranih e-poštnih sporočil lahko priloge odstranite le pod posebnimi pogoji. Na primer, želite odstraniti samo priloge, katerih velikost je večja od 500 KB, kliknite na Dodatne možnosti , da razširite pogoje, in nato konfigurirajte, kot je prikazano na spodnji sliki zaslona.

3. Kliknite Da gumb v Loči vse pogovorno okno.

4. Nato a Kutools za Outlook Pojavi se pogovorno okno, ki vam pove, koliko prilog je izbrisanih. Kliknite OK gumb. 

Zdaj se vse priloge takoj odstranijo, v izbranih e-poštnih sporočilih pa ostanejo le hiperpovezave. Lahko kliknete hiperpovezavo, da odprete ustrezno prilogo, kot jo potrebujete.

  Če želite imeti brezplačno (60-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (32)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam!!! To je delovalo kot poslastica.
Ta komentar je moderator na spletnem mestu minimiziral
super, hvala (sramota za MS !!!)
Ta komentar je moderator na spletnem mestu minimiziral
Deloval kot čar! Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
Točno to, kar sem iskal - odličen kos kode - hvala
Ta komentar je moderator na spletnem mestu minimiziral
To je super. Vendar ne pozabite, če imata 2 prilogi isto ime, bo na koncu starejša prepisana.
Ta komentar je moderator na spletnem mestu minimiziral
Težavo z dvema prilogama z istim imenom lahko rešite in ustvarite povratno sledljivost tako, da spremenite naslednjo vrstico v kodi. ' Preden izbrišete prilogo, shranite prilogo. ' Pridobite ime datoteke. sFile = Format(aMail.SentOn, "YYYYMMDDHHNNSS") & "_" & oAttachments.Item(i).FileName To bo dodalo datum in časovni žig pred imenom priloge.
Ta komentar je moderator na spletnem mestu minimiziral
Zdi se, da se opravljene priloge ločijo, še vedno lahko odprem e-pošto in pdf-je, imate kakšne ideje? hvala
Ta komentar je moderator na spletnem mestu minimiziral
dobro opravljeno. to sem potreboval, najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
To deluje delno; nekatere priloge so odstranjene, mnoge pa ne. Izvaja se Outlook 2013, 15.0.4701.1000. Oklevam z nakupom orodja KU, če tega ne bo mogoče najprej rešiti.
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda odstrani samo priloge iz izbranega poštnega predmeta. Uporabljam 2013, če je to težava
Ta komentar je moderator na spletnem mestu minimiziral
Koda deluje odlično, Ali je mogoče spremeniti lokacijo, na kateri so shranjene priloge? Pri delu uporabljam več različnih računalnikov, priloge pa shranim na C:/. Ali lahko shranim na omrežni pogon, če poznam pot?
Ta komentar je moderator na spletnem mestu minimiziral
VBA se mi zdi zelo dober, vendar je mogoče hiperpovezavo pretvoriti v čisto besedilo, saj se zdi, da bo preveč hiperpovezav v datoteki Outlook .pst porabilo pomnilnik. Pravzaprav želim obdržati samo imena datotek prilog, saj so bile ustrezne datoteke shranjene (če je potrebno) že, ko je pošta prebrana. Bi kdo pomagal? Hvala veliko.
Ta komentar je moderator na spletnem mestu minimiziral
Odlični nasveti! Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Thx toliko. Pravzaprav sem uporabljal kode vba, kot je prikazano v razdelku »Odstrani vse priloge iz več e-poštnih sporočil v Outlooku s kodo VBA«, in kode delujejo dobro. Moje poanta je, da ne morem spremeniti kod za pretvorbo hiperpovezave v golo besedilo. . Ni smiselno prikazovati hiperpovezave, saj bodo povezane mape/datoteke slej ko prej izbrisane, ko se glasnost poveča na določeno velikost. Veselim se vaših nadaljnjih nasvetov. Lep pozdrav
Ta komentar je moderator na spletnem mestu minimiziral
iz makra izbrišite spodnji del

Če aMail.BodyFormat <> olFormatHTML Potem

sDeletedFiles = sDeletedFiles & vbCrLf & "
Ta komentar je moderator na spletnem mestu minimiziral
Super, hvala, točno to sem iskal!
Ta komentar je moderator na spletnem mestu minimiziral
Deluje za posamezna sporočila Outlooka, vendar so pri več sporočilih priloge prepisali druga drugo, kjer so bile priloge poimenovane enako.
Ta komentar je moderator na spletnem mestu minimiziral
Kako spremeniti pot do mape v recimo D namesto Mojih dokumentov?
Ta komentar je moderator na spletnem mestu minimiziral
Uporabljam KU za odstranjevanje prilog na več e-poštnih sporočilih (približno 100 do zdaj), vendar ni zmanjšal velikosti datoteke mojega nabiralnika. Ali lahko razložite, zakaj je to lahko?
Ta komentar je moderator na spletnem mestu minimiziral
Koda deluje lepo. Opazil sem samo eno stvar, da koda ne registrira prilog v določenih vrstah e-poštnih sporočil, kot so povabila ali e-poštna sporočila, ki jih ni mogoče dostaviti. Torej, če so ta e-poštna sporočila v vrstici izbranih e-poštnih sporočil, se bo koda ustavila, ko bo prispela do enega od teh e-poštnih sporočil. Te priloge morate izbrisati ročno (ali celotno e-pošto) in nato znova zagnati kodo. Nisem prepričan, ali obstaja način za spremembo kode, tako da upošteva te vrste e-poštnih sporočil. Sicer pa je bilo to zelo v pomoč.
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda je bila točno to, kar sem iskal. Če želite narediti korak dlje .. Uporabite "Več ukazov", izberite ukaze v spustnem meniju in izberite "Makri"... videli boste ta makro in "Dodaj>>"... Zdaj imate gumb na samem vrhu. Po meri izberite e-poštna sporočila s prilogami in kliknite gumb za nov makro na vrhu. Še enkrat hvala za objavo te kode!!!!! :-)
Ta komentar je moderator na spletnem mestu minimiziral
Živjo. Lep pozdrav Lisa
Ta komentar je moderator na spletnem mestu minimiziral
Koda VBA je delovala odlično. Najlepša hvala!
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije