Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako shraniti samo določeno (odvečno) prilogo v programu Outlook?

Outlook ponuja funkcijo Shrani vse priloge za hitro shranjevanje vseh prilog v e-pošto v določeno mapo hkrati. Če pa želite v e-poštnem sporočilu shraniti samo določeno vrsto priloge, na primer prilogo Excel, dokument Word in podobno, kaj lahko storite, da bi to dosegli? Tukaj nudimo metodo VBA za rešitev problema.

Shrani samo določeno prilogo v programu Outlook


Preprosto shranite vse priloge iz več izbranih e-poštnih sporočil v mapo:

Z Odstranite vse priloge uporabnost Kutools za Excel, lahko vse priloge iz več izbranih e-poštnih sporočil preprosto shranite v določeno mapo v programu Outlook, kot je prikazano spodaj.

Kutools za Outlook: z več kot 40 priročnimi dodatki Outlook, lahko brezplačno poskusite brez omejitev v dnevih 45. Prenesite in brezplačno preizkusite zdaj!

Kutools za Outlook: 100 + Nova napredna orodja za Outlook.
Office Tab: Omogoči urejanje kartic in brskanje v Officeu, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Prinesite stare menije in orodne vrstice v Office 2007, 2010, 2013, 2016 in 2019.

Shrani samo določeno prilogo v programu Outlook

Spodnja koda VBA lahko pomaga prihraniti samo določeno prilogo v e-pošti ali več e-poštnih sporočilih v določeni mapi. Prosimo, naredite na naslednji način.

1. Zaženite Outlook na seznamu poštnih sporočil, izberite e-pošto ali več e-poštnih sporočil, s katerimi boste shranili določeno prilogo.

2. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno. V oknu za odpiranje kliknite Vstavi > Moduli, nato pa kopirajte pod kodo VBA v okno Modul.

VBA koda: v mapo shranite samo določeno prilogo v e-pošti ali več e-poštnih sporočil

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. klik Orodja > ReferenceV Reference - Projekt dialog, preverite Microsoft Scripting Runtime polje in kliknite na OK gumb.

4. Pritisnite F5 ključ za zagon kode. V izpuščenem Brskaj po mapi pogovorno okno, izberite eno mapo, da shranite priloge.

5. In nato kliknite OK, V nadaljevanju Kutools za Outlook v pogovornem oknu vnesite razširitev datoteke priloge, ki jo shranite v polje z besedilom in kliknite OK.

Nato se shranijo le določene priloge.

Opombe:

1. Če želite shraniti različne vrste priloge, vnesite razširitve datotek v polje z besedilom in jih ločite za vejico.

2. Po shranjevanju se na telesu sporočila prikaže pot do shranjevanja priloge. Prilogo lahko odprete tako, da neposredno kliknete povezavo hiperpovezave.


Sorodni članki:



Kutools za Outlook

Več kot 100 napredne funkcije za Outlook 2010, 2013, 2016, 2019 in 365

zaslon strel kutools za napovedi majhen za banner 201812

Več funkcij | Brezplačen prenos | Samo $ 39.00 za stotine funkcij

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.