Pliki cookie pomagają nam dostarczać nasze usługi. Korzystając z naszych usług, zgadzasz się na nasze pomocą plików cookie.
Wskazówka: inne języki są tłumaczone przez Google. Możesz odwiedzić English wersja tego linku.
Zaloguj Się
x
or
x
x
Zarejestruj
x

or

Jak usunąć określony typ załączników z wiadomości e-mail w Outlooku?

Czy kiedykolwiek próbowałeś usunąć załączniki z wielu wybranych e-maili według typu pliku w Outlooku? Takich jak usunięcie wszystkich plików załączników docx lub png z wybranych e-maili. Jak rozwiązać tę pracę w Outlooku?

Usuń określony typ załączników z wiadomości e-mail z kodem VBA


Usuń określony typ załączników z wiadomości e-mail z kodem VBA

Aby usunąć określony typ załączników z wybranych e-maili, poniższy kod VBA może zrobić ci przysługę, wykonaj następujące czynności:

1. Wybierz wiadomości e-mail, które chcesz usunąć ich typowe załączniki z listy mailingowej.

2. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. Następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod do otwartego pustego modułu, zobacz zrzut ekranu:

Kod VBA: usuń określony typ załączników z wiadomości e-mail:

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. A potem jeszcze w Microsoft Visual Basic for Applications okno, kliknij Przybory > Referencje , aby przejść do Referencje-Project1 okno dialogowe i sprawdź Microsoft Scripting Runtime opcja z Dostępne referencje pole listy, zobacz zrzut ekranu:

doc usuń załącznik według typu 1

5. Następnie kliknij OK aby zamknąć okno dialogowe, teraz naciśnij F5 Aby uruchomić ten kod i pojawi się okienko, wpisz typ załącznika, który chcesz usunąć, patrz zrzut ekranu:

doc usuń załącznik według typu 2

6, Kliknij OK, a wszystkie załączniki z określonym typem, które zostały zdefiniowane, zostały usunięte natychmiast, patrz zrzut ekranu:

doc usuń załącznik według typu 3



Kutools dla programu Outlook

Więcej niż zaawansowane funkcje 100 dla programów Outlook 2010, 2013, 2016, 2019 i 365

screen shot kutools dla programu outlook tiny dla banera 201812

Więcej funkcji | Darmowe pobieranie | Tylko $ 39.00 dla setek funkcji

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.