Wie lautet die VBA-Syntax zum Verweisen auf einen Ordner in Outlook 2013?

Question

Ich arbeite an einem Code, um Elemente als gelesen zu markieren, wenn sie in meinen Ordner „Archiv“ verschoben werden, der sich auf derselben Ebene befindet wie meine Standardordner (Posteingang, Gesendet usw.). Der folgende Code war mein erster Test mit dem Standardordner für gelöschte Elemente. Was ist die richtige Syntax, damit ich auf die Elemente in meinem Archivordner verweisen kann?

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderDeletedItems).Items

End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
    Item.UnRead = False
    Item.Save
End Sub 

Answer 1

Habe festgestellt, dass es einfacher ist, die PickFolder-Methode aufzurufen, als herauszufinden, wie man auf den Archivordner verweist. Jetzt funktioniert mein Code ordnungsgemäß.

Option Explicit

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim myFolder As Outlook.Folder


  Set Ns = Application.GetNamespace("MAPI")

  Set myFolder = Ns.PickFolder

  Set Items = myFolder.Items

End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
    Item.UnRead = False
    Item.Save
End Sub