Bonbon ede nou delivre sèvis nou yo. Lè l sèvi avèk sèvis nou yo, ou dakò pou nou sèvi ak bonbon.
Ide: Lòt lang yo se Google-tradui. Ou ka vizite a English vèsyon nan lyen sa a.
Ouvri yon sesyon
x
or
x
x
enskri
x

or

Ki jan pou konsève pou sèlman espesifik (briye) atachman nan pespektiv?

Outlook bay yon sove tout Attachments karakteristik pou ou pou w byen vit sove tout atachman nan yon imèl nan yon katab espesifik nan yon fwa. Sepandan, si ou vle sove sèlman espesifik kalite atachman nan yon imèl, tankou Excel atachman, dokiman Pawòl ak sou sa, ki sa ou ka fè pou reyalize li? Isit la nou bay yon metòd VBA pou rezoud pwoblèm nan.

Sere sèlman atachman espesifik nan Outlook


Fasil sove tout atachman soti nan miltip Imèl chwazi nan katab:

Avèk la Detache tout atachman sèvis piblik nan Kutools pou Excel, ou ka fasilman sove tout atachman soti nan miltip Imèl chwazi nan espesifye folder nan pespektiv kòm anba a Ekran te montre.

Kutools pou pespektiv: ak plis pase 40 sou la meni pespektiv ajoute-ins, gratis eseye pa gen okenn limit nan jou 45. Download ak gratis jijman Koulye a!

Kutools pou pespektiv: 100 + Zouti avanse avanse pou pespektiv.
Biwo Tab: Pèmèt Tabbed Korije ak Navigasyon nan Biwo, Jis tankou Chrome, Firefox, IE 8 / 9 / 10.
Klasik Menu: Pote vye meni ak zouti Retounen nan Biwo 2007, 2010, 2013, 2016 ak 2019.

Sere sèlman atachman espesifik nan Outlook

Kòd ki anba la a VBA ka ede sere sèlman atachman espesifik nan yon Imèl oswa Imèl miltip nan yon katab espesifik. Tanpri fè jan sa a.

1. Lanse pespektiv ou a, nan lis la poste, chwazi yon imèl oswa Imèl miltip ou pral sove espesifik atachman soti nan.

2. Peze la Alt + F11 kle yo louvri a Microsoft Visual Basic pou aplikasyon pou fenèt. Nan fenèt la ouvèti, klike sou Antre > Modil, ak Lè sa a kopi anba a VBA kòd nan fenèt la modil.

VBA postal: Sove sèlman atachman espesifik nan yon Imèl oswa Imèl miltip nan yon katab

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. Klike sou Zouti > Referans, An la Referans - Pwojè dyalòg, tcheke a Microsoft Scripting ègzekutabl bwat epi klike sou la OK bouton.

4. Peze la F5 kle nan kouri kòd la. Nan déchirure a soti Browse pou Dosye bwat dyalòg, chwazi yon katab pou konsève pou atachman yo.

5. Lè sa a, klike sou OK, nan sa ki annapre yo Kutools pou pespektiv bwat dyalòg, antre nan ekstansyon dosye a nan atachman a ou pral sove nan ti bwat la tèks epi klike OK.

Lè sa a, sèlman atachman yo espesifye yo sove.

nòt:

1. Si ou vle sove diferan kalite atachman, tanpri antre ekstansyon yo dosye nan bwat la tèks epi separe yo pa vigil.

2. Apre ekonomize, yon chemen ekonomize atachman parèt sou kò mesaj la. Ou ka louvri atachman a pa klike ipèrlink a dirèkteman.


Related articles:



Kutools pou pespektiv

Plis pase 100 Fonksyon avanse pou pespektiv 2010, 2013, 2016, 2019 ak 365

ekran piki kutools pou pespektiv ti pou banyè 201812

Plis Features | Telechaje gratis | Se sèlman $ 39.00 pou dè santèn de fonksyon

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.