Note: The other languages of the website are Google-translated. Back to English

Sut i Arbed Ymlyniad Penodol (Excel) Yn Outlook yn unig?

Mae Outlook yn darparu'r nodwedd Cadw Pob Ymlyniad i'ch helpu i arbed pob atodiad mewn e-bost i ffolder penodol ar yr un pryd. Fodd bynnag, os ydych chi am arbed rhai mathau o atodiadau yn unig mewn un e-bost neu fwy, fel llyfrau gwaith Excel, dogfennau Word ac yn y blaen, sut ydych chi'n ei gyflawni? Yn y tiwtorial hwn, rydym yn darparu dau ddull i chi ddatrys y broblem hon.

Arbedwch atodiadau fformat ffeil penodol yn Outlook gyda chod VBA yn unig
Yn hawdd arbed dim ond atodiadau fformat ffeil penodol yn Outlook gydag offeryn anhygoel


Arbedwch atodiadau fformat ffeil penodol yn Outlook gyda chod VBA yn unig

Gall y cod VBA canlynol helpu i arbed atodiadau fformat ffeil penodol yn unig mewn un neu fwy o negeseuon e-bost dethol i ffolder penodol. Gwnewch fel a ganlyn.

1. Lansio eich Outlook. Yn y rhestr Post, dewiswch un neu fwy o negeseuon e-bost yr ydych am arbed atodiadau mewn fformat ffeil penodol yn unig ohonynt.

2. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Yn y ffenestr agoriadol, cliciwch Mewnosod > Modiwlau, ac yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Cadwch atodiad penodol yn unig mewn e-bost neu e-byst lluosog i ffolder

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. Cliciwch offer > cyfeiriadau, Yn y Cyfeiriadau - Prosiect deialog, gwiriwch y Amser Rhedeg Sgriptio Microsoft blwch a chliciwch ar y OK botwm.

4. Gwasgwch y F5 allwedd i redeg y cod. Yn y popped allan Porwch am Ffolder blwch deialog, dewiswch un ffolder i achub yr atodiadau.

5. Ac yna, cliciwch OK, yn y canlynol Kutools ar gyfer Rhagolwg blwch deialog, nodwch estyniad ffeil yr atodiad y byddwch yn ei arbed yn y blwch testun a chlicio OK.

Nodyn: Ar gyfer estyniadau ffeil lluosog, mae angen i chi eu gwahanu â choma.

Yna dim ond yr atodiadau penodedig sy'n cael eu cadw.


Yn hawdd arbed dim ond atodiadau fformat ffeil penodol yn Outlook gydag offeryn anhygoel

Os ydych yn newydd i VBA, yma rydym yn argymell i chi ddefnyddio'r Cadw Pob atodiad nodwedd o Kutools ar gyfer Rhagolwg. Gyda'r nodwedd hon, gallwch yn hawdd arbed atodiadau yn unig mewn fformat ffeil penodol yn Outlook.

1. Dewiswch y negeseuon e-bost oddi wrth yr ydych am arbed atodiadau yn unig mewn fformat ffeil penodol.

2. Cliciwch Kutools > Offer Ymlyniad > Arbed i Bawb.

3. Yn y Cadw Gosodiadau blwch deialog, mae angen i chi ffurfweddu fel a ganlyn.

3.1) Yn y Cadwch atodiad (au) i'r ffolder hon adran, cliciwch ar botwm i ddewis ffolder i gadw'r atodiadau;
3.2) Cliciwch y Dewisiadau mwy cymhleth botwm i agor y blwch deialog;
3.3) Yn y Hidlo amodau adran, edrychwch ar y Math o atodiad blwch ticio, yna nodwch estyniad ffeil yr atodiadau y byddwch yn eu cadw yn y testun.
Awgrym: Ar gyfer estyniadau ffeil lluosog, mae angen i chi eu gwahanu â hanner colon.
3.4) Cliciwch y OK botwm. Gweler y screenshot:

4. Mae blwch deialog yn ymddangos yn eich atgoffa os ydych chi am arbed yr atodiadau, cliciwch OK i barhau.

5. Yna mae blwch deialog arall yn ymddangos i ddweud wrthych faint o atodiadau sydd wedi'u cadw, cliciwch ar y OK botwm.

Nawr dim ond yr atodiadau fformat ffeil penodol sy'n cael eu cadw.

Cliciwch yma i wybod mwy am y nodwedd hon.

  Os ydych chi am gael treial am ddim (30-day) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Erthyglau cysylltiedig:


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL