Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip išsaugoti tik konkretų "Excel" priedą "Outlook"?

"Outlook" suteikia funkciją "Išsaugoti visus priedus", kuria galite greitai išsaugoti visus priedus el. Laiške konkrečiam aplankui vienu metu. Tačiau jei norite išsaugoti tik tam tikrą el. Laiško priedą, pvz., "Excel" priedą, "Word" dokumentą ir tt, ką galite padaryti, kad jį pasiektumėte? Čia mes pateikiame VBA metodą problemai išspręsti.

Įrašykite tik konkretų priedą "Outlook"


Lengvai išsaugokite visus priedus iš kelių pasirinktų el. Laiškų į aplanką:

Su Nuimkite visus priedus naudingumas Kutools for Excel, galite lengvai išsaugoti visus priedus iš kelių pasirinktų laiškų į nurodytą aplanką "Outlook", kaip parodyta toliau pateiktame ekrano kopija.

Kutools for Outlook: su daugiau nei 40 patogiais "Outlook" papildinimais, galite nemokamai išbandyti be apribojimų per 45 dienas. Atsisiųskite ir nemokamai bandykite dabar!

Kutools for Outlook: 100 + nauji Išplėstiniai įrankiai "Outlook".
Office Tab: Įgalinti skirtukų redagavimą ir naršymą "Office", Just Like Chrome, Firefox, IE 8 / 9 / 10.
Klasikinis meniu: Grąžinkite senus meniu ir įrankių juostas į "Office 2007", "2010", "2013", "2016" ir "2019".

Įrašykite tik konkretų priedą "Outlook"

Žemiau pateiktas VBA kodas gali padėti išsaugoti tik konkretų priedą el. Laiške arba keliems el. Laiškams į konkretų aplanką. Prašau tai padaryti.

1. Paleisk savo "Outlook" adresatų sąrašą, pasirinkite el. Laišką arba keletą el. Laiškų, kuriuos išsaugosite iš konkretaus priedo.

2. Paspauskite Kitas + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas. Atidarymo lange spustelėkite įsiuvas > Moduliai, tada nukopijuokite žemiau VBA kodą į modulio langą.

VBA kodas: išsaugokite tik konkretų priedą el. Laiške arba kelis el. Laiškus aplanke

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. spragtelėjimas Įrankiai > NuorodosBe Nuorodos - projektas Dialogo lange patikrinkite Microsoft skriptų vykdymo laikas laukelyje ir spustelėkite OK mygtuką.

4. Paspauskite F5 raktas paleisti kodą. Iššoko Naršykite aplanką Dialogo lange pasirinkite vieną aplanką, kuriame norite išsaugoti priedus.

5. Ir tada spustelėkite OK, toliau Kutools for Outlook dialogo lange įveskite priedą, kurį išsaugosite į teksto laukelį, failo plėtinį ir spustelėkite OK.

Tada tik nurodyti nurodyti priedai yra išsaugomi.

pastabos:

1. Jei norite išsaugoti skirtingų tipų priedus, įveskite failo plėtinius į teksto laukelį ir atskirkite juos kableliais.

2. Po išsaugojimo pranešimo įstaigoje rodomas priedo išsaugojimo kelias. Galite atidaryti priedą spustelėdami nuorodą tiesiai.


Susiję straipsniai:



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

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.