Cuidiú fianáin linn ár seirbhísí a sheachadadh. Trí úsáid a bhaint ár gcuid seirbhísí, aontaíonn tú úsáid a bhainimid as fianáin.
Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas achtaire sonrach (barr) a shábháil i Outlook?

Soláthraíonn Outlook gné Save All Attachments chun tú a shábháil go tapa ar gach ceangaltán i r-phost chuig fillteán ar leith ag an am céanna. Mar sin féin, más mian leat cineál sonrach ceangaltáin amháin a shábháil i ríomhphost, mar shampla ceangaltán Excel, doiciméad Word agus mar sin de, cad is féidir leat a dhéanamh chun é a bhaint amach? Anseo cuirtear modh VBA ar fáil chun an fhadhb a réiteach.

Sábháil ach ceangaltán sonrach in Outlook


Sábháil go héasca gach ceangaltán ó ríomhphoist roghnaithe il chuig fillteán:

Leis an Cuir na ceangaltáin uile le chéile fóntais Kutools le haghaidh Excel, is féidir leat gach ceangaltán a shábháil go héasca ó ríomhphoist roghnaithe il go fillteán sonraithe in Outlook mar a léirigh an scáileán thíos.

Kutools le haghaidh Outlook: le breiseán breiseán 40 Outlook áisiúil, saor in aisce chun iarracht gan aon teorannú a dhéanamh i laethanta 45. Íoslódáil agus triail saor in aisce Anois!

Kutools le haghaidh Outlook: 100 + Nua Uirlisí Casta do Outlook.
Tab Office: Cumasaigh Eagarthóireacht agus Browsing Tabbed in Oifig, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic: Tabhair Seanchláir agus Barraí Uirlisí Ar ais chuig Oifig 2007, 2010, 2013, 2016 agus 2019.

Sábháil ach ceangaltán sonrach in Outlook

Is féidir leis an gcód VBA thíos cúnamh sonrach amháin a shábháil i ríomhphost nó i ríomhphoist iomadúla chuig fillteán ar leith. Déan mar a leanas.

1. Seoladh do Outlook, sa liosta seoltaí, roghnaigh ríomhphost nó ríomhphoist iomadúla, sábhálfaidh tú ceangal as.

2. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d'Iarratais fuinneog. Sa fhuinneog oscailte, cliceáil Ionsáigh > Modúil, agus cóipeáil ansin cód VBA thíos i bhfuinneog an Mhodúl.

Cód VBA: Sábháil ach ceangaltán sonrach i r-phost nó i ríomhphoist il chuig fillteán

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. cliceáil uirlisí > tagairtí, I Tagairtí - Tionscadal dialóg, seiceáil an Microsoft Scripting Runtime bosca agus cliceáil ar an OK cnaipe.

4. Brúigh an F5 eochair chun an cód a reáchtáil. Sa phiobtha amach Brabhsáil le haghaidh Fillteán roghnaigh fillteán amháin chun na ceangaltáin a shábháil.

5. Agus ansin, cliceáil OK, sa méid seo a leanas Kutools le haghaidh Outlook dialóg, cuir isteach síneadh comhaid an cheangail a shábháil tú isteach sa bhosca téacs agus cliceáil OK.

Ansin, níl ach na ceangaltáin shonraithe sábháilte.

nótaí:

1. Más mian leat cineál difriúil ceangaltáin a shábháil, cuir isteach na síntí comhaid isteach sa bhosca téacs agus cuir isteach iad le coma.

2. Tar éis a shábháil, taispeántar cosán sábhála astaithe ar an gcomhlacht teachtaireachta. Is féidir leat an ceangaltán a oscailt trí chliceáil ar an hyperlink go díreach.


Earraí gaolmhara:



Kutools le haghaidh Outlook

Níos mó ná 100 Feidhmeanna Casta le haghaidh Outlook 2010, 2013, 2016, 2019 agus 365

Scáileán ar nósanna imeachta le haghaidh dearcadh bídeach don bhratach 201812

Gnéithe níos mó | Free Download | Níl ach $ 39.00 ar na céadta feidhmeanna

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.