Hogyan lehet csak meghatározott (Excel) mellékletet menteni az Outlookban?

Az Outlook az Összes melléklet mentése funkcióval segíti az e-mailben lévő összes mellékletet egy adott mappába egyszerre. Ha azonban csak bizonyos típusú mellékleteket szeretne elmenteni egy vagy több e-mailben, például Excel-munkafüzetekben, Word-dokumentumokban és így tovább, hogyan érheti el? Ebben az oktatóanyagban két módszert kínálunk a probléma megoldására.

Csak meghatározott fájlformátumú mellékleteket menthet el az Outlook programban VBA-kóddal
Egyszerűen menthet csak meghatározott fájlformátumú mellékleteket az Outlookba egy csodálatos eszközzel

Csak meghatározott fájlformátumú mellékleteket menthet el az Outlook programban VBA-kóddal

A következő VBA-kód segíthet abban, hogy egy vagy több kiválasztott e-mailben csak meghatározott fájlformátumú mellékleteket mentsen egy adott mappába. Kérjük, tegye a következőket.

1. Indítsa el az Outlookot. A levelezési listában válasszon ki egy vagy több olyan e-mailt, amelyből csak a mellékleteket szeretné menteni adott fájlformátumban.

2. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak. A megnyíló ablakban kattintson a gombra betétlap > Modulok, majd másolja a VBA kód alatt a Modul ablakba.

VBA kód: Csak egy adott mellékletet menthet egy e-mailbe, vagy több e-mailt egy mappába

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "
" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. kettyenés Eszközök > Referenciák, A Referenciák - Projekt párbeszédpanelen ellenőrizze a Microsoft Scripting Runtime négyzetet, és kattintson a gombra OK gombot.

4. megnyomni a F5 gombot a kód futtatásához. A kiugrott Keresse meg a Mappa elemet párbeszédpanelen válasszon egy mappát a mellékletek mentéséhez.

5. Ezután kattintson OK, a következőkben Kutools az Outlook számára párbeszédpanelen írja be a menteni kívánt melléklet kiterjesztését a szövegmezőbe, majd kattintson a gombra OK.

Megjegyzés: Több fájlkiterjesztés esetén vesszővel kell elválasztani őket.

Ezután csak a megadott mellékleteket menti.

Egyszerűen menthet csak meghatározott fájlformátumú mellékleteket az Outlookba egy csodálatos eszközzel

Ha még nem ismeri a VBA-t, itt azt javasoljuk, hogy használja a Az összes melléklet mentése jellemzője Kutools az Outlook számára. Ezzel a funkcióval egyszerűen csak a mellékleteket mentheti el meghatározott fájlformátumban az Outlook programban.

1. Válassza ki azokat az e-maileket, amelyekből csak a mellékleteket szeretné menteni egy adott fájlformátumban.

2. kettyenés Kutools > Melléklet eszközök > Összes mentése.

3. Ban,-ben Save Settings párbeszédpanelen az alábbiak szerint kell konfigurálnia.

3.1) A Mentse a mellékleteket ebbe a mappába szakaszban kattintson a

gombbal válasszon ki egy mappát a mellékletek mentéséhez;

3.2) Kattintson a gombra Speciális beállítások gomb a párbeszédpanel kibontásához;

3.3) A Szűrési feltételek szakasz, ellenőrizze a Melléklet típusa jelölőnégyzetet, majd írja be a szövegbe a menteni kívánt mellékletek kiterjesztését.

Tipp: Több fájlkiterjesztés esetén pontosvesszővel kell elválasztani őket.

3.4) Kattintson a gombra OK gomb. Lásd a képernyőképet:

4. Megjelenik egy párbeszédpanel, amely emlékezteti Önt, ha el kívánja menteni a mellékleteket, kattintson a gombra OK hogy folytassa.

5. Ezután egy másik párbeszédpanel jelenik meg, amely megmutatja, hány mellékletet mentett el. Kattintson a gombra OK gombot.

Most csak az adott fájlformátumú mellékletek kerülnek mentésre.

Kattints itt hogy többet tudjon meg erről a funkcióról.

Ha ingyenes (30 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.