Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas teatud tüüpi manuseid Outlooki e-kirjadest eemaldada?

Kas olete kunagi üritanud eemaldada manuseid mitme valitud e-kirju Outlooki failitüübi järgi? Näiteks eemaldades kõik docx-failid või png manused failid valitud e-kirjadest. Kuidas saaksite seda tööd Outlookis lahendada?

Eemalda teatud tüüpi manuseid VBA-koodiga e-kirjadega


Eemalda teatud tüüpi manuseid VBA-koodiga e-kirjadega

Et valitud meilisõnumite teatud tüüpi manuseid eemaldada, võib teile anda järgmine VBA kood: palun tehke seda järgmiselt:

1. Valige meilid, mille soovite eemaldada oma konkreetset tüüpi manuseid meililistis.

2. Hoidke all ALT + F11 võtmed avada Microsoft Visual Basic rakenduste jaoks aken.

3. Siis klõpsake Sisesta > moodulid, kopeerige ja kleepige allpool koodi avatud tühjale moodulile, vaadake pilti:

VBA-kood: eemaldage kindlad manused meilidest:

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. Ja siis veel Microsoft Visual Basic rakenduste jaoks Klõpsake aknas töövahendid > viited minna Viited-Project1 dialoogiboksis ja kontrollige Microsoft skriptimine Runtime valik alates Saadaolevad viited loendikasti, vt pildi kuva:

doc eemalda kinnitus tüübi 1 abil

5. Siis klõpsake OK dialoogi sulgemiseks vajutage nüüd nuppu F5 käsk selle koodi käivitamiseks ja kiirklahv välja nägema, palun sisestage manustüübi, mille soovite eemaldada, vt ekraanikuva:

doc eemalda kinnitus tüübi 2 abil

6. Klõpsa OK, ja kõik teie määratud kindlale tüübile lisatud manused on korraga kustutatud, vaadake pilti:

doc eemalda kinnitus tüübi 3 abil



Outlooki Kutools

Rohkem kui 100 täiustatud funktsioonid Outlooki 2010, 2013, 2016, 2019 ja 365 jaoks

ekraanipilt kutools jaoks banneri 201812 jaoks väikeseks

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks

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.