|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Outlook - Alle Anhänge nach Typ löschen |
25.06.2025 19:17:10 |
Wolfgang |
|
|
|
25.06.2025 23:18:50 |
Gast29039 |
|
|
|
26.06.2025 10:16:28 |
Gast79350 |
|
|
|
26.06.2025 20:29:54 |
Wolfgang |
|
|
Von:
Wolfgang |
Datum:
25.06.2025 19:17:10 |
Views:
68 |
Rating:
|
Antwort:
|
Thema:
Outlook - Alle Anhänge nach Typ löschen |
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Outlook - Alle Anhänge nach Typ löschen |
25.06.2025 19:17:10 |
Wolfgang |
|
|
|
25.06.2025 23:18:50 |
Gast29039 |
|
|
|
26.06.2025 10:16:28 |
Gast79350 |
|
|
|
26.06.2025 20:29:54 |
Wolfgang |
|
|