Cookies დაგვეხმარება სიტყვით ჩვენი მომსახურება. გამოყენებით ჩვენი მომსახურება, თქვენ ეთანხმებით, რომ ჩვენი გამოყენების cookies.
რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ ამოიღოთ კონკრეტული ტიპის 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 ვარიანტი ხელმისაწვდომია წყაროები სიის ყუთი, იხილეთ სკრინშოტი:

doc ამოიღეთ მიმაგრება მიერ ტიპი 1

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

doc ამოიღეთ მიმაგრება მიერ ტიპი 2

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

doc ამოიღეთ მიმაგრება მიერ ტიპი 3



Kutools ამისთვის Outlook

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

ეკრანის კადრი kutools ამისთვის Outlook პატარა ამისთვის banner 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.