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.
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 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.
Erthyglau cysylltiedig:
- Sut i arbed pob atodiad o negeseuon e-bost yn Outlook?
- Sut i gael gwared ar yr holl atodiadau o e-bost yn Outlook?
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.