Cookies nám pomáhajú poskytovať naše služby. Využitím našich služieb, súhlasíte s našimi používanie cookies.
Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako uložiť iba špecifickú (excel) prílohu v programe Outlook?

Aplikácia Outlook poskytuje funkciu Uložiť všetky prílohy, aby ste mohli rýchlo uložiť všetky prílohy v e-maile do jednej zložky naraz. Ak však chcete v e-maile uložiť iba konkrétny typ prílohy, napríklad prílohu programu Excel, dokument programu Word a tak ďalej, čo môžete urobiť, aby ste to dosiahli? Tu poskytujeme metódu VBA na vyriešenie problému.

Uložiť iba špecifickú prílohu v programe Outlook


Ľahko ukladajte všetky prílohy z viacerých vybratých e-mailov do priečinka:

S Odpojte všetky prílohy užitočnosť Kutools pre Excel, môžete ľahko uložiť všetky prílohy z viacerých vybratých e-mailov do určeného priečinka v programe Outlook, ako je uvedené nižšie.

Kutools pre program Outlook: S viac než 40 šikovný Outlook add-in, možnosť vyskúšať bez obmedzenia v 45 dni. Stiahnite si bezplatnú skúšobnú verziu teraz!

Kutools pre program Outlook: 100 + Nové pokročilé nástroje pre program Outlook.
Karta Office: Povoliť úpravu a prehliadanie v karte v Office, Rovnako ako Chrome, Firefox, IE 8 / 9 / 10.
Klasická ponuka: Prineste staré ponuky a panely s nástrojmi do aplikácie Office 2007, 2010, 2013, 2016 a 2019.

Uložiť iba špecifickú prílohu v programe Outlook

Nižšie uvedený kód VBA môže pomôcť uložiť iba konkrétnu prílohu v e-maile alebo viacerých e-mailov do konkrétnej zložky. Postupujte nasledovne.

1. Spustite program Outlook, v zozname kontaktov vyberte e-mail alebo viaceré e-maily, z ktorých uložíte konkrétnu prílohu.

2. Stlačte tlačidlo ostatné + F11 klávesy na otvorenie Microsoft Visual Basic pre aplikácie okno. V okne otvárania kliknite na položku Vložiť > Modulya potom skopírujte pod kód VBA do okna modulu.

Kód VBA: Uložte iba konkrétnu prílohu do e-mailu alebo viac e-mailov do priečinka

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. cvaknutie náradie > Referencie, V roku Referencie - projekt dialóg, skontrolujte Microsoft Scripting Runtime a kliknite na OK tlačidlo.

4. Stlačte tlačidlo F5 kľúč na spustenie kódu. Vo vyskočil Prehľadávať priečinok dialógové okno, vyberte jednu zložku na uloženie príloh.

5. A potom kliknite na tlačidlo OK, v nasledujúcom Kutools pre program Outlook dialógové okno, zadajte príponu prílohy, ktorú uložíte do textového poľa a kliknite na tlačidlo OK.

Potom sa uložia iba špecifikované prílohy.

Poznámky:

1. Ak chcete uložiť iný typ príloh, zadajte prípony do textového poľa a oddeľte ich čiarkou.

2. Po uložení sa na tele správy zobrazí správa o ukladaní príloh. Prílohu môžete otvoriť kliknutím priamo na hypertextový odkaz.


Súvisiace články:



Kutools pre program Outlook

Viac ako rozšírené funkcie 100 pre aplikácie Outlook 2010, 2013, 2016, 2019 a 365

obrazovka shot kutools pre výhľad malý pre banner 201812

Ďalšie funkcie | Bezplatné stiahnutie | Iba $ 39.00 pre stovky funkcií

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.