Verwenden Sie die Ordner-Pfadangabe zum Ordner auswählen in VBA in Outlook

Wie kann ich eine Zeichenfolge eingeben, die als Ordner
ex. \MySpecificEmailAddress\Inbox
Wählen Sie den Ordner in der VBA-Hilfe von outlook?
Ich erhielt den Pfad mit:

... = ActiveExplorer.CurrentFolder.FolderPath

Habe ich gesucht weit und breit, um automatisch sagen, das script, welches bestimmte Ordner, um ein makro auszuführen, ohne dass Sie den Ordner wählen dann das Skript ausführen.

  • Weit und breit? Standard-Ordner.
  • Dies nicht zu tun, was ich gebeten, in der Frage oben. Ich habe 3 E-Mail-Adresse in mein outlook, und wenn es 50 E-Mail-Adresse, ich möchte das script zu kennen, gehen auf diesen speziellen Pfad \\emailaddress\inbox. Ich habe versucht mit der EntryID aber diesen Wert zu ändern scheint von Tag zu Tag.
  • Sie hat nicht besagen, dass Ihre erste Frage. In Zukunft bitte genauer sein.
InformationsquelleAutor bneigher | 2012-08-21
  1. 2

    Sollten Sie aufgelistet werden können Session.Stores und dann Speichern.GetRootFolder.Ordner Zugriff auf alle Ordner für ein bestimmtes Postfach. Je nachdem, wie viele Ebenen Sie brauchen, um zu gehen, dies dauert ein bisschen mehr Aufwand (d.h. Rekursion).

    Hier ist ein code-snippet aus MSDN, die listet alle Ordner unter dem Postfach/store root Ordner:

    Sub EnumerateFoldersInStores()  
 Dim colStores As Outlook.Stores 
 Dim oStore As Outlook.Store 
 Dim oRoot As Outlook.Folder 

 On Error Resume Next 

 Set colStores = Application.Session.Stores  
 For Each oStore In colStores 
   Set oRoot = oStore.GetRootFolder 
   Debug.Print (oRoot.FolderPath) 
   EnumerateFolders oRoot 
 Next 

End Sub 

Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder) 
 Dim folders As Outlook.folders 
 Dim Folder As Outlook.Folder 
 Dim foldercount As Integer 

 On Error Resume Next 
 Set folders = oFolder.folders 
 foldercount = folders.Count 
 'Check if there are any folders below oFolder 
  If foldercount Then 
    For Each Folder In folders 
      Debug.Print (Folder.FolderPath) 
      EnumerateFolders Folder 
    Next 
 End If 
End Sub
    • Bingo. Dank SilverNinja, das genau das Tat, was ich wollte, es zu tun!
    InformationsquelleAutor SliverNinja - MSFT
Schreibe einen Kommentar