Kex hjálpa okkur að veita þjónustuna. Með því að nota þjónustu okkar, samþykkir þú að notkun okkar á kökum.
Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að fjarlægja tiltekna gerð viðhengja úr tölvupósti í Outlook?

Hefur þú einhvern tíma reynt að fjarlægja viðhengi í mörgum völdum tölvupósti eftir skráartegund í Outlook? Til dæmis, fjarlægja allar docx eða png viðhengisskrár úr völdum tölvupósti. Hvernig gat þú leyst þetta starf í Outlook?

Fjarlægja tiltekna gerð viðhengja úr tölvupósti með VBA kóða


Fjarlægja tiltekna gerð viðhengja úr tölvupósti með VBA kóða

Til að fjarlægja tiltekna gerð viðhengja úr völdum tölvupósti getur eftirfarandi VBA kóða gert þér greiða, vinsamlegast gerðu eftirfarandi:

1. Veldu tölvupóstinn sem þú vilt fjarlægja tiltekna gerð viðhengis í póstlistanum.

2. Haltu niður ALT + F11 lyklar til að opna Microsoft Visual Basic fyrir forrit gluggi.

3. Smelltu síðan á Setja > Mát, afritaðu og límdu fyrir neðan kóða í opna eyðublaðsins, sjá skjámynd:

VBA kóða: Fjarlægðu ákveðna gerð viðhengja úr tölvupósti:

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. Og þá enn í Microsoft Visual Basic fyrir forrit glugga, smella Verkfæri > Tilvísanir að fara í Tilvísanir-Project1 valmynd og athugaðu Microsoft Scripting Runtime valkostur frá Fyrirliggjandi tilvísanir listanum, sjá skjámynd:

doc fjarlægja viðhengi eftir tegund 1

5. Smelltu svo á OK til að loka glugganum, ýttu nú á F5 takkann til að keyra þennan kóða og hvetja kassi er popped út, vinsamlegast sláðu inn viðhengisgerðina sem þú vilt fjarlægja, sjá skjámynd:

doc fjarlægja viðhengi eftir tegund 2

6. Smelltu OK, og öll viðhengi með sérstakri gerð sem þú ert skilgreind hefur verið eytt í einu, sjá skjámynd:

doc fjarlægja viðhengi eftir tegund 3



Kutools fyrir Outlook

Meira en 100 Advanced Aðgerðir fyrir Outlook 2010, 2013, 2016, 2019 og 365

skjár skot kutools fyrir horfur lítið fyrir borði 201812

Fleiri eiginleikar | Ókeypis niðurhal | Aðeins $ 39.00 fyrir hundruð virka

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.