Note: The other languages of the website are Google-translated. Back to English

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 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ă.

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 î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:


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.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL