Hallo zusammen,

vielleicht kann mir hier jemand helfen. Ich möchte alle Anhänge der versendeten Emails am Folgetag löschen. Die gesendeten Emails werden in ein Archivpostfach abgelegt, das jedoch eine begrenzte Kapazität hat. Derzeit passiert das immer händisch, was unnötig zeitraubend ist.

Ich habe bereits ein Script gefunden was alle Anhänge in markierten Emails entfernt. Aber ein bestimmter Anhangtyp soll jedoch nicht entfernt werden. Kann man dieses Script so anpassen, dass alle anderen bis auf diesen Dateityp gelöscht wird?

Sub RemoveAttachmentsFromSelectedEmails()
    Dim objItem As Object
    Dim objAttachment As Attachment
    Dim strFolderPath As String
    Dim i As Long

    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
                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

Besten Dank für eure Unterstützung