Hur sparar jag bilagor utan att öppna e-postmeddelandet i Outlook?
Du kan ofta behöva spara bilagor från de mottagna e-postmeddelandena på datorns skivor. Det är enkelt att spara en bilaga eller alla bilagor från ett e-postmeddelande, men hur sparar du bilagor från flera e-postmeddelanden samtidigt? Normalt måste du öppna e-postmeddelandena upprepade gånger och spara bilagorna. Finns det några knep för att bli av med de upprepade operationerna? Här kan metoderna i denna handledning hjälpa dig.
Spara bilagor från en eller flera e-postmeddelanden utan att öppna med VBA-kod
Spara bilagor från en eller flera e-postmeddelanden utan att öppna med ett fantastiskt verktyg
Spara bilagor från en eller flera e-postmeddelanden utan att öppna med VBA-kod
Nedanstående VBA-kod kan hjälpa till att spara bilagor från en eller flera e-postmeddelanden samtidigt utan att e-postmeddelandena öppnas i Outlook. Gör så här.
1. Välj ett e-postmeddelande eller flera e-postmeddelanden där du kommer att spara bilagorna, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Expandera Microsoft Outlook-objekt dubbelklicka på ThisOutlookSession att öppna Koda och kopiera sedan VBA-koden nedan till den.
VBA-kod: Spara bilagor utan att e-postmeddelanden öppnas
Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xSavePath = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
Set xAttachments = xMailItem.Attachments
xCount = xAttachments.Count
xOriginalFiles = ""
If xCount > 0 Then
For i = xCount To 1 Step -1
Set xAttachment = xAttachments.Item(i)
If IsEmbeddedAttachment(xAttachment) = False Then
xFileName = xSavePath & xAttachment.FileName
xAttachment.SaveAsFile xFileName
xAttachment.Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
Else
xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
End If
End If
Next i
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
End If
xMailItem.Save
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
4. tryck på F5 för att köra koden. Då en BrowseForFolder fönstret dyker upp, välj en mapp för att spara bilagorna och klicka sedan på OK knapp.
Sedan sparas alla bilagor i valda e-postmeddelanden direkt i den valda mappen.
Notera: Alla bilagor kommer att tas bort från e-postmeddelandena och behålla motsvarande spårningslänkar i e-postkroppen.
Spara bilagor från en eller flera e-postmeddelanden utan att öppna med ett fantastiskt verktyg
Om du är nybörjare i VBA kommer metoden i det här avsnittet att vara ditt bra val.
Här rekommenderar du Spara alla bilagor verktyg för Kutools för Outlook till dig. Om du bara vill spara bilagorna utan att ta bort från valda e-postmeddelanden kan funktionen Spara alla bilagor hjälpa dig att enkelt göra det. Gör så här.
Innan du använder Kutools för Outlook, tack ladda ner och installera det för det första.
1. Välj e-postmeddelanden som innehåller bilagorna du sparar, klicka på Kutools > Tillbehörsverktyg > Spara alla.
2. I Spara inställningar dialogrutan måste du:
- 2.1) I Spara bilagor i den här mappen Välj en mapp för att spara bilagorna.
- 2.2) Den Spara bilagor i nedanstående stil rutan är valfri för dig att skapa en undermapp med certian-stil för att spara bilagorna, eller byta namn på de sparade bilagorna med certian-stil.
- 2.3) Klicka OK för att börja spara alla bilagor från valda e-postmeddelanden.
tips: Med ovanstående konfigurationer sparas alla bilagor i den angivna mappen. Om du bara vill spara vissa certianbilagor, som bara spara PDF-filer med certianordet "faktura" i filnamnet, kan du konfigurera filtervillkoren enligt följande.
- Klicka på Avancerade alternativ för att utöka Filterförhållandes;
- Ange villkoren baserat på dina behov.
Tips: Här kontrollerar jag Bilagans namn innehåller rutan och ange sedan "faktura" i textrutan och markera sedan Tillbehörstyp rutan, ange ".pdf" i textrutan.
3. Klicka på i nästa popup-dialogruta Ja att fortsätta.
Sedan sparas bilagor i valda e-postmeddelanden i den angivna mappen på en gång.
tips: För att ta bort bilagor från valda e-postmeddelanden och endast lämna bilagahyperlänkar i e-posttexten, Lossa alla bilagor funktionen kan hjälpa.
Om du vill ha en gratis provperiod (60 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.
Relaterade artiklar
Ladda ner / spara bilagor automatiskt från Outlook till en viss mapp
Generellt kan du spara alla bilagor i ett e-postmeddelande genom att klicka på Bilagor> Spara alla bilagor i Outlook. Men om du behöver spara alla bilagor från alla mottagna e-postmeddelanden och ta emot e-postmeddelanden, något ideal? Denna artikel introducerar två lösningar för att automatiskt ladda ner bilagor från Outlook till en viss mapp.
Behåll bilagor när du svarar i Outlook
När vi vidarebefordrar ett e-postmeddelande i Microsoft Outlook finns originalbilagor i det här e-postmeddelandet kvar i det vidarebefordrade meddelandet. Men när vi svarar på ett e-postmeddelande bifogas inte de ursprungliga bilagorna i det nya svarsmeddelandet. Här ska vi introducera ett par knep för att behålla originalbilagor när du svarar i Microsoft Outlook.
Sök efter ord i bilagor (innehåll) i Outlook
När vi skriver ett nyckelord i rutan Direkt sökning i Outlook, kommer det att söka efter nyckelordet i e-postämnen, ämnen, bilagor, etc. Men nu behöver jag bara söka efter nyckelordet i bifogat innehåll bara i Outlook, någon idé? Den här artikeln visar de detaljerade stegen för att enkelt söka efter ord i bifogat innehåll i Outlook.
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.