Public Folders i Exchange

http://www.webforum.nu/search.php?s=&action=showresults&searchid=127069&sortby=lastpost&sortorder=descending
Du kanske kan hitta något?!

help

Jag kom ett steg längre med koden:

 

   Set objSubFolder = objFolder
		For Each objSubFolder in objFolders
			Response.write objSubFolder.name & "<br>"
		next

Men hur får jag fram mapparna i objSubFolder och mapparna i den.

Min önskan är att lista objFolder och direkt nästa objSubFolder ock så vidare, tills jag kommit ner 4 nivåer

Sedan börja på nästa objSubFolder ......

Så det liknar i stort sett mappstrukturen i urforskaren om du öppnar alla plus.

Går detta eller ska jag slänga in handuken?

Du får göra en funktion som har en folder-object som inparameter.
Denna funktion ska oxå vara rekursiv, dvs anropa sig själv:

Sub ListFolders(ByVal oFolders)

	Dim folder

	For Each folder IN oFolders
		Response.Write folder.Name & "<BR>"
		'## -- låt funktionen anropa sig själv för att hämta undermappar --
		Call ListFolders(folder.Name)
	Next
End Sub

ngt sådant ....

du kan även från denna sida komma vidare: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wss/wss/_exch2k_web_storage_system_search_folders.asp

cya,
PatrikB

Anropa sig själv?

Oj, det lät avancerat

Sökte på msdn men fann inget som kunde lätta upp mina funderingar.

Skulle uppskatta väldans för ett exempel på hur:
"låt funktionen anropa sig själv för att hämta undermappar"

skulle tänkas kunna se ut (snälla:-)

Sub ListFolders(ByVal oFolders)
	Dim folder
	For Each Folder IN oFolders
		'## --skriv ut aktuell folder --
		Response.Write Folder.Name

		'## -- låt denna sub anropa sig själv (rekursiv) för att komma åt under-kataloger --
		Call ListFolders(Folder)
	Next
End Sub

   strProfileInfo = strServer & vblf & strMailbox
   Set objSession = Server.CreateObject("MAPI.Session")
   objSession.Logon , , , False, , True, strProfileInfo
   Set objInfoStores = objSession.InfoStores

   For i = 1 To objInfoStores.Count
    If objInfoStores.Item(i)= "Public Folders" Then
       Set objInfoStore=objInfoStores.Item(i)
       Exit For
    End If
   Next

   bstrPublicRootID = objInfoStore.Fields.Item( &H66310102 ).Value
   Set objTopFolder = objSession.GetFolder(bstrPublicRootID, objInfoStore.ID)
   Set objFolders = objTopFolder.Folders
   Set objFolder = objFolders.GetFirst()

	Call ListFOlders(objFolders)

Du får testa dig fram.
Nu kan du se hur en rekursiv sub/funktion fungerar ....... genom att anropa sig själv med ett annat objekt från kollektionen (objFolders)

cya,
PatrikB

Hittade lite kod på msdn.microsoft.com

Kanske kandetta ge ngt:

Set objSession = Server.CreateObject("MAPI.Session") 
objSession.Logon "User", "", True 

	With objSession.Inbox.Folders 

		Set objFolder = .GetFirst

			Do While (Not objFolder = Nothing)
				Response.Write objFolder.Name & "<br />"

				Set objFolder = .GetNext
			Loop

		Set objFolder = Nothing
	End With

"utvecklade" koden från länken ovan lite .... ;)

cya,
PatrikB

tack

Tack för att du försökt hjälpa mig, men jag får tyvärr inte till det.
Jag får ge mig:-(