Per VBA Makro alle Spam Mails als gelesen markieren

Moderator: ModerationP

Per VBA Makro alle Spam Mails als gelesen markieren

Beitragvon Otto-mit-Regenmantel » 27. Jul 2021, 18:10

Hallo

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/e ... markieren/

Script:
Code: Alles auswählen
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


Lässt sich das Script dafür verwenden? Und wenn ja, wie kann ich es so anpassen, dass der Spam Ordner berücksichtigt wird.

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
Otto-mit-Regenmantel
Neuling
 
Beiträge: 1
Registriert: 27. Jul 2021, 18:05

Re: Per VBA Makro alle Spam Mails als gelesen markieren

Beitragvon Fen » 27. Jul 2021, 19:06

Hallo,

es gibt den Default-Ordner "Junk":

Code: Alles auswählen
Dim NSp As NameSpace: Set NSp = Application.GetNamespace("MAPI")
dim Ibx as Folder
Set Ibx = NSp.GetDefaultFolder(olFolderJunk)


mfg
Fen
 

Re: Per VBA Makro alle Spam Mails als gelesen markieren

Beitragvon Gast » 28. Jul 2021, 09:36

Fen hat geschrieben:es gibt den Default-Ordner "Junk":


Ah prima. Danke. Muss ich in dem Script dann nur diese Zeile
Set F = F.Folders("test")

durch diese Zeile ersetzen:
Set F = F.Folders(olFolderJunk)

Bitte entschuldige meine vielleicht dumme Frage :-) Ich bin leider nicht sehr kompetent in VBA. Ich hoffe, dass Ihr mir vielleicht trotzdem helfen mögt.
Gast
 

Re: Per VBA Makro alle Spam Mails als gelesen markieren

Beitragvon mmarkus » 28. Jul 2021, 13:07

Fen hat geschrieben:
Bitte entschuldige meine vielleicht dumme Frage :-) Ich bin leider nicht sehr kompetent in VBA.


Du bist doch in der Lage zu testen?

Vermutlich kannst du auch lesen und in der Hilfe nachsehen, was der Code macht.

Wo ist also dein Problem?
Programmieren ist in erster Linie Lesen und Nachdenken.
Wenn du damit nicht beginnst, wird das nie was.
ms access what else
mmarkus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 2142
Registriert: 16. Apr 2012, 16:07
Wohnort: Oberösterreich

Re: Per VBA Makro alle Spam Mails als gelesen markieren

Beitragvon Gast » 28. Jul 2021, 17:42

mmarkus hat geschrieben:
Fen hat geschrieben:Programmieren ist in erster Linie Lesen und Nachdenken.
Wenn du damit nicht beginnst, wird das nie was.


Ja ich verstehe natürlich, was Du meinst.
Es ist aber so, dass ich nicht Programmieren lernen möchte.
Sondern ich suche nur nach Hilfe für dieses eine spezifische Problem.
Ich hoffe, Du verstehst, wie ich das meine?

Wenn Du mir da behilflich sein könntest, würde ich mich wirklich sehr freuen.
Gast
 

Re: Per VBA Makro alle Spam Mails als gelesen markieren

Beitragvon Gast » 28. Jul 2021, 21:00

Gast hat geschrieben:Wenn Du mir da behilflich sein könntest, würde ich mich wirklich sehr freuen.



Nein, dafür bin ich nicht zu haben.

Nur die anderen ausnützen und selbst nichts einbringen das geht zu weit.
Gast
 


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast