Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

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

Ydych chi erioed wedi ceisio dileu atodiadau mewn nifer o negeseuon e-bost dewisol yn ôl y math o ffeil yn Outlook? O'r fath, gan dynnu pob ffeil atafaelu docx neu png o negeseuon e-bost dethol. Sut allech chi ddatrys y swydd hon yn Outlook?

Dileu math penodol o atodiadau o negeseuon e-bost gyda chod VBA


Dileu math penodol o atodiadau o negeseuon e-bost gyda chod VBA

I ddileu math penodol o atodiadau o negeseuon e-bost dethol, gall y cod VBA canlynol eich gwneud yn ffafr, gwnewch fel hyn:

1. Dewiswch y negeseuon e-bost yr ydych am eu dileu eu math penodol o atodiadau yn y rhestr bostio.

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

3. Yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd, gweler y sgrin:

Cod VBA: Dileu math penodol o atodiadau o negeseuon e-bost:

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 yn dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau i fynd i'r Cyfeiriadau-Project1 blwch deialog, a siec Microsoft Scripting Runtime opsiwn gan y Cyfeiriadau ar gael rhestrwch y blwch, gweler y sgrin:

Dileu doc ​​gan atodiad 1

5. Yna cliciwch OK i gau'r dialog, nawr, y wasg F5 allwedd i redeg y cod hwn, ac mae blwch prydlon wedi'i datgelu, rhowch y math atodiad yr hoffech ei ddileu, gweler y sgrin:

Dileu doc ​​gan atodiad 2

6. Cliciwch OK, ac mae'r holl atodiadau gyda'r math penodol rydych wedi'u diffinio wedi'u dileu ar unwaith, gweler y sgrin:

Dileu doc ​​gan atodiad 3



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

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.