Hvordan fjerne alle vedlegg fra e-post i Outlook?
Vanligvis når du forhåndsviser en e-post, kan du slette et vedlegg med å høyreklikke og velge Slett Vedlegg element. Noen ganger kan det være mange vedlegg i en e-postmelding, og det vil være kjedelig å fjerne dem én etter én. Her arrangerer vi deg med to enkle triks for å fjerne alle vedlegg i en e-post, og fjerne alle vedlegg fra flere e-poster, så vel i Outlook.
Manuelt fjerne alle vedlegg i en e-postmelding i Outlook
Fjern alle vedlegg fra flere e-post meldinger i Outlook med VBA-kode
enkelt fjerne alle vedlegg fra en eller flere e-poster med Kutools for Outlook (bare flere klikk)
2013.
fjerne manuelt alle vedlegg i en e-postmelding i Outlook
Det er . lett å fjerne alle vedlegg i en valgt e-postmeldinger med fjerne vedlegg i Outlook
Trinn 1: Velg e-postmeldingen som vedlegg du vil fjerne senere
Trinn 2:. Klikk på en av vedlegg i leseruten til aktivere vedlegg Tools
trinn 3:.. Klikk på Select All knappen i Utvalg-gruppen i kategorien vedlegg
Dette trinnet vil gjøre det mulig å velge alle vedlegg i denne utvalgte e-postmeldinger på en gang .
Trinn 4: Klikk på Fjern Vedlegg-knappen i Handlinger-gruppen i kategorien Vedlegg
Trinn 5:. i dialogboksen med advarselen, klikker du på knappen Fjern vedlegg
Da alle vedlegg i dette. utvalgte e-postmeldinger slettes så snart som mulig
. Merk: Fjern vedlegg funksjonen fungerer i Outlook 2010 og 2013, men ikke i Outlook 2007.
Fjern alle vedlegg fra flere e-postmeldinger i Outlook med VBA kode
Hvis du ikke foretrekker VBA-metoden, kan du prøve den tredje metoden for å fjerne alle vedlegg med bare flere klikk. Hvis du vil fjerne alle vedlegg fra flere e-postmeldinger i Microsoft Outlook, vil følgende metode hjelpe deg å gjøre det enkelt. Vi anbefaler at du aktivere alle makroer i Microsoft Outlook først
Trinn 1:. Gå til mappen Mine dokumenter, opprette en ny mappe, og gi det et navn som OLAttachments
Trinn 2: Velg flere e-postmeldinger som vedlegg vil du fjerne senere
. Merk: du kan velge inconsecutive e-postmeldinger med å holde nede Ctrl-tasten og klikke
du kan velge påfølgende e-postmeldinger med å holde nede Skift-tasten og klikke
Trinn 3.. : Åpne VBA Editor med å trykke på Alt-tasten og F11-tasten samtidig
Trinn 4:. Utvid Project1 > Microsoft Outlook objekter i venstre bar, og deretter dobbeltklikke på ThisOutlookSession å åpne den i redigeringsprogrammet. Se følgende skjermbilde:
Trinn 5:. Kopier og lim inn følgende VBA-kode i redigeringsruten
Public Sub ReplaceAttachmentsToLink () Dim objApp Som Outlook.ApplicationDim amail Som Outlook.MailItem 'ObjectDim oAttachments Som Outlook .AttachmentsDim oSelection Som Outlook.SelectionDim jeg som LongDim iCount Som LongDim sFile Som StringDim sFolderPath Som StringDim sDeletedFiles As String 'Få banen til mappen Mine dokumenter sFolderPath = Create ( "WScript.Shell"). SpecialFolders (16) On Error Resume Neste 'instantiate en Outlook Application objekt. Sett objApp = Create ( "Outlook.Application") 'Få samling av utvalgte stedene. Sett oSelection = objApp.ActiveExplorer.Selection 'Sett Vedlegg mappen. sFolderPath = sFolderPath & "\\ OLAttachments" 'Kontroller hver valgte elementet for vedlegg. Hvis vedlegg finnes, 'lagre dem til Temp-mappen og fjerne dem fra elementet. For hver amail I oSelection 'Denne koden strimler bare vedlegg fra e-postelementer. «Hvis aMail.class = olMail Then 'Få Vedlegg samling av elementet. Sett oAttachments = aMail.Attachments iCount = oAttachments.Count Hvis iCount > 0 Then 'Vi trenger å bruke en telle ned sløyfe for å fjerne elementer »fra en samling. Ellers blir loopen telleren 'forvirret og bare annenhver element er fjernet. For i = iCount Til en Step -1 'Lagre vedlegget før du sletter fra element. "Få filnavnet. sFile = oAttachments.Item (i) .FileName 'Kombiner med banen til Temp-mappen. sFile = sFolderPath & "\\" &Amp; sFile Lagre vedlegget som en fil. oAttachments.Item (i) .SaveAsFile sFile 'Slette vedlegget. oAttachments.Item (i) .Delete 'skrive lagre som veien til en streng for å legge til meldingen "check for html og bruke html-koder i koblingen Hvis aMail.BodyFormat < > olFormatHTML Deretter sDeletedFiles = sDeletedFiles & vbCrLf & "≪ file: //" & sFile & "≫" Else sDeletedFiles = sDeletedFiles & "≪ br >" &Amp; "≪ a href = 'file: //" & _ SFile & " '≫" &Amp; sFile & "≪ /a >" End If Neste i 'End If' Legger filnavnet strengen til meldingsteksten, og lagre den 'Se etter HTML kroppen Hvis aMail.BodyFormat < > olFormatHTML Deretter aMail.Body = aMail.Body & vbCrLf & _ "Filen (e) ble reddet til" & sDeletedFiles Else aMail.HTMLBody = aMail.HTMLBody & "≪ p >" &Amp; _ "Filen (e) ble reddet til" & sDeletedFiles & "≪ /p >" End If aMail.Save 'setter banen for vedlegg til ingenting før det går videre til neste melding. sDeletedFiles = "" End If Neste 'end amail ExitSub: Still oAttachments = NothingSet amail = NothingSet oSelection = NothingSet objApp = NothingEnd undertrinn 6:. Trykk på tasten for F5 for å kjøre denne VBA-kode
nå alle vedlegg fra utvalgte e-postmeldinger er fjernet, med å forlate hyperkoblinger til hver slettet vedlegget nederst av alle valgte e-postmeldinger.
enkelt å fjerne alle vedlegg fra en eller flere e-poster med Kutools for Outlook (bare noen klikk)
etter å ha installert Kutools for Outlook, er det Demonter alle vedlegg verktøyet kan raskt fjerne alle vedlegg fra en eller flere valgte e-post i Outlook. . Gjør følgende
1. Velg én eller flere e-postmeldinger med vedlegg du vil fjerne, og klikk deretter Kutools > Andre > Ta alle. Se skjermbilde:
tre. I Koble All dialogboksen, klikker du på Ja
. Merk: Hvis det er første gang du bruker dette verktøyet, vil en Bla etter mappe dialogboksen dukker opp, kan du angi en mappe for å lagre frittliggende vedlegg, og klikk deretter på OK-knappen.
nå alle vedlegg blir fjernet umiddelbart med bare linkene forlater i utvalgte e-poster. Du kan klikke hyperkoblingen for å åpne den tilsvarende vedlegget.
Hvis dette verktøyet er nyttig, kan du laste ned og prøve den gratis prøveversjon nå! 20 + kraftige verktøy og funksjoner for
Hvis du ikke foretrekker VBA-metoden, kan du prøve den tredje metoden for å fjerne alle vedlegg med bare flere klikk. Hvis du vil fjerne alle vedlegg fra flere e-postmeldinger i Microsoft Outlook, vil følgende metode hjelpe deg å gjøre det enkelt. Vi anbefaler at du aktivere alle makroer i Microsoft Outlook først
Trinn 1:. Gå til mappen Mine dokumenter, opprette en ny mappe, og gi det et navn som OLAttachments
Trinn 2: Velg flere e-postmeldinger som vedlegg vil du fjerne senere
. Merk: du kan velge inconsecutive e-postmeldinger med å holde nede Ctrl-tasten og klikke
du kan velge påfølgende e-postmeldinger med å holde nede Skift-tasten og klikke
Trinn 3.. : Åpne VBA Editor med å trykke på Alt-tasten og F11-tasten samtidig
Trinn 4:. Utvid Project1 > Microsoft Outlook objekter i venstre bar, og deretter dobbeltklikke på ThisOutlookSession å åpne den i redigeringsprogrammet. Se følgende skjermbilde:
Trinn 5:. Kopier og lim inn følgende VBA-kode i redigeringsruten
Public Sub ReplaceAttachmentsToLink () Dim objApp Som Outlook.ApplicationDim amail Som Outlook.MailItem 'ObjectDim oAttachments Som Outlook .AttachmentsDim oSelection Som Outlook.SelectionDim jeg som LongDim iCount Som LongDim sFile Som StringDim sFolderPath Som StringDim sDeletedFiles As String 'Få banen til mappen Mine dokumenter sFolderPath = Create ( "WScript.Shell"). SpecialFolders (16) On Error Resume Neste 'instantiate en Outlook Application objekt. Sett objApp = Create ( "Outlook.Application") 'Få samling av utvalgte stedene. Sett oSelection = objApp.ActiveExplorer.Selection 'Sett Vedlegg mappen. sFolderPath = sFolderPath & "\\ OLAttachments" 'Kontroller hver valgte elementet for vedlegg. Hvis vedlegg finnes, 'lagre dem til Temp-mappen og fjerne dem fra elementet. For hver amail I oSelection 'Denne koden strimler bare vedlegg fra e-postelementer. «Hvis aMail.class = olMail Then 'Få Vedlegg samling av elementet. Sett oAttachments = aMail.Attachments iCount = oAttachments.Count Hvis iCount > 0 Then 'Vi trenger å bruke en telle ned sløyfe for å fjerne elementer »fra en samling. Ellers blir loopen telleren 'forvirret og bare annenhver element er fjernet. For i = iCount Til en Step -1 'Lagre vedlegget før du sletter fra element. "Få filnavnet. sFile = oAttachments.Item (i) .FileName 'Kombiner med banen til Temp-mappen. sFile = sFolderPath & "\\" &Amp; sFile Lagre vedlegget som en fil. oAttachments.Item (i) .SaveAsFile sFile 'Slette vedlegget. oAttachments.Item (i) .Delete 'skrive lagre som veien til en streng for å legge til meldingen "check for html og bruke html-koder i koblingen Hvis aMail.BodyFormat < > olFormatHTML Deretter sDeletedFiles = sDeletedFiles & vbCrLf & "≪ file: //" & sFile & "≫" Else sDeletedFiles = sDeletedFiles & "≪ br >" &Amp; "≪ a href = 'file: //" & _ SFile & " '≫" &Amp; sFile & "≪ /a >" End If Neste i 'End If' Legger filnavnet strengen til meldingsteksten, og lagre den 'Se etter HTML kroppen Hvis aMail.BodyFormat < > olFormatHTML Deretter aMail.Body = aMail.Body & vbCrLf & _ "Filen (e) ble reddet til" & sDeletedFiles Else aMail.HTMLBody = aMail.HTMLBody & "≪ p >" &Amp; _ "Filen (e) ble reddet til" & sDeletedFiles & "≪ /p >" End If aMail.Save 'setter banen for vedlegg til ingenting før det går videre til neste melding. sDeletedFiles = "" End If Neste 'end amail ExitSub: Still oAttachments = NothingSet amail = NothingSet oSelection = NothingSet objApp = NothingEnd undertrinn 6:. Trykk på tasten for F5 for å kjøre denne VBA-kode
nå alle vedlegg fra utvalgte e-postmeldinger er fjernet, med å forlate hyperkoblinger til hver slettet vedlegget nederst av alle valgte e-postmeldinger.