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 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.