Thema Datum  Von Nutzer Rating
Antwort
25.06.2025 19:17:10 Wolfgang
NotSolved
25.06.2025 23:18:50 Gast29039
NotSolved
26.06.2025 10:16:28 Gast79350
NotSolved
Blau Outlook - Alle Anhänge nach Typ löschen
 26.06.2025 20:29:54 Wolfgang
NotSolved

Ansicht des Beitrags:
Von:
Wolfgang		 Datum:
26.06.2025 20:29:54		 Views:
29		 Rating:
     
Antwort:
  Ja
Thema:
Outlook - Alle Anhänge nach Typ löschen

Danke euch für eure Mühen.

Habe nun die richtigen Anpassungen gefunden. Ist zwar nicht nach Dateityp, sondern nach Dateinamen aber da es sich um eine immer wiederkehrend gleiche Anlage in Form einer Email handelt, die erhalten bleiben soll, geht es natürlich auch so.

Ich füge mal das Script ein. Wer noch Verbesserungsvorschläge hat, wie man das noch flexibler einstellen kann, dann her damit.

 

Sub RemoveAttachmentsFromSelectedEmails()
    Dim objItem As Object
    Dim objAttachment As Attachment
    Dim strFolderPath As String
    Dim i As Long
    Dim NichtLoeschen$
    NichtLoeschen = "Sie haben eine Auftragsbestätigung erhalten.msg###"

    On Error Resume Next

    ' Schleife durch ausgewählte E-Mails im aktiven Ordner
    For Each objItem In Application.ActiveExplorer.Selection
        If objItem.Class = olMail Then
            ' Schleife durch jeden Anhang
            For i = objItem.Attachments.Count To 1 Step -1
                Set objAttachment = objItem.Attachments(i)
                ' Anhang entfernen
                If InStr(1, NichtLoeschen, objAttachment.FileName, vbTextCompare) = 0 Then objAttachment.Delete
            Next i
            objItem.Save ' Änderungen an der E-Mail speichern
        End If
    Next objItem

    On Error GoTo 0
    MsgBox "Anhänge aus den ausgewählten E-Mails entfernt."
End Sub

Gruß

Wolfgang

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.06.2025 19:17:10 Wolfgang
NotSolved
25.06.2025 23:18:50 Gast29039
NotSolved
26.06.2025 10:16:28 Gast79350
NotSolved
Blau Outlook - Alle Anhänge nach Typ löschen
 26.06.2025 20:29:54 Wolfgang
NotSolved