Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

Conas ach ceangaltán sonrach (barr feabhais) a shábháil in Outlook?

Soláthraíonn Outlook gné Sábháil Gach Ceangaltán duit chun gach ceangaltán i r-phost a shábháil go tapa chuig fillteán ar leith ag an am céanna. Mar sin féin, mura dteastaíonn uait ach cineál sonrach ceangaltáin a shábháil i r-phost, mar cheangaltán Excel, doiciméad Word agus mar sin de, cad is féidir leat a dhéanamh chun é a bhaint amach? Soláthraímid modh VBA anseo chun an fhadhb a réiteach.

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


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

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

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

Cluaisín Oifige - Cumasaigh Eagarthóireacht agus Brabhsáil Tabbed san Oifig, agus Déan an Obair i bhfad Níos Éasca ...
Kutools for Outlook - Tugann sé 100 Gné Ardchumhachta Cumhachtacha chuig Microsoft Outlook
  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir rialacha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach rud a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost ag an am céanna; Beannacht Auto Cuir leis nuair a thabharfar freagra; Dáta agus Am Auto Cuir isteach san ábhar ...
  • Uirlisí Ceangail: Auto Detach, Compress All, Rename All, Auto Save All ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe, Bain Ríomhphoist agus Teagmhálacha Dúblacha ...
  • Déanfaidh níos mó ná 100 gné chun cinn an chuid is mó de do chuid fadhbanna a réiteach in Outlook 2010-2019 agus 365. Gnéithe iomlána triail saor in aisce 60 lá.

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

Is féidir leis an gcód VBA thíos cuidiú le ceangaltán sonrach amháin a shábháil i r-phost nó i ríomhphoist iolracha chuig fillteán ar leith. Déan mar a leanas le do thoil.

1. Seoladh do Outlook, ar an liosta seoltaí, roghnaigh r-phost nó iliomad ríomhphoist a sábhálfaidh tú ceangaltán sonrach uathu.

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 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 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.

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

nótaí:

1. Más mian leat ceangaltáin de chineálacha éagsúla a shábháil, cuir na síntí comhaid isteach sa bhosca téacs agus déan iad a dheighilt le camóg.

2. Tar éis sábháil, taispeántar cosán sábhála ceangaltán ar chorp na teachtaireachta. Is féidir leat an ceangaltán a oscailt ach an hipearnasc a chliceáil go díreach.


Earraí gaolmhara:


Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan an Obair i bhfad Níos Éasca!

  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
  • Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
  • Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Say something here...
symbols left.
You are guest
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.