VBA Code Outlook Mails als gelesen markieren?
Hallo zusammen,
ich habe ein VBA Script entdecken können, welches E-Mails beim Verschieben in einen bestimmten Ordner automatisch als gelesen markiert. Leider benötige ich diese Funktion aber für mehrere Ordner, bzw. eigentlich für alle (also immer wenn ich eine Mail in einen anderen Ordner verschiebe, soll diese als gelesen markiert werden).
Hat jemand eine Idee, wie ich dieses Script anpassen kann, oder ein anderes Script, damit das funktioniert?
Ich nutze ein Office 365, falls dies relevant ist.
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace
Dim F As Outlook.MAPIFolder
Set Ns = Application.GetNamespace("MAPI")
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Folders("test")
Set Items = F.Items
End Sub
Private Sub Items_ItemAdd(ByVal Item As Object)
Item.UnRead = False
Item.Save
End Sub
Vielen lieben Dank vorab :)
1 Antwort
VBA-Praxis: Alle Outlook-E-Mails ungelesen setzen (kk-software.de)
NUR die Zeile ändern:
objItem.UnRead=False 'zuvor True
Das Verschieben der eMail geschieht doch in Outlook selbst, richtig? Dort kann man einstellen, dass jede eMail die "angefasst" wurde auch als gelesen markiert wird. Es braucht kein Makro.
das klappt so leider nicht. Wenn ich die E-Mail einmal auswähle, warte bis sie geladen hat und dann verschiebe klappt es. Ich verschiebe Mails aber häufig ganz ohne anklicken sofort aus der Auswahl per Drag and Drop. Dabei markiert er sie nicht als gelesen, da sie nicht geöffnet wurde
Dann muss das MAKRO IM OutLook selbst platziert werden. Auch dort kann man VBA hinterlegen. Das "VerschiebenEvent" aufgreifen, um das Makro zu starten.
Vielen Dank. Diesen Beitrag hatte ich auch gesehen, aber leider wird der durch Button ausgelöst. Aber wie kann ich dieses Skript bei jedem Verschieben einer Mail auslösen?