Cum să salvezi doar un atașament specific (Excel) în Outlook?

Outlook oferă funcția Salvare toate atașamentele pentru a vă ajuta să salvați simultan toate atașamentele dintr-un e-mail într-un anumit folder. Cu toate acestea, dacă doriți să salvați doar anumite tipuri de atașamente într-unul sau mai multe e-mailuri, cum ar fi registrele de lucru Excel, documentele Word și așa mai departe, cum reușiți? În acest tutorial, vă oferim două metode pentru a rezolva această problemă.

Salvați numai atașamente în format de fișier specific în Outlook cu cod VBA
Salvați cu ușurință numai atașamente în format de fișier specific în Outlook cu un instrument uimitor

Salvați numai atașamente în format de fișier specific în Outlook cu cod VBA

Următorul cod VBA vă poate ajuta să salvați numai atașamente în format de fișier specific într-unul sau mai multe e-mailuri selectate într-un anumit folder. Vă rugăm să faceți după cum urmează.

1. Lansați Outlook. În lista de e-mailuri, selectați unul sau mai multe e-mailuri din care doriți să salvați numai atașamentele într-un anumit format de fișier.

2. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră. În fereastra de deschidere, faceți clic pe Insera > Module, apoi copiați mai jos codul VBA în fereastra Module.

Cod VBA: Salvați numai un atașament specific într-un e-mail sau mai multe e-mailuri într-un folder

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 Sub

3. clic Instrumente > Referinte, În Referințe - Proiect dialog, verificați Runtime Microsoft Scripting și faceți clic pe OK butonul.

4. apasă pe F5 tasta pentru a rula codul. În pop-out Căutați dosarul caseta de dialog, alegeți un dosar pentru a salva atașamentele.

5. Apoi, faceți clic pe OK, în cele ce urmează Kutools pentru Outlook caseta de dialog, introduceți extensia de fișier a atașamentului pe care îl veți salva în caseta de text și faceți clic pe OK.

Notă: pentru mai multe extensii de fișiere, trebuie să le separați prin virgule.

Apoi sunt salvate numai atașamentele specificate.

Salvați cu ușurință numai atașamente în format de fișier specific în Outlook cu un instrument uimitor

Dacă sunteți nou în VBA, aici vă recomandăm să utilizați Salvați toate atașamentele caracteristică a Kutools pentru Outlook. Cu această caracteristică, puteți salva cu ușurință numai atașamentele într-un anumit format de fișier în Outlook.

1. Selectați e-mailurile din care doriți să salvați numai atașamentele într-un anumit format de fișier.

2. clic Kutools > Instrumente de atașare > Salvează tot.

3. În Salvează Setările casetă de dialog, trebuie să configurați după cum urmează.

3.1) În Salvați atașamentele în acest folder secțiune, faceți clic pe

butonul pentru a selecta un folder pentru a salva atașamentele;

3.2) Faceți clic pe Opţiuni avansate butonul pentru a deschide caseta de dialog;

3.3) În Condiții de filtrare secțiune, verificați Tipul atașamentului caseta de selectare, apoi introduceți extensia de fișier a atașamentelor pe care le veți salva în text.

Sfat: Pentru mai multe extensii de fișiere, trebuie să le separați cu punct și virgulă.

3.4) Faceți clic pe OK buton. Vedeți captura de ecran:

4. Va apărea o casetă de dialog care vă reamintește dacă doriți să salvați atașamentele, faceți clic OK pentru a continua.

5. Apoi apare o altă casetă de dialog pentru a vă spune câte atașamente au fost salvate, faceți clic pe OK butonul.

Acum sunt salvate doar atașamentele specifice formatului de fișier.

Clic aici pentru a afla mai multe despre această caracteristică.

Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.