Conas Ceangaltán Sonrach (Excel) a shábháil in Outlook?

Údar: Siluvia Athraithe Deiridh: 2022-06-17

Soláthraíonn Outlook an ghné Sábháil Gach Ceangaltán chun cabhrú leat gach ceangaltán a shábháil i ríomhphost chuig fillteán ar leith ag aon am amháin. Mar sin féin, más mian leat ach cineálacha áirithe ceangaltán a shábháil i ríomhphost amháin nó níos mó, mar shampla leabhair oibre Excel, doiciméid Word agus mar sin de, conas a bhaineann tú amach é? Sa rang teagaisc seo, cuirimid dhá mhodh ar fáil duit chun an fhadhb seo a réiteach.

Sábháil ach ceangaltáin shonracha formáid comhaid in Outlook le cód VBA
Go héasca a shábháil ach ceangaltáin formáid comhaid ar leith in Outlook le uirlis iontach

Sábháil ach ceangaltáin shonracha formáid comhaid in Outlook le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú le ceangaltáin formáid comhaid ar leith a shábháil i ríomhphost roghnaithe amháin nó níos mó chuig fillteán ar leith. Déan mar a leanas le do thoil.

1. Seoladh do Outlook. Sa liosta Ríomhphoist, roghnaigh ríomhphost amháin nó níos mó óna dteastaíonn uait ach ceangaltáin a shábháil i bhformáid comhaid ar leith.

2. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog. Sa fhuinneog oscailte, cliceáil Ionsáigh > Modúil, agus ansin cóipeáil faoi bhun an chóid VBA isteach i bhfuinneog an Mhodúil.

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

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
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 & "
" & "" & xFilePath & ""
                End If
            End If
        Next
        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 rith. Sa popped amach Brabhsáil le haghaidh Fillteán bosca dialóige, roghnaigh fillteán amháin chun na ceangaltáin a shábháil.

5. Agus ansin, cliceáil OK, seo a leanas Kutools le haghaidh Outlook bosca dialóige, iontráil síneadh comhaid an cheangaltáin a shábhálfaidh tú isteach sa bhosca téacs agus cliceáil OK.

Nóta: Le haghaidh síntí comhaid iolracha, ní mór duit iad a scaradh le camóga.

Ansin ní shábhálfar ach na ceangaltáin shonraithe.

Go héasca a shábháil ach ceangaltáin formáid comhaid ar leith in Outlook le uirlis iontach

Más rud é go bhfuil tú nua do VBA, anseo molaimid duit úsáid a bhaint as an Sábháil Gach ceangaltán gné de Kutools le haghaidh Outlook. Leis an ngné seo, ní féidir leat ach ceangaltáin a shábháil go héasca i bhformáid comhaid ar leith in Outlook.

1. Roghnaigh na ríomhphoist óna dteastaíonn uait ach ceangaltáin a shábháil i bhformáid comhaid ar leith.

2. cliceáil Kutools > Uirlisí Ceangail > Sábháil Gach.

3. Sa Socruithe Sábháil bosca dialóige, ní mór duit a chumrú mar seo a leanas.

3.1) Sa Sábháil ceangaltán (í) leis an bhfillteán seo alt, cliceáil ar an

cnaipe chun fillteán a roghnú chun na ceangaltáin a shábháil;

3.2) Cliceáil ar an Roghanna Casta cnaipe chun an bosca dialóige a oscailt;

3.3) Sa Coinníollacha scagaire roinn, seiceáil an Cineál astaithe ticbhosca, ansin cuir isteach síneadh comhad na gceangaltán a shábhálfaidh tú isteach sa téacs.

Leid: Le haghaidh síntí comhaid iolracha, ní mór duit iad a scaradh le leathstadanna.

3.4) Cliceáil ar an OK cnaipe. Féach an pictiúr:

4. Tagann bosca dialóige suas ag meabhrú duit más mian leat na ceangaltáin a shábháil, cliceáil OK chun leanúint ar aghaidh.

5. Ansin pops bosca dialóige eile a insint duit cé mhéad ceangaltán a shábháil, cliceáil ar an OK cnaipe.

Anois ní shábháiltear ach na ceangaltáin formáid comhaid ar leith.

cliceáil anseo chun níos mó eolais a fháil ar an ngné seo.

Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.