Cookies helfen uns, unsere Dienstleistungen zu liefern. Durch die Nutzung unserer Dienste stimmen Sie der Verwendung von Cookies.
Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie entfernt man bestimmte Anhänge von E-Mails in Outlook?

Haben Sie jemals versucht, Anhänge in mehreren ausgewählten E-Mails nach Dateityp in Outlook zu entfernen? Wie zum Beispiel das Entfernen aller docx- oder png-Anhangsdateien von ausgewählten E-Mails. Wie können Sie diesen Job in Outlook lösen?

Entfernen Sie bestimmte Anhänge von E-Mails mit VBA-Code


Entfernen Sie bestimmte Anhänge von E-Mails mit VBA-Code

Um bestimmte Anhänge von ausgewählten E-Mails zu entfernen, kann der folgende VBA-Code Ihnen einen Gefallen tun:

1. Wählen Sie in der Mailing-Liste die E-Mails aus, deren spezifische Anhänge Sie entfernen möchten.

2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. Dann klick Einsatz > Modul, kopiere und füge unterhalb Code in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Entfernen Sie bestimmte Anhänge von E-Mails:

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. Und dann noch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Referenzen auf dem Sprung Referenzen-Project1 Dialogfeld und überprüfen Microsoft Scripting-Laufzeit Option von der Verfügbare Referenzen Listenfeld, siehe Screenshot:

doc Entfernen anhängen nach Typ 1

5. Dann klick OK Um den Dialog zu schließen, drücken Sie jetzt F5 Taste, um diesen Code auszuführen, und eine Eingabeaufforderung wird ausgegeben, geben Sie den Anhangstyp ein, den Sie entfernen möchten, siehe Screenshot:

doc Entfernen anhängen nach Typ 2

6. Klicken Sie OKund alle Anhänge mit dem spezifischen Typ, den Sie definiert haben, wurden sofort gelöscht, siehe Screenshot:

doc Entfernen anhängen nach Typ 3



Kutools for Outlook

Mehr als 100 Erweiterte Funktionen für Outlook 2010, 2013, 2016, 2019 und 365

Screen-Kutools für Ausblick klein für Banner 201812

Weitere Funktionen | Gratis Download | Nur $ 39.00 für Hunderte von Funktionen

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.