title image


Smiley Re: Mehrere Posteingänge im Outlook abfragen
Ich poste Dir mal eine allgemeine Lösung für Dein Problem.

Mit diesem Coding werden rekursiv alle Ordner einschl. Unterordnern durchlaufen und das Ergebnis im Direktfenster ausgegeben.





Sub AufrufListFolder()



' Mit dieser rekursiven Prozedur können alle

' Ordner und Unterordner angezeigt werden:



Dim olAppl As Outlook.Application

Dim olNS As NameSpace





Set olAppl = New Outlook.Application

Set olNS = olAppl.GetNamespace("MAPI")

strNamen = ""



ListFolder olNS.Folders, 0



Debug.Print strNamen



Set olNS = Nothing

Set olAppl = Nothing



End Sub









Sub ListFolder(ParentFolder As Folders, i As Integer)



Dim olFold As MAPIFolder



For Each olFold In ParentFolder

strNamen = strNamen & vbCrLf & String(i * 2, vbTab) & olFold.Name

ListFolder olFold.Folders, i + 1

DoEvents

Next



End Sub







Klar musst Du das noch umstricken, es verdeutlicht aber das Prinzip, wie Du die Ordner an den Wickel bekommst.



Greetinx,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: