Outlook Mails nach x Tagen löschen
Hallo zusammen,
ich habe eine kurze Frage zum automatischen Löschen von E-Mails beim Autoarchiv. Ich habe beide Optionen ausprobiert, jedoch ohne Erfolg. Die Mails werden nicht gelöscht. Hat vielleicht jemand eine Idee?
ich habe eine kurze Frage zum automatischen Löschen von E-Mails beim Autoarchiv. Ich habe beide Optionen ausprobiert, jedoch ohne Erfolg. Die Mails werden nicht gelöscht. Hat vielleicht jemand eine Idee?
Please also mark the comments that contributed to the solution of the article
Content-ID: 9976079751
Url: https://administrator.de/contentid/9976079751
Printed on: October 11, 2024 at 03:10 o'clock
5 Comments
Latest comment
IMAP Konto? Wenn ja ist das normal, damit hat die Archivierung noch nie funktioniert. Nimmst du dann stattdessen ein Makro oder MailStore Home
Oder bei Exchange gleich die Aufbewahrungsrichtlinien (RetentionPolicies) benutzen.
https://learn.microsoft.com/en-us/exchange/policy-and-compliance/mrm/cre ...
https://learn.microsoft.com/en-us/exchange/policy-and-compliance/mrm/app ...
Gruß Katrin
Oder bei Exchange gleich die Aufbewahrungsrichtlinien (RetentionPolicies) benutzen.
https://learn.microsoft.com/en-us/exchange/policy-and-compliance/mrm/cre ...
https://learn.microsoft.com/en-us/exchange/policy-and-compliance/mrm/app ...
Gruß Katrin
Dann kann man ja gleich einen benutzerdefinierten Suchordner (mit Kriterium älter als x Tage) in Outlook anlegen den man dann leeren lässt.
Zitat von @drvegapunk:
Das mit den benutzerdefinierten Suchordner ist glaub die einfachste Variante, aber ich versuch mich mal an den Makros einzuarbeiten.
Das mit den benutzerdefinierten Suchordner ist glaub die einfachste Variante, aber ich versuch mich mal an den Makros einzuarbeiten.
Makro ist schnell getippt, hier für den aktuell Markierten Ordner, Mails älter als 4 Tage entsorgen:
Sub DeleteOldMails()
dim mail as object, garbage as new Collection, limit as Date, mailcount as Long
limit = DateAdd("d",-4,Date)
for each mail in ActiveExplorer.CurrentFolder.Items
if mail.ReceivedDate < limit then
garbage.add mail
End if
Next
mailcount = garbage.Count
if mailcount > 0 then
for each itm in garbage
itm.Delete
Next
msgbox "Es wurden " & mailcount & " Mail(s) gelöscht", vbInformation
else
msgbox "Keine der Mails entspricht den Kriterien.", vbInformation
End if
End Sub
for each mail in Application.Session.Stores("user@domain.de").GetDefaultFolder(olFolderInbox).Items
for each mail in Application.Session.Stores("user@domain.de").GetDefaultFolder(olFolderInbox).Folders("Subfolder").Items
Referenz wie immer hier nachzulesen:
Object model (Outlook)
Good Luck.