Kolačići nam pomoći isporučiti naše usluge. Korištenjem naših usluga, pristajete na naše korištenje kolačića.
Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijaviti se
x
or
x
x
Registrirajte se
x

or

Kako spremiti samo određeni (Excel) privitak u programu Outlook?

Outlook nudi značajku Spremi sve priloge za brzo spremanje svih privitaka u e-poruci u određenu mapu odjednom. Međutim, ako želite spremiti samo određenu vrstu privitka u e-poruci, kao što je privitak u programu Excel, dokument programa Word i tako dalje, što možete učiniti kako biste je postigli? Ovdje ćemo osigurati VBA metodu za rješavanje problema.

Spremite samo određeni privitak u programu Outlook


Jednostavno spremajte sve privitke iz više odabranih e-poruka u mapu:

Uz Odvojite sve privitke korisnost Kutools za Excel, lako možete spremiti sve privitke iz više odabranih e-pošte na određenu mapu u programu Outlook, kao što je prikazano na slici.

Kutools za Outlook: s više od 40 zgodnih dodataka za Outlook, slobodno možete isprobati bez ograničenja u 45 danima. Preuzmite i besplatno testiranje odmah!

Kutools za Outlook: 100 + Novi napredni alati za Outlook.
Kartica sustava Office: Omogućavanje uređivanja i pregledavanja karata u uredu, Baš kao i Chrome, Firefox, IE 8 / 9 / 10.
Klasični izbornik: Vraćanje starih izbornika i alatnih traka na Office 2007, 2010, 2013, 2016 i 2019.

Spremite samo određeni privitak u programu Outlook

Dolje VBA kôd može vam pomoći u spremanju samo određenog privitka u e-poruci ili više e-poruka u određenu mapu. Učinite sljedeće.

1. Pokrenite svoj Outlook, na popisu za slanje e-pošte, odaberite e-poštu ili više e-poruka kojima ćete spasiti određenu privitku.

2. pritisni drugo + F11 tipke za otvaranje Microsoft Visual Basic for Applications prozor. U prozoru otvaranja kliknite umetak > Moduli, a zatim kopirajte ispod VBA koda u prozor Modula.

VBA kod: Spremite samo određeni privitak u e-poruci ili više e-poruka u mapu

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 alat > Reference, U Reference - Projekt dijalog, provjerite Runtime za Microsoft Scripting i kliknite OK tipku.

4. pritisni F5 ključ za pokretanje koda. U popped out Potražite mapu dijaloški okvir, odaberite jednu mapu za spremanje privitaka.

5. A zatim, kliknite OK, u sljedećem Kutools za Outlook dijaloški okvir, unesite datotečni nastavak privitka koji ćete spremiti u tekstni okvir i kliknite OK.

Zatim se spremaju samo navedeni privici.

Bilješke:

1. Ako želite spremiti različite vrste privitaka, unesite proširenja datoteka u tekstni okvir i odvojite ih zarezom.

2. Nakon spremanja, na tijelu poruke prikazuje se put spremanja privitaka. Privitak možete otvoriti izravnim klikom na hipervezu.


Povezani članci:



Kutools za Outlook

Više od 100 naprednih funkcija za Outlook 2010, 2013, 2016, 2019 i 365

zaslon pucao kutools za Outlook mali za banner 201812

Dodatne mogućnosti | Besplatno preuzimanje | Samo $ 39.00 za stotine funkcija

Say something here...
symbols left.
You are guest ( Sign Up? )
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.