Hvordan lagre alle vedlegg fra flere e-poster til mappe i Outlook?
Som vanlig, når du mottar meldinger med flere vedlegg, og du vil lagre disse vedlegg til en bestemt mappe, må du lagre dem én etter én med noen irriterende operasjoner. Vil du bli kvitt det tidkrevende operasjoner og direkte lagre flere vedlegg på en gang? Vennligst se på følgende tutorials.
2013.
Lagre alle vedlegg fra flere e-poster til mappe med VBA-kode
Hvis du ikke foretrekker VBA-metoden, kan du prøve den andre metoden for å lagre alle vedlegg med bare flere klikk. 1. Først må du opprette en mappe for å lagre vedlegg i datamaskinen. Saving banen akkurat som de følgende skjermbilde viser, er Lj brukernavnet til datamaskinen, og vedleggs er mappen som du bør endelig lage.
To. Når du har opprettet mappen, trykk Alt + F11 for å åpne Microsoft Visual Basic for Applications vinduet.
3. Deretter klikker du Sett > Modulen for å åpne modulen vinduet, og deretter kopiere og lime inn følgende VBA-kode til vinduet.
VBA-kode for lagring av vedlegg
Public Sub SaveAttachments () 'Update 20141121 Dim objOL Som Outlook.Application Dim objMsg Som Outlook.MailItem Dim objAttachments Som Outlook.Attachments Dim objSelection som Outlook.Selection Dim jeg som Long Dim lngCount som Long Dim strFile As String Dim strFolderpath As String Dim strDeletedFiles som String strFolderpath = Create ("WScript.Shell"). SpecialFolders (16 ) Set objOL = Create ("Outlook.Application") Set objSelection = objOL.ActiveExplorer.Selection strFolderpath = strFolderpath & "\\ Vedlegg \\" for hver objMsg I objSelection Set objAttachments = objMsg.Attachments lngCount = objAttachments.Count strDeletedFiles = "" Hvis lngCount > 0 Then For i = lngCount Til en Step -1 strFile = objAttachments.Item (i) .FileName strFile = strFolderpath & strFile objAttachments.Item (i) .SaveAsFile strFile'objAttachments.Item (i) .Delete () Hvis objMsg.BodyFormat < > olFormatHTML Så strDeletedFiles = strDeletedFiles & vbCrLf & "< link Feil referanse ikke gyldig >!." Else strDeletedFiles = strDeletedFiles & "< br >" & "< a href = 'file: //" & _ StrFile & "'>" & strFile & "< /a >" End If Neste i Hvis objMsg.BodyFormat < > olFormatHTML Så objMsg.Body = vbCrLf & "Filen (e) ble reddet til" & strDeletedFiles & vbCrLf & objMsg.Body Else objMsg.HTMLBody = "< p >" & "Filen (e) ble reddet til" & strDeletedFiles & "< /p >" & objMsg.HTMLBody End If objMsg.Save End If Neste ExitSub: Still objAttachments = Ingenting Set objMsg = Ingenting Set objSelection = Ingenting Set objOL = Nothing End SubNote. Dette VBA-kode vil permanent fjerne vedlegget fra e-posten
fire. Gå til Outlook Mail delen for å velge e-post med vedlegg som du ønsker å lagre vedlegg.
5. Gå tilbake til Microsoft Visual Basic for Applications-vinduet, og klikk knappen for å kjøre koden.
6. Når en ledetekst boks dukke opp, klikker du Tillat å lagre vedlegget. Merk: Meldingen boksens Viser frekvenser avhenger av hvor mange e-poster du har valgt. Hvis du har valgt to e-poster med vedlegg, vil meldingen boksen dukker opp to ganger, og du må klikke Tillat to ganger for å fullføre alle innsparinger.
7. Etter ferdig alle besparelser, vil du se resultatet som vist i under skjermbilder. Du kan gå for å finne de lagrede vedlegg i henhold til frelse banen eller åpne vedlegget direkte ved å bare klikke på spare banen.
Hvis VBA-kode er vanskelig å håndtere, kan du prøve følgende metode. Lagre alle vedlegg fra flere e-poster til mappe med Kutools for Outlook (bare noen klikk)
Etter å ha installert Kutools for Outlook, den kobler du fra alt verktøyet vil hjelpe deg raskt lagre vedlegg fra flere e-poster på en gang i Outlook.
Kutools for Outlook: Med mer enn 20 hendig Outlook add-ins, gratis å prøve uten begrensning i 45 dager. Gratis nedlasting nå! 1. Få inn i e-mappen og velg flere e-poster med vedlegg i e-postlisten ved å holde nede Ctrl-tasten.
2. Klikk deretter Kutools > Andre > Løsne alle. Se skjermbilde:
tre. I det følgende Løsne All dialogboksen, klikker du på Ja
nå alle vedlegg i utvalgte flere e-poster er frittliggende og lagres i en bestemt mappe
Merk:.. Hvis det er første gang du bruker dette verktøyet, Bla gjennom etter mappe dialogboks vil dukke opp for deg å spesifisere sparing mappe for frittliggende vedlegg.
Hvis dette verktøyet er nyttig, kan du laste ned og prøve den gratis prøveversjon nå!
Etter å ha installert Kutools for Outlook, den kobler du fra alt verktøyet vil hjelpe deg raskt lagre vedlegg fra flere e-poster på en gang i Outlook.
Kutools for Outlook: Med mer enn 20 hendig Outlook add-ins, gratis å prøve uten begrensning i 45 dager. Gratis nedlasting nå! 1. Få inn i e-mappen og velg flere e-poster med vedlegg i e-postlisten ved å holde nede Ctrl-tasten.
2. Klikk deretter Kutools > Andre > Løsne alle. Se skjermbilde:
tre. I det følgende Løsne All dialogboksen, klikker du på Ja
nå alle vedlegg i utvalgte flere e-poster er frittliggende og lagres i en bestemt mappe
Merk:.. Hvis det er første gang du bruker dette verktøyet, Bla gjennom etter mappe dialogboks vil dukke opp for deg å spesifisere sparing mappe for frittliggende vedlegg.
Hvis dette verktøyet er nyttig, kan du laste ned og prøve den gratis prøveversjon nå!