title image


Smiley Re: Ordner in Outlook 2002 ansprechen
Was GetDefaultFolder nicht kann löst Du mit folgender, rekursiven Prozedur:





Dim olAppl As Object

Dim olNS As Object

Dim olFolder As Object

Dim olItem As Object











Sub AufrufListFolder()

Set olAppl = CreateObject("Outlook.Application")

Set olNS = olAppl.GetNamespace("MAPI")

' Initialer Aufruf der rekursiven Sub:

ListFolder olNS.Folders, 0, "NameDesKontakteordners"

If olFolder Is Nothing Then

MsgBox "Folder existiert nicht!"

Else

MsgBox "Folder existiert!"

For Each olItem In olFolder.Items

Debug.Print olItem.CreationTime

Next olItem

End If

Set olItem = Nothing

Set olFolder = Nothing

Set olNS = Nothing

Set olAppl = Nothing

End Sub











Sub ListFolder(ParentFolder As Folders, i As Integer, FolderName As String)

Dim olFold As Object

For Each olFold In ParentFolder

If olFold.Name = FolderName Then

Set olFolder = olFold

Exit For

Else

' Rekursiver Aufruf, wenn (noch) nicht gefunden:

ListFolder olFold.Folders, i + 1, FolderName

DoEvents

End If

Next

Set olFold = Nothing

End Sub











Greetz,

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: