Hoppa till huvudinnehåll

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örsverktygSpara 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.

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations