Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako shraniti samo določeno (excel) prilogo v Outlooku?

Outlook ponuja funkcijo Shrani vse priloge, s katero lahko hitro shranite vse priloge v e-poštnem sporočilu naenkrat v določeno mapo. Če pa želite v e-poštno sporočilo shraniti samo določeno vrsto priloge, na primer Excel prilogo, Wordov dokument in tako naprej, kaj lahko storite, da to dosežete? Tu ponujamo metodo VBA za reševanje težave.

V Outlooku shranite samo določeno prilogo


Preprosto shranite vse priloge iz več izbranih e-poštnih sporočil v mapo:

Z Odstranite vse priloge uporabnost Kutools za Excel, lahko enostavno shranite vse priloge iz več izbranih e-poštnih sporočil v določeno mapo v Outlooku, kot je prikazano spodaj.

Kutools za Outlook: z več kot 40 priročnimi dodatki za Outlook, brezplačno poskusite brez omejitev v 45 dneh. Prenesite in brezplačno preskusite zdaj!

Kartica Office - omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte delo ...
Kutools za Outlook - prinaša 100 zmogljivih naprednih funkcij v Microsoft Outlook
  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po pravilih; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaže sporočilo, ko poskušate odgovoriti na vse, če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v pogovoru po pošti; Odgovori na več e-poštnih sporočil hkrati; Samodejno dodaj pozdrav ko odgovor; Samodejno dodaj datum in čas v zadevo ...
  • Orodja za pritrditev: Samodejno loči, Stisni vse, Preimenuj vse, Samodejno shrani vse ... Hitro poročilo, Preštej izbrano pošto, Odstranitev podvojenih e-poštnih sporočil in stikov ...
  • Več kot 100 naprednih funkcij bo rešiti večino svojih težav v Outlooku 2010–2019 in 365. Popolne funkcije 60-dnevni brezplačni preskus.

V Outlooku shranite samo določeno prilogo

Spodnja koda VBA lahko pomaga shraniti samo določeno prilogo v e-poštnem sporočilu ali več e-poštnih sporočilih v določeno mapo. Naredite naslednje.

1. Zaženite Outlook, na poštnem seznamu izberite e-pošto ali več e-poštnih sporočil, iz katerih boste shranili določeno prilogo.

2. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno. V oknu za odpiranje kliknite Vstavi > Moduliin nato kopirajte spodnjo kodo VBA v okno modula.

Koda VBA: v mapo shranite samo določeno prilogo v e-poštnem sporočilu ali več e-poštnih sporočilih

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. klik Orodja > ReferenceV Reference - Projekt pogovorno okno, preverite Izvajanje Microsoftovih skriptov in kliknite OK gumb.

4. Pritisnite F5 tipko za zagon kode. V izskočil Poiščite mapo v pogovornem oknu izberite eno mapo, v katero želite shraniti priloge.

5. In nato kliknite OK, V nadaljevanju Kutools za Outlook v pogovorno okno vnesite končnico datoteke priloge, ki jo boste shranili, v besedilno polje in kliknite OK.

Nato se shranijo samo določene priloge.

Opombe:

1. Če želite shraniti različne vrste prilog, vnesite razširitve datotek v besedilno polje in jih ločite z vejico.

2. Po shranjevanju se na telesu sporočila prikaže pot za shranjevanje priloge. Prilogo lahko odprete tako, da neposredno kliknete hiperpovezavo.


Sorodni članki:


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Say something here...
symbols left.
You are guest
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.