როგორ ამოიღოთ კონკრეტული ტიპის attachments საწყისი ელ Outlook?

ოდესმე ცდილობდა ამოიღონ attachments მრავალჯერადი შერჩეული ელ მიერ ფაილის ტიპის Outlook? როგორიცაა, წაშლა ყველა docx ან png დანართი ფაილი შერჩეული ელ. როგორ შეიძლება ამ სამუშაოს Outlook- ში?

ამოიღეთ კონკრეტული ტიპის attachments საწყისი წერილებს VBA კოდი

ამოიღეთ კონკრეტული ტიპის attachments საწყისი წერილებს VBA კოდი

შერჩეული წერილების კონკრეტული ტიპის ამოღების მიზნით, შეგიძლიათ მიიღოთ მოგება შემდეგი VBA კოდით, გთხოვთ, გაითვალისწინოთ:

1. აირჩიეთ ელფოსტა, რომელიც გსურთ წაშალოთ მათი კონკრეტული ტიპის მიმაგრებული წერილების სია.

2. გეჭიროთ ALT + F11 გასაღებები გასახსნელად Microsoft Visual Basic აპლიკაციებისათვის window.

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 აპლიკაციებისათვის ფანჯარა, დააჭირეთ ინსტრუმენტები > ლიტერატურა წასვლა წყაროები-პროექტი 1 დიალოგური ფანჯარა და შემოწმება Microsoft Scripting Runtime ვარიანტი ხელმისაწვდომია წყაროები სიის ყუთი, იხილეთ სკრინშოტი:

5. შემდეგ დააჭირეთ OK დახურვა დიალოგი, ახლა, დააჭირეთ F5 გასაღები ამ კოდის გასაშვებად და სწრაფი ყუთი ამოიწურა, გთხოვთ შეიყვანოთ დანართი ტიპი, რომელიც გსურთ წაშალოთ, იხილეთ სკრინშოტი:

6. დაწკაპეთ OK, და ყველა attachments კონკრეტული ტიპის თქვენ განისაზღვრება უკვე წაიშლება, იხილეთ სკრინშოტი:

Kutools ამისთვის Outlook

მეტი 100 გაფართოებული ფუნქციები Outlook, 2010, 2013, 2016 და 2019

მეტი ფუნქციები | უფასო გადმოწერა | მხოლოდ $ 39.00 ასობით ფუნქციებისთვის