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

---

---

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:

• Kuidas salvestada kõik manused Outlooki e-kirjadest?
• Kuidas kustutada kõik manused Outlooki e-kirjadest?

---

---

Outlooki Kutools

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

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks