Wie entfernt man Anhänge automatisch, nachdem E-Mails aus dem Ordner „Gesendete Elemente“ gesendet wurden?
Beim Versand einer E-Mail mit Anhängen werden diese standardmäßig zusammen mit der Nachricht im Ordner „Gesendete Elemente“ gespeichert. Um die Größe Ihrer PST-Datei zu reduzieren, können Sie die Anhänge automatisch aus den gesendeten E-Mails entfernen lassen – und zwar unmittelbar nach dem Versand. In diesem Artikel zeige ich Ihnen, wie das in Outlook funktioniert.
Anhänge automatisch entfernen, nachdem E-Mails aus dem Gesendete Elemente gesendet wurden
Anhänge automatisch entfernen, nachdem E-Mails aus dem Gesendete Elemente gesendet wurden
Der folgende VBA-Code unterstützt Sie dabei, Anhänge automatisch zu löschen, sobald E-Mails aus Ihrem Outlook versendet wurden. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten „ALT“ + „F11“ gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Doppelklicken Sie im Fenster „Microsoft Visual Basic for Applications“ unter „Projekt1 (VbaProject.OTM)“ auf „ThisOutlookSession“, um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.
VBA-Code: Anhänge automatisch entfernen, nachdem E-Mails aus dem Gesendete Elemente gesendet wurden:
Public WithEvents SentMailItems As Outlook.Items
Private Sub Application_Startup()
Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub SentMailItems_ItemAdd(ByVal Item As Object)
Dim xSentMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xAttachmentInfo As String
On Error Resume Next
If Item.Class = olMail Then
Set xSentMail = Item
End If
Set xAttachments = xSentMail.Attachments
For i = xAttachments.Count To 1 Step -1
Set xAttachment = xAttachments.Item(i)
xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
"</BODY></HTML>" & vbCrLf & xAttachmentInfo
xAttachment.Delete
Next
xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
xSentMail.Save
End Sub
3. Starten Sie Outlook nach dem Einfügen des obigen Codes neu, damit der Code wirksam wird.
4Ab sofort werden beim Senden von E-Mails mit Anhängen diese automatisch aus dem Gesendete Elemente gelöscht, wie im folgenden Screenshot dargestellt:
Hinweis: Dieser Code ist ausschließlich für das Standard-Datenkonto verfügbar.
Beste Office-Produktivitätswerkzeuge
Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!
📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …
📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …
📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …
🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...
👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...
👩🏼🤝👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!
🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins
Stark empfohlen: Kutools for Office (5-in-1)
Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!
- ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
- 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
- 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint