Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan menthetünk csak bizonyos (excel) mellékleteket az Outlook programban?

Az Outlook egy Save All Attachments (Mentsd meg az összes mellékletet) funkcióval rendelkezik, hogy gyorsan mentse az e-mailben lévő összes mellékletet egy adott mappába egyszerre. Ha azonban csak bizonyos típusú mellékleteket kíván menteni egy e-mailben, például Excel-mellékletben, Word-dokumentumban és így tovább, akkor mit tehet az eléréshez? Itt nyújtunk VBA módszert a probléma megoldására.

Csak az adott mellékletet mentse az Outlook programba


Könnyedén mentheti az összes csatolt fájlt több kiválasztott e-mailből a mappába:

A ... val Az összes melléklet leválasztása hasznossága Kutools for Excel, egyszerűen mentheti az összes mellékletet több kiválasztott e-mailt az adott mappába az Outlook, mint a képen látható.

Kutools for Outlook: több mint 40 praktikus Outlook bővítményekkel, ingyenesen próbálkozhat az 45 napokban korlátozás nélkül. Töltse le és ingyen próbálja most!

Kutools for Outlook: 100 + új fejlett eszközök az Outlook programhoz.
Office Tab: A Tabbed szerkesztése és böngészése engedélyezése az Office-ban, Csakúgy, mint a Chrome, a Firefox, az IE 8 / 9 / 10.
Klasszikus menü: Húzza vissza az öreg menüket és az eszköztárakat az Office 2007, az 2010, az 2013, az 2016 és az 2019.

Csak az adott mellékletet mentse az Outlook programba

Az alábbi VBA-kód segíthet az adott e-mailben vagy e-mailben lévő külön mellékletekhez való mentéshez. Kérjük, tegye a következőket.

1. Indítsa el az Outlook programot a levelezőlistában, válasszon ki egy e-mailt vagy több e-mailt, amelyből külön mellékletet menthet.

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 alá a Modul ablakot.

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

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
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 & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

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

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

5. És akkor kattintson OK, a következőkben Kutools for Outlook párbeszédpanelen írja be a csatolmány fájlkiterjesztését, amelyet a szövegmezőbe ment, majd kattintson a gombra OK.

Ezután csak a megadott mellékletek kerülnek mentésre.

Megjegyzések:

1. Ha különböző típusú mellékleteket szeretne menteni, adja meg a fájlkiterjesztéseket a szövegdobozba, és elválassza őket vesszővel.

2. A mentés után egy melléklet-mentési útvonal jelenik meg az üzenet törzsén. A mellékletet közvetlenül a linkre kattintva nyithatja meg.


Kapcsolódó cikkek:



Kutools for Outlook

Több, mint 100 speciális funkció az Outlook 2010, 2013, 2016, 2019 és 365 alkalmazásokhoz

képernyőn lövés kutools az Outlook 201812 számára

További funkciók | ingyenes letöltés | Csak $ 39.00 több száz funkcióért

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.