Cookies nám pomáhajú poskytovať naše služby. Využitím našich služieb, súhlasíte s našimi používanie cookies.
Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako odstrániť konkrétny typ príloh z e-mailov v programe Outlook?

Skúsili ste niekedy odstrániť prílohy vo viacerých vybratých e-mailoch podľa typu súboru v programe Outlook? Ako napríklad odstránenie všetkých súborov príloh docx alebo png z vybratých e-mailov. Ako ste mohli vyriešiť túto prácu v programe Outlook?

Odstráňte špecifický typ príloh z e-mailov s kódom VBA


Odstráňte špecifický typ príloh z e-mailov s kódom VBA

Ak chcete odstrániť konkrétny typ príloh z vybratých e-mailov, môže vám nasledujúci kód VBA urobiť láskavosť, postupujte takto:

1, Vyberte e-maily, ktoré chcete odstrániť v zozname adresátov.

2, Podržte stlačené tlačidlo ALT + F11 klávesy na otvorenie Microsoft Visual Basic pre aplikácie okno.

3, Potom kliknite na tlačidlo Vložiť > Moduly, skopírujte a prilepte pod kódom do otvoreného prázdneho modulu, pozrite si snímku obrazovky:

Kód VBA: Odstráňte špecifický typ príloh z e-mailov:

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, A potom ešte v Microsoft Visual Basic pre aplikácie okno, kliknite na tlačidlo náradie > Referencie prejsť na Referencie-Project1 dialógové okno a skontrolujte Microsoft Scripting Runtime možnosť od Dostupné odkazy zoznam, pozrite si snímku obrazovky:

doc odstrániť pripojiť podľa typu 1

5, Potom kliknite na tlačidlo OK zatvorte dialóg, teraz stlačte tlačidlo F5 kľúč na spustenie tohto kódu a zobrazí sa výzva, zadajte typ prílohy, ktorý chcete odstrániť, pozri snímku obrazovky:

doc odstrániť pripojiť podľa typu 2

6, kliknite OK, a všetky prílohy s konkrétnym typom, ktoré ste definovali, boli odstránené naraz, pozri snímku obrazovky:

doc odstrániť pripojiť podľa typu 3



Kutools pre program Outlook

Viac ako rozšírené funkcie 100 pre aplikácie Outlook 2010, 2013, 2016, 2019 a 365

obrazovka shot kutools pre výhľad malý pre banner 201812

Ďalšie funkcie | Bezplatné stiahnutie | Iba $ 39.00 pre stovky funkcií

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.