Koekies help om ons dienste te lewer. Deur die gebruik van ons dienste, stem jy in tot ons gebruik van koekies.
Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om spesifieke aanhangsels uit e-posse in Outlook te verwyder?

Het jy al ooit probeer om aanhangsels te verwyder in verskeie geselekteerde e-posse volgens tipe lêer in Outlook? Soos om alle dokumente of png-aanhangsel lêers uit geselekteerde e-posse te verwyder. Hoe kan jy hierdie werk in Outlook oplos?

Verwyder spesifieke tipe aanhangsels van e-posse met VBA-kode


Verwyder spesifieke tipe aanhangsels van e-posse met VBA-kode

As u spesifieke tipe aanhangsels uit geselekteerde e-posse wil verwyder, kan die volgende VBA-kode u 'n guns doen, doen asseblief as volg:

1. Kies die e-posse wat u spesifieke tipe aanhangsels in die poslys wil verwyder.

2. Hou die ALT + F11 sleutels om die Microsoft Visual Basic vir toepassings venster.

3. Klik dan Plaas > module, kopieer en plak hieronder kode in die oop oop leë module, sien skermkiekie:

VBA-kode: Verwyder spesifieke tipe aanhangsels van e-posse:

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. En dan nog in die Microsoft Visual Basic vir toepassings venster, kliek Gereedskap > Verwysings om te gaan na die Verwysings-Project1 dialoogkassie, en tjek Microsoft Scripting Runtime Opsie uit die Beskikbare verwysings lys boks, sien skermkiekie:

Dokument verwyder heg aan tipe 1

5. Klik dan OK Om die dialoog te sluit, druk nou F5 sleutel om hierdie kode uit te voer, en 'n vinnige blokkie is uitgeskakel, vul asseblief die aanhangsel tipe in wat jy wil verwyder, sien skermkiekie:

Dokument verwyder heg aan tipe 2

6. Kliek OK, en alle aanhangsels met die spesifieke tipe wat jy gedefinieer is, is gelyktydig verwyder, sien skermkiekie:

Dokument verwyder heg aan tipe 3



Kutools for Outlook

Meer as 100 Gevorderde funksies vir Outlook 2010, 2013, 2016, 2019 en 365

skermskut kutools vir uitsig klein vir banner 201812

Meer funksies | Gratis aflaai | Slegs $ 39.00 vir honderde funksies

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.