Ich möchte meinen MS Outlook Posteingang automatisieren. Die Idee ist, alle E-Mails (i) mit einer bestimmten Absenderadresse und (ii) älter als 7 Tage in einen Unterordner zu meinem Posteingang zu verschieben. Siehe Arbeitsbeispiel unten (eventuell müssen die Ordnernamen anpassen, damit es auf euren Rechnern funktioniert). Das Original habe ich hier gefunden: http://www.office-loesung.de/ftopic78041_0_0_asc.php
Mein Problem: Nach 88 Iterationen erhalte ich einen "Laufzeitfehler 13". Warum passiert das nach so vielen Iterationen? Und, was noch wichtiger ist, wie kann man das beheben? Hat jemand eine Idee?
Alle Standardverweise sind in meinem VBE aktiviert. Ich verwende MS Office 2019.
Vielen Dank.
Sub sort_emails()
'On Error Resume Next
On Error GoTo 0
' declare variables
Dim objSourceFolder As MAPIFolder
Dim objDestinationFolder As MAPIFolder
Dim objMail As MailItem ' single email
Dim objMails As Items ' all emails in source folder
Dim lngItems As Long ' number of checked emails
Dim intDays As Integer ' number of days
Dim counter As Integer ' number of moved emails
' email age in days
intDays = 7
' define folder (= inbox)
Set objSourceFolder = GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)
' reference items in source folder
Set objMails = objSourceFolder.Items
'objMails.Count
' sort emails in source folder (oldest first)
objMails.Sort "ReceivedTime", False
' move email
For Each objMail In objMails
If objMail.ReceivedTime