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 Sub3. clic unelte > 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ă.
butonul pentru a selecta un folder pentru a salva atașamentele;
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 încercare gratuită (30-zi) a acestei utilitati, 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.
Legate de articole:
- Cum se salvează toate atașamentele din mesajele de e-mail din Outlook?
- Cum se elimină toate atașamentele din e-mail în Outlook?
Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!
- Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
- Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
- Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
- Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
- E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
