Ugrás a tartalomra

Hogyan lehet menteni a mellékleteket az e-mail megnyitása nélkül az Outlook programban?

Szerző: Siluvia Utolsó módosítás: 2021-03-03

Előfordulhat, hogy gyakran el kell mentenie a kapott e-mailek mellékletét a számítógépes lemezeire. Könnyű menteni egy mellékletet vagy az összes mellékletet egy e-mail üzenetből, de hogyan lehet egyszerre több e-mail mellékletét menteni? Normál esetben ismételten meg kell nyitnia az e-maileket, és el kell mentenie a mellékleteket. Van-e trükk a többszöri műveletek megszabadulására? Itt az oktatóanyagban szereplő módszerek segíthetnek.

Mentse el a mellékleteket egy vagy több e-mailből VBA kóddal történő megnyitás nélkül
Csodálatos eszközzel mentse el a mellékleteket egy vagy több e-mailből


Mentse el a mellékleteket egy vagy több e-mailből VBA kóddal történő megnyitás nélkül

Az alábbi VBA-kód segíthet egy vagy több e-mail mellékletének egyidejű mentésében anélkül, hogy megnyitná az e-maileket az Outlook programban. Kérjük, tegye a következőket.

1. Válasszon ki egy e-mailt vagy több e-mailt, amelyekhez elmenti a mellékleteket, majd nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Bontsa ki a Microsoft Outlook objektumok mappába, kattintson duplán a ThisOutlookSession megnyitni Kód ablakot, majd másolja az alábbi VBA kódot az it.

VBA kód: Mellékletek mentése az e-mailek megnyitása nélkül

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. megnyomni a F5 gombot a kód futtatásához. Aztán a BrowseForFolder megjelenik az ablak, kérjük, válasszon egy mappát a mellékletek mentéséhez, majd kattintson a gombra OK gombot.

Ezután a kiválasztott e-mailekben található összes melléklet azonnal mentésre kerül a kiválasztott mappába.

Jegyzet: Minden melléklet leválik az e-mailekről, és megőrzi a megfelelő mentési útvonal linkeket az e-mail törzsében.


Csodálatos eszközzel mentse el a mellékleteket egy vagy több e-mailből

Ha újonc a VBA-ban, akkor az ebben a szakaszban szereplő módszer lesz a jó választás.

Itt ajánlja a Az összes melléklet mentése segédprogramjai Kutools az Outlook számára neked. Ha csak el akarja menteni a mellékleteket anélkül, hogy elválna a kiválasztott e-mailektől, akkor az Összes melléklet mentése funkció segítségével könnyedén elvégezheti azt. Kérjük, tegye a következőket.
A Kutools for Outlook alkalmazása előtt kérjük töltse le és telepítse először.

1. Válassza ki a menteni kívánt mellékleteket tartalmazó e-maileket, kattintson a gombra Kutools > Melléklet eszközökÖsszes mentése.

2. Ban,-ben Save Settings párbeszédpanelen:

  • 2.1) A Mentse a mellékleteket ebbe a mappába szakaszban válasszon egy mappát a mellékletek mentéséhez;
  • 2.2) A Mentse a mellékleteket az alábbi stílusban A doboz nem kötelező, hogy létrehozzon egy certian stílusú almappát a mellékletek mentéséhez, vagy átnevezze a mentett mellékleteket certian stílusban.
  • 2.3) Kattintson OK hogy megkezdje az összes melléklet mentését a kiválasztott e-mailekből.

tippek: A fenti konfigurációkkal az összes melléklet a megadott mappába kerül. Ha csak néhány certikus mellékletet szeretne menteni, például csak a PDF-fájlokat menti a "számla" certikus szóval a fájl nevében, akkor a következőképpen konfigurálhatja a szűrési feltételeket.  

  • Kattintson az Speciális beállítások gombra a Szűrő állapotas;
  • Adja meg a feltételeket az Ön igényei alapján.
    Tipp: Itt ellenőrizem a Melléklet neve tartalmazza mezőt, majd írja be a "számlát" a szövegmezőbe, majd ellenőrizze a Melléklet típusa mezőbe írja be a ".pdf" szót a szövegmezőbe.

3. A következő felbukkanó párbeszédpanelen kattintson a gombra Igen hogy folytassa.

Ezután a kiválasztott e-mailek mellékletei egyszerre kerülnek a megadott mappába.

tippek: A mellékletek leválasztásához a kiválasztott e-mailekből, és csak a mellékletek hiperhivatkozásait hagyva az e-mail törzsében, Válassza le az összes mellékletet funkció segíthet.

  Ha ingyenes (60 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kapcsolódó cikkek

A mellékletek automatikus letöltése / mentése az Outlookból egy adott mappába
Általánosságban elmondható, hogy az e-mail összes mellékletét elmentheti a Mellékletek> Az összes melléklet mentése az Outlook gombra kattintással. De, ha el kell mentenie az összes mellékletet az összes beérkezett e-mailből és e-mailből, ideális? Ez a cikk két megoldást mutat be a mellékletek automatikus letöltésére az Outlook programból egy adott mappába.

Mellékletek megőrzése, amikor az Outlook programban válaszol
Amikor egy e-mailt továbbítunk a Microsoft Outlook alkalmazásban, az e-mailben található eredeti mellékletek az átirányított üzenetben maradnak. Amikor azonban válaszolunk egy e-mailre, az eredeti mellékleteket nem csatoljuk az új válaszüzenetbe. Itt bemutatunk néhány trükköt az eredeti mellékletek megőrzéséről, amikor válaszolunk a Microsoft Outlook programban.

Szavak keresése az Outlook mellékletében (tartalom) belül
Amikor beírunk egy kulcsszót az Outlook azonnali keresés mezőjébe, az az e-mailek tantárgyaiban, törzsében, mellékletében stb. Keresi a kulcsszót. De most már csak az Outlook programban kell keresnem a kulcsszót a melléklet tartalmában, van ötlet? Ez a cikk bemutatja azokat a részletes lépéseket, amelyek segítségével könnyedén kereshet szavakat az Outlook mellékletben.

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