Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā noņemt īpašus pielikumu veidus no e-pasta ziņojumiem programmā Outlook?

Vai esat kādreiz mēģinājuši noņemt pielikumus vairākos izvēlētajos e-pasta ziņojumos pēc faila tipa programmā Outlook? Piemēram, noņemot visus docx vai png pielikumu failus no izvēlētajiem e-pasta ziņojumiem. Kā jūs varētu atrisināt šo darbu programmā Outlook?

Noņemiet īpašu pielikumu veidu no e-pasta ziņojumiem ar VBA kodu


Noņemiet īpašu pielikumu veidu no e-pasta ziņojumiem ar VBA kodu

Lai noņemtu konkrētus pielikumu veidus no izvēlētajiem e-pasta ziņojumiem, šāds VBA kods var dot jums labu, lūdzu, rīkojieties šādi:

1. Atlasiet e-pasta ziņojumus, no kuriem vēlaties noņemt konkrēto pielikumu veidu adresātu sarakstā.

2. Turiet nospiestu ALT + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

3. Pēc tam noklikšķiniet uz ielaidums > Moduļi, kopējiet un ielīmējiet zemāk kodu atvērtajā tukšajā modulī, skatiet ekrānuzņēmumu:

VBA kods: no e-pasta ziņojumiem noņemiet konkrētu pielikumu tipu:

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. Un tad vēl Microsoft Visual Basic for Applications logs, noklikšķiniet uz darbarīki > Atsauces doties uz Atsauces - Project1 dialoglodziņš un pārbaudiet Microsoft skriptu izpildes laiks iespēja no Pieejamās atsauces saraksta lodziņš, skatiet ekrānuzņēmumu:

doc noņemt piesaistīt pēc veida 1

5. Pēc tam noklikšķiniet uz OK lai aizvērtu dialogu, tagad nospiediet F5 lai palaistu šo kodu, un tiek parādīts uznirstošais lodziņš, lūdzu, ievadiet pielikuma pielikumu, kuru vēlaties noņemt, skatiet ekrānuzņēmumu:

doc noņemt piesaistīt pēc veida 2

6. Noklikšķiniet OK, un visi pielikumi ar konkrēto definēto veidu ir izdzēsti uzreiz, skatiet ekrānuzņēmumu:

doc noņemt piesaistīt pēc veida 3



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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.