Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om net spesifieke (Excel) aanhangsel in Outlook te stoor?

Outlook bied 'n stoor alle aanhangsels funksie vir u om vinnig alle aanhangsels in 'n e-pos na 'n spesifieke gids te stoor. As jy egter net spesifieke tipe bylae in 'n e-pos wil stoor, soos Excel-aanhangsel, Word-dokument, ensovoorts, wat kan jy doen om dit te bereik? Hier bied ons 'n VBA-metode om die probleem op te los.

Stoor slegs spesifieke aanhangsel in Outlook


Slaan maklik alle aanhangsels van verskeie geselekteerde e-posse na die gids:

Met die Ontkoppel alle aanhangsels nut van Kutools for Excel, kan jy maklik alle aanhangsels van verskeie geselekteerde e-posse na die gespesifiseerde vouer in Outlook stoor, soos hieronder aangedui.

Kutools for Outlook: met meer as 40 handige Outlook-invoegtoepassings, kan jy sonder beperking in 45 dae probeer. Laai en gratis toets nou!

Kutools for Outlook: 100 + Nuwe Gevorderde Tools vir Outlook.
Office Tab: Aktiveer Tabbedigering en blaai in Office, Net soos Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Bring Ou Spyskaarte en Toolbars terug na Office 2007, 2010, 2013, 2016 en 2019.

Stoor slegs spesifieke aanhangsel in Outlook

Die onderstaande VBA-kode kan help om slegs spesifieke aanhangsels te stoor in 'n e-pos of verskeie e-posse na 'n spesifieke gids. Doen asseblief as volg.

1. Begin jou Outlook, in die poslys, kies 'n e-pos of veelvuldige e-posse wat jy spesifieke aanhangsel sal stoor.

2. Druk die alt + F11 sleutels om die Microsoft Visual Basic vir toepassings venster. Klik in die openingsvenster Plaas > module, en dan onder VBA-kode in die Module-venster kopieer.

VBA-kode: Slaan slegs spesifieke bylae in 'n e-pos of meervoudige e-pos aan 'n gids

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 Gereedskap > Verwysings, In die Verwysings - Projek dialoog, gaan na die Microsoft Scripting Runtime boks en klik op die OK knoppie.

4. Druk die F5 sleutel om die kode uit te voer. In die popped uit Blaai vir gids dialoogkassie, kies een gids om die aanhangsels te stoor.

5. En dan, klik OK, in die volgende Kutools for Outlook dialoogkassie, voer die lêeruitbreiding in van die aanhangsel wat jy sal stoor in die tekskassie en klik OK.

Dan word net die gespesifiseerde aanhangsels gestoor.

Notes:

1. As jy verskillende aanhangsels wil stoor, voer asseblief die lêeruitbreidings in die tekskassie in en skei dit met komma.

2. Na die stoor, word 'n beslaglegging spaar pad vertoon op die boodskap liggaam. U kan die aanhangsel oopmaak deur direk op die hyperlink te kliek.


Verwante artikels:



Kutools for Outlook

Meer as 100 Gevorderde funksies vir Outlook 2010, 2013, 2016, 2019 en 365

skermskut kutools vir uitsig klein vir banner 201812

Meer funksies | Gratis aflaai | Slegs $ 39.00 vir honderde funksies

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.