VBA Markro für Outlook
27.07.2021 20:42:26
Ingo
Es geht um ein VBA Makro für Outlook. Falls das hier im Excel Forum nicht gewünscht ist, lasst es mich bitte wissen.
Ich möchte gerne alle Mails, die in den Spam-Ordner verschoben werden, automatisch als gelesen markieren. Dafür habe ich auch einer Website ein Script gefunden.
Website:
http://www.vboffice.net/de/developers/email-automatisch-als-gelesen-markieren/
Script:
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
Ich frage das, weil auch der Website ja folgendes dazu steht:
"Im Beispiel wird die Email als gelesen markiert, wenn Sie die in den einen Unterordner des Posteingangs verschieben."
Und der Spam Ordner ist ja kein Unterordner des Posteingangs,
Gruß
Ingo
Anzeige