Ինչպե՞ս պահպանել միայն հատուկ (Excel) հավելվածը Outlook-ում:

Հեղինակ՝ Սիլյուվիա Վերջին փոփոխությունը՝ 2022-06-17

Outlook-ը տրամադրում է «Պահպանել բոլոր առդիրները» գործառույթը, որը կօգնի ձեզ միաժամանակ պահպանել բոլոր կցորդները էլփոստի մեջ կոնկրետ թղթապանակում: Այնուամենայնիվ, եթե ցանկանում եք պահպանել միայն որոշ տեսակի կցորդներ մեկ կամ մի քանի նամակներում, ինչպիսիք են Excel աշխատանքային գրքերը, Word փաստաթղթերը և այլն, ինչպե՞ս եք դրան հասնում: Այս ձեռնարկում մենք ձեզ տրամադրում ենք այս խնդիրը լուծելու երկու եղանակ:

Պահպանեք միայն հատուկ ֆայլի ձևաչափի հավելվածները Outlook-ում VBA կոդով
Հեշտությամբ պահպանեք միայն հատուկ ֆայլի ձևաչափի հավելվածները Outlook-ում զարմանալի գործիքի միջոցով

Պահպանեք միայն հատուկ ֆայլի ձևաչափի հավելվածները Outlook-ում VBA կոդով

Հետևյալ VBA կոդը կարող է օգնել պահպանել միայն որոշակի ֆայլի ձևաչափի կցորդները մեկ կամ մի քանի ընտրված էլ. նամակներում որոշակի թղթապանակում: Խնդրում ենք անել հետևյալը.

1. Գործարկեք ձեր Outlook-ը: Փոստի ցանկում ընտրեք մեկ կամ մի քանի էլ.

2. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան Բացման պատուհանում կտտացրեք Տեղադրել > Մոդուլներ, ապա VBA կոդից ներքև պատճենեք Մոդուլի պատուհանում:

VBA կոդ. Թղթապանակում պահպանեք միայն հատուկ կցորդը էլփոստով կամ բազմաթիվ նամակներով

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: սեղմեք Գործիքներ > ՍայլակԷ, ապա Հղումներ - Նախագիծ երկխոսություն, ստուգեք Microsoft Scripting Runtime տուփը և կտտացրեք OK կոճակը:

4. Սեղմեք F5 ծածկագիրը գործելու համար: Դուրս ցցված Թերթիր Թղթապանակում երկխոսության տուփ, ընտրեք մեկ թղթապանակ `կցորդները պահպանելու համար:

5. Եվ հետո, կտտացրեք OK, հետեւյալ Outlook- ի համար նախատեսված գործիքներ երկխոսության տուփ, մուտքագրեք կցորդի ֆայլի ընդլայնումը, որը դուք կփրկեք տեքստի տուփի մեջ և կտտացրեք OK.

Նշում. Բազմաթիվ ֆայլերի ընդարձակման համար անհրաժեշտ է դրանք առանձնացնել ստորակետներով:

Դրանից հետո պահպանվում են միայն նշված կցորդները:

Հեշտությամբ պահպանեք միայն հատուկ ֆայլի ձևաչափի հավելվածները Outlook-ում զարմանալի գործիքի միջոցով

Եթե դուք նոր եք VBA-ում, այստեղ խորհուրդ ենք տալիս օգտագործել Պահել բոլոր կցորդները առանձնահատկությունը Outlook- ի համար նախատեսված գործիքներ. Այս ֆունկցիայի միջոցով դուք հեշտությամբ կարող եք Outlook-ում պահպանել միայն հավելվածները հատուկ ֆայլի ձևաչափով:

1. Ընտրեք նամակները, որոնցից ցանկանում եք պահպանել միայն կցորդները հատուկ ֆայլի ձևաչափով:

2: սեղմեք Կուտոլս > Կցման գործիքներ > Պահել բոլորը.

3. Մեջ Պահել Կառավարում երկխոսության տուփ, դուք պետք է կազմաձևեք հետևյալը.

3.1) Ի Պահեք կցորդը (ներ) ը այս պանակում բաժին, սեղմեք

կոճակ՝ կցորդները պահելու համար թղթապանակ ընտրելու համար;

3.2) Կտտացրեք այն Ընդլայնված ընտրանքներ կոճակ՝ երկխոսության տուփը բացելու համար;

3.3) Ի Filտման պայմանները բաժին, ստուգեք Կցման տեսակը վանդակը, ապա մուտքագրեք տեքստի մեջ պահվող հավելվածների ֆայլի ընդլայնումը:

Հուշում. Բազմաթիվ ֆայլերի ընդարձակման համար դուք պետք է դրանք առանձնացնեք ստորակետերով:

3.4) Կտտացրեք այն OK կոճակ Տեսեք,

4. Երկխոսության տուփ է հայտնվում՝ հիշեցնելով, որ ցանկանում եք պահպանել հավելվածները, սեղմեք OK շարունակել.

5. Այնուհետև հայտնվում է մեկ այլ երկխոսության տուփ, որը կտեղեկացնի ձեզ, թե քանի հավելված է պահվել, սեղմեք կոճակը OK կոճակը:

Այժմ պահվում են միայն ֆայլի հատուկ ձևաչափի հավելվածները:

Սեղմել այստեղ ավելին իմանալ այս հատկության մասին:

Եթե ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան: