ole258
Active member
- Registriert
- 2 Sep. 2010
- Beiträge
- 2.241
Hallo,
leider bin ich kein Held in VBA.
Was ich möchte: E-Mails, nach dem Versand, im Ordner "Gesendete" (+ Unterordner), als gelesen markieren.
Ordnerstruktur in Outlook:
Gesendete (=Hauptordner)
>Gesendete1 (=Unterordner)
>Gesendete2 (=Untertordner)
>Gesendete3 (=Untertordner)
Was ich jetzt gefunden habe (Quelle: http://www.vboffice.net/de/developers/email-automatisch-als-gelesen-markieren):
Problem:^So werden nur die Mails in Gesendete1 als gelesen markiert.
Frage: Wie muss das Script aussehen, dass die Mails in allen 4 Ordnern (Gesendete, Gesendete1, Gesendete2, Gesendete3) als gelesen markiert werden?Danke vorab für Tipps.
ole258
leider bin ich kein Held in VBA.
Was ich möchte: E-Mails, nach dem Versand, im Ordner "Gesendete" (+ Unterordner), als gelesen markieren.
Ordnerstruktur in Outlook:
Gesendete (=Hauptordner)
>Gesendete1 (=Unterordner)
>Gesendete2 (=Untertordner)
>Gesendete3 (=Untertordner)
Was ich jetzt gefunden habe (Quelle: http://www.vboffice.net/de/developers/email-automatisch-als-gelesen-markieren):
Code:
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(olSentMail)
Set F = F.Folders("[COLOR=#ff0000]Gesendete1[/COLOR]")
Set Items = F.Items
End Sub
Private Sub Items_ItemAdd(ByVal Item As Object)
Item.UnRead = False
Item.Save
End Sub
Frage: Wie muss das Script aussehen, dass die Mails in allen 4 Ordnern (Gesendete, Gesendete1, Gesendete2, Gesendete3) als gelesen markiert werden?Danke vorab für Tipps.
ole258
Zuletzt bearbeitet: