Küpsised aitavad meil pakkuda meie teenuseid. Kasutades meie teenuseid, nõustud meie küpsiste kasutamise kohta.
Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas Outlookis salvestada ainult konkreetset (excel) manust?

Outlook pakub funktsiooni Save All Attachments (Säilitada kogu lisandmeid), mis võimaldab teil kiiresti kõik meilisõnumite manused salvestada kindlasse kausta korraga. Siiski, kui soovite salvestada ainult teatud tüüpi manuseid e-kirjades, nagu Exceli manus, Wordi dokument ja nii edasi, mida saate selle saavutamiseks teha? Siin pakume VBA-meetodit probleemi lahendamiseks.

Salvestage Outlookis ainult konkreetsed manused


Hoidke kõik manused mitmelt valitud meililt kausta järgmiselt:

Koos Eemalda kõik manused kasulikkus Kutools Exceli jaoks, saate hõlpsalt salvestada kõik manused mitmelt valitud meililt Outlooki määratud kausta, nagu allpool on kujutatud ekraanipildi.

Outlooki Kutools: rohkem kui 40 käepärased Outlooki lisandmoodulid, mida saate tasuta proovida 45 päeva jooksul ilma piiranguteta. Laadige alla ja proovige kohe proovige nüüd!

Outlooki Kutools: 100 + uued täpsemad tööriistad Outlooki jaoks.
Office'i vahekaart: Lubage Office'i vahelehtede redigeerimine ja sirvimine, Just nagu Chrome, Firefox, IE 8 / 9 / 10.
Klassikaline menüü: Viige vanad menüüd ja tööriistaribad tagasi Office 2007, 2010, 2013, 2016 ja 2019.

Salvestage Outlookis ainult konkreetsed manused

Allpool olev VBA-kood võib aidata salvestada ainult kindlat manust e-posti või mitu e-kirja teatud kausta. Palun tehke järgmist.

1. Outlooki käivitamine meililistis valige e-posti aadress või mitu e-posti aadressi, kust salvestatakse kindel manus.

2. Vajutage nuppu muu + F11 võtmed avada Microsoft Visual Basic rakenduste jaoks aken. Avaaknas klõpsake Sisesta > moodulid, ja kopeerige seejärel VBA kood alla mooduli aknasse.

VBA-kood: salvestage ainult teatud kaustast e-posti või mitu e-kirja eraldi manus

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. klõps töövahendid > viited, Mis Viited - projekt dialoogi, kontrollige Microsoft skriptimine Runtime kast ja klõpsake nuppu OK nuppu.

4. Vajutage nuppu F5 koodi käivitamiseks klahv. Avanevas aknas Sirvige kaustu dialoogiboksis valige manuste salvestamiseks üks kaust.

5. Ja siis klõpsake OK, järgmisel viisil Outlooki Kutools dialoogiboksis sisestage tekstiväljale salvestatud manuse faililaiend ja klõpsake OK.

Siis salvestatakse ainult määratud manused.

märkused:

1. Kui soovite salvestada mitmesuguseid manuseid, sisestage tekstiväljale faililaiendid ja eraldage need komaga.

2. Pärast salvestamist kuvatakse sõnumi kehas manuse salvestamise tee. Manust saab avada otse hüperlingi klikkimisega.


Teemaga seotud artiklid:



Outlooki Kutools

Rohkem kui 100 täiustatud funktsioonid Outlooki 2010, 2013, 2016, 2019 ja 365 jaoks

ekraanipilt kutools jaoks banneri 201812 jaoks väikeseks

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks

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.