Alle Order des Posteingang auslesen

11/12/2008 - 23:42 von Tamara Mikes | Report spam
Salü alle zusammen

Habe einen Code gefunden der schaut folgendermassen aus:

Sub ZeigeOrdner()
Dim meinOrdner As MAPIFolder

For Each meinOrdner In Application.Session.Folders
Debug.Print meinOrdner.Name
Next
End Sub


Der geht wunderbar. Nun möchte ich aber gerne die Ordner erst in meinem Posteingang
auswerten und nicht schon zuoberst in der Hirarchie.

Das wollte ich mit

Sub ZeigeOrdner()
Dim meinOrdner As MAPIFolder
Dim Knoten As MAPIFolder
Set Knoten = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Debug.Print Knoten.Name

For Each meinOrdner In Knoten
Debug.Print meinOrdner.Name
Next
End Sub

erreichen. Aber hier scheitere ich. Hat jemand eine Idee wie ich das genau bewerkstellige?

Vielen Dank für Hinweise
Gruss Tamara
 

Lesen sie die antworten

#1 Peter Marchert
12/12/2008 - 07:30 | Warnen spam
On 11 Dez., 23:42, "Tamara Mikes" wrote:
Salü alle zusammen



Guten Morgen Tamara,

Habe einen Code gefunden der schaut folgendermassen aus:

Sub ZeigeOrdner()
   Dim meinOrdner As MAPIFolder

   For Each meinOrdner In Application.Session.Folders
      Debug.Print meinOrdner.Name
   Next
End Sub

Der geht wunderbar. Nun möchte ich aber gerne die Ordner erst in meinem Posteingang
auswerten und nicht schon zuoberst in der Hirarchie.

Das wollte ich mit

Sub ZeigeOrdner()
   Dim meinOrdner As MAPIFolder
   Dim Knoten As MAPIFolder
   Set Knoten = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
   Debug.Print Knoten.Name

   For Each meinOrdner In Knoten
      Debug.Print meinOrdner.Name
   Next
End Sub

erreichen. Aber hier scheitere ich. Hat jemand eine Idee wie ich das genau bewerkstellige?



Damit sollte es klappen:

Option Explicit

Sub ZeigeOrdner()

Dim objInbox As MAPIFolder
Dim objFolder As MAPIFolder

Set objInbox = Outlook.Session.GetDefaultFolder(olFolderInbox)

Debug.Print objInbox.Name

For Each objFolder In objInbox.Folders
Debug.Print objFolder.Name
Next

Set objFolder = Nothing
Set objInbox = Nothing

End Sub

Gruß
Peter

Infos, Workshops & Software für
Outlook®: www.outlook-stuff.com

Ähnliche fragen