Տեղեկանիշ մեզ կօգնի մատուցել մեր ծառայություններից: Ըստ օգտագործելով մեր ծառայություններից, Դուք համաձայնում եք մեր օգտագործման բլիթները:
Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Ինչպես հեռացնել Outlook- ում էլեկտրոնային նամակներից կցված հավելվածների հատուկ տեսակ:

Երբեւէ փորձել եք հեռացնել բազմաթիվ հավելվածներ, Outlook- ում ֆայլի տեսքով: Այսպիսով, հեռացնելով բոլոր docx կամ png կցորդ ֆայլերը ընտրված նամակներից: Ինչպես կարող եք այս աշխատանքը լուծել Outlook- ում:

Հեռացրեք VBA կոդով նամակների հետ կապված հավելվածների հատուկ տեսակ


Հեռացրեք VBA կոդով նամակների հետ կապված հավելվածների հատուկ տեսակ

Ընտրված էլփոստներից կցված հավելվածների որոշակի տեսակի հեռացնելու համար հետեւյալ VBA կոդը կարող է ձեզ բարեհաճություն անել, խնդրում ենք կատարել հետեւյալը.

1. Ընտրեք նամակները, որոնք ցանկանում եք հեռացնել նրանց հատուկ տիպի հավելվածները փոստային ցուցակում:

2. Անջատեք ALT + F11 բացել ստեղները Microsoft Visual Basic ծրագրերի համար պատուհան.

3. Այնուհետեւ կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք եւ կցեք ստորեւ բերված կոդը բացված դատարկ մոդուլում, տես նկարի պատկերը.

VBA կոդ: Հեռացրեք հավելվածների կոնկրետ տեսակի նամակներ.

Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Attachment Type:", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
       If xMailItem.Attachments.Count > 0 Then
            For I = xMailItem.Attachments.Count To 1 Step -1
                Set xAttachment = xMailItem.Attachments.Item(I)
                xFileType = xFSO.GetExtensionName(xAttachment.FileName)
                If InStr(xFileType, Trim(xType)) > 0 Then
                    xAttachment.Delete
                End If
            Next I
            xMailItem.Save
        End If
    End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub

4. Եվ այնուհետեւ դեռ Microsoft Visual Basic ծրագրերի համար պատուհանը, սեղմեք Գործիքներ > Սայլակ գնալու համար Հղումներ-Project1 երկխոսության վանդակում եւ ստուգեք Microsoft Scripting Runtime- ը տարբերակը Առկա հղումներ ցուցակը վանդակում, տես նկարի պատկերը.

doc- ը կցել կցված տեսակի 1- ով

5. Այնուհետեւ կտտացրեք OK փակել երկխոսությունը, հիմա, սեղմեք F5 այս կոդը գործարկելու համար ստեղնը եւ արագ տուփը դուրս է եկել, խնդրում ենք մուտքագրել հավելվածի տեսակը, որը ցանկանում եք հեռացնել, դիտել էկրանի պատկերը:

doc- ը կցել կցված տեսակի 2- ով

6: Սեղմեք OK, եւ որոշված ​​կոնկրետ տեսակի բոլոր հավելվածները միանգամից ջնջվել են, տես նկարի վրա.

doc- ը կցել կցված տեսակի 3- ով



Պահոցներ Outlook- ի համար

Ավելի քան 100- ի առաջադեմ գործառույթները, 2010, 2013, 2016, 2019 եւ 365- ի համար:

Էկրանի ստեղնաշարի համար նախատեսված փոքր տառատեսակ փոքրիկ 201812- ի համար

Լրացուցիչ հնարավորություններ | Անվճար ներբեռնում | Միայն $ 39.00 հարյուրավոր գործառույթների համար

Say something here...
symbols left.
You are guest ( Sign Up? )
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.