Jak usunąć określony typ załączników z wiadomości e-mail w Outlooku?
Czy kiedykolwiek próbowałeś usunąć załączniki w wielu wybranych e-mailach według typu pliku w Outlooku? Na przykład usunięcie wszystkich plików załączników docx lub png z wybranych wiadomości e-mail. Jak możesz 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 wiadomości e-mail, następujący kod VBA może wyświadczyć ci przysługę, wykonaj następujące czynności:
1. Wybierz e-maile, dla których chcesz usunąć określony typ załączników na liście mailingowej.
2. Przytrzymaj 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 nadal w Microsoft Visual Basic for Applications okno, kliknij Tools > Referencje , aby przejść do Referencje-projekt 1 okno dialogowe i zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft opcja z Dostępne referencje pole listy, zobacz zrzut ekranu:
5. Następnie kliknij OK aby zamknąć okno dialogowe, naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty, wprowadź typ załącznika, który chcesz usunąć, patrz zrzut ekranu:
6. Kliknij OK, a wszystkie załączniki z określonym typem, który zdefiniowałeś, zostały usunięte od razu, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.