Pääsisältö

Tutustu uuteen, ilmainen versio Kutools for Outlookista tänään!

Kuinka tallentaa liitetiedostoja avaamatta sähköpostia Outlookissa?

Kirjailija: Siluvia Viimeksi muokattu: 2024-09-23

Saatat joutua usein tallentamaan vastaanotettujen sähköpostiviestien liitteet tietokoneen levyille. Liitteen tai kaikkien liitteiden tallentaminen sähköpostiviestistä on helppoa, mutta kuinka tallentaa liitteet useista sähköpostiviesteistä kerralla? Normaalisti sinun on avattava sähköpostit toistuvasti ja tallennettava liitteet. Onko mitään temppuja päästä eroon toistuvista leikkauksista? Tässä opetusohjelman menetelmät voivat auttaa sinua.

Tallenna liitteet yhdestä tai useammasta sähköpostista avaamatta VBA-koodilla
Tallenna liitteet yhdestä tai useammasta sähköpostista avaamatta hämmästyttävällä työkalulla

Tallenna liitteet yhdestä tai useammasta sähköpostista avaamatta VBA-koodilla

Alla oleva VBA-koodi voi auttaa tallentamaan liitetiedostoja yhdestä tai useammasta sähköpostista samanaikaisesti avaamatta sähköpostiviestejä Outlookissa. Toimi seuraavasti.

1. Valitse sähköposti tai useita sähköpostiviestejä, joihin tallennat liitteet, paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Laajenna Microsoft Outlook -objektit kansio, kaksoisnapsauta ThisOutlookSession avaa Koodi -ikkunaan ja kopioi alla oleva VBA-koodi siihen.

tallenna liitteet VBA 1:llä

VBA-koodi: Tallenna liitteet avaamatta sähköposteja

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. paina F5 avain koodin suorittamiseen. Sitten eräs BrowseForFolder -ikkuna avautuu, valitse kansio, johon liitteet tallennetaan, ja napsauta sitten OK painiketta.

Sitten kaikki valittujen sähköpostien liitteet tallennetaan valittuun kansioon välittömästi.

Huomautus: Kaikki liitteet irrotetaan sähköposteista ja vastaavat tallennuspolun linkit säilytetään sähköpostin rungossa.

tallenna liitteet VBA 2:llä

Tallenna liitteet yhdestä tai useammasta sähköpostista avaamatta hämmästyttävällä työkalulla

Jos olet aloittelija VBA:ssa, tämän osan menetelmä on hyvä valinta.

Suosittele tässä Tallenna kaikki liitteet apuohjelmia Kutools Outlookille sinulle. Jos haluat vain tallentaa liitteet irroittamatta valituista sähköposteista, Tallenna kaikki liitteet -ominaisuuden avulla voit tehdä sen helposti. Toimi seuraavasti.
Ennen kuin käytät Kutools for Outlookia, ole hyvä Lataa ja asenna se ensiksi.

Avaa äärimmäinen sähköpostitehokkuus Kutools for Outlookin avulla! Pääsy 70 tehokkaat ominaisuudet täysin ilmaisia, ikuisesti. Lataa ilmainen versio nyt!

1. Valitse tallennettavat liitteet sisältävät sähköpostit, napsauta Kutools Plus > Kiinnitystyökalut > Tallenna kaikki.

2. Vuonna Tallenna asetukset valintaikkunassa, sinun tulee:

  • 2.1) kohdassa Tallenna liitteet tähän kansioon -osiossa valitse kansio, johon liitteet tallennetaan;
  • 2.2) Tallenna liitteet alla olevaan tyyliin laatikko on valinnainen, jotta voit luoda alikansion tietyllä tyylillä liitteiden tallentamista varten tai nimetä tallennetut liitteet uudelleen certian-tyyliin.
  • 2.3) Napsauta OK aloittaaksesi kaikkien liitteiden tallentamisen valituista sähköpostiviesteistä.

Vinkkejä: Yllä olevilla asetuksilla kaikki liitteet tallennetaan määritettyyn kansioon. Jos haluat tallentaa vain joitain tiettyjä liitteitä, kuten vain PDF-tiedostot, joiden tiedoston nimessä on varma sana "lasku", voit määrittää suodatusehdot seuraavasti.  

  • Valitse Lisäasetukset -painiketta laajentaaksesi Suodattimen kuntos;
  • Määritä ehdot tarpeidesi mukaan.
    Vinkki: Tässä tarkistan Liitteen nimi sisältää -ruudun ja kirjoita sitten tekstiruutuun "lasku" ja tarkista sitten Liitetyyppi kirjoita ".pdf" tekstiruutuun.
tallenna liitteet kutoolsilla 2

3. Napsauta seuraavassa ponnahdusikkunassa Kyllä jatkaa.

Sitten valittujen sähköpostien liitteet tallennetaan määritettyyn kansioon kerralla.

Vinkkejä: Jos haluat irrottaa liitteitä valituista sähköpostiviesteistä ja jättää vain liitteen hyperlinkit sähköpostin runkoon, Irrota kaikki liitteet ominaisuus voi auttaa.

Liittyvät artikkelit

Lataa / tallenna liitteet automaattisesti Outlookista tiettyyn kansioon
Yleisesti ottaen voit tallentaa kaikki yhden sähköpostin liitteet valitsemalla Outlookissa Liitteet > Tallenna kaikki liitteet. Mutta jos sinun on tallennettava kaikki liitteet kaikista vastaanotetuista sähköposteista ja vastaanottavista sähköposteista, onko ihanteellinen? Tässä artikkelissa esitellään kaksi ratkaisua liitteiden lataamiseen automaattisesti Outlookista tiettyyn kansioon.

Säilytä liitteet, kun vastaat Outlookissa
Kun välitämme sähköpostiviestin Microsoft Outlookissa, tämän sähköpostiviestin alkuperäiset liitteet säilyvät edelleenlähetetyssä viestissä. Kuitenkin, kun vastaamme sähköpostiviestiin, alkuperäisiä liitteitä ei liitetä uuteen vastausviestiin. Tässä esittelemme pari temppua alkuperäisten liitteiden säilyttämisestä, kun vastaat Microsoft Outlookissa.

Hae sanoja liitteestä (sisällöstä) Outlookissa
Kun kirjoitamme avainsanan Outlookin Pikahaku-kenttään, se etsii avainsanaa sähköpostien aiheista, rungoista, liitteistä jne. Mutta nyt minun on vain haettava avainsanaa liitesisällöstä vain Outlookissa, onko ideaa? Tämä artikkeli näyttää yksityiskohtaiset vaiheet, joiden avulla voit etsiä sanoja helposti Outlookin liitesisällöstä.