Sut i dynnu math penodol o atodiadau o e-byst yn Outlook?

A ydych erioed wedi ceisio tynnu atodiadau mewn sawl e-bost a ddewiswyd yn ôl math o ffeil yn Outlook? Megis, tynnu pob ffeil atodi docx neu png o negeseuon e-bost dethol. Sut allech chi ddatrys y swydd hon yn Outlook?

Tynnwch fath penodol o atodiadau o e-byst gyda chod VBA

Tynnwch fath penodol o atodiadau o e-byst gyda chod VBA

I dynnu math penodol o atodiadau o e-byst dethol, gall y cod VBA canlynol ffafrio chi, gwnewch fel hyn:

1. Dewiswch yr e-byst yr ydych am gael gwared ar eu math penodol o atodiadau yn y rhestr bostio.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored, gweler y screenshot:

Cod VBA: Tynnwch fath penodol o atodiadau o e-byst:

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. Ac yna dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > Cyfeiriadau i fynd i'r Cyfeiriadau-Prosiect1 blwch deialog, a gwirio Amser Rhedeg Sgriptio Microsoft opsiwn gan y Cyfeiriadau sydd ar Gael blwch rhestr, gweler y screenshot:

doc tynnu atodiad yn ôl math 1

5. Yna cliciwch OK i gau'r ymgom, nawr, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon wedi'i popio allan, nodwch y math o atodiad rydych chi am ei dynnu, gweler y screenshot:

doc tynnu atodiad yn ôl math 2