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 Sub3. 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.
gombbal válasszon ki egy mappát a mellékletek mentéséhez;
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 szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogrambó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:
- Hogyan mentse az e-mail üzenetek összes mellékletét az Outlook programban?
- Hogyan lehet eltávolítani az összes mellékletet az e-mailből az Outlook programban?
Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!
- Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
- BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
- Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
- Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
- Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
