[OUTLOOK] Export folder structure

[Simon VDS]

Hallo iedereen,

Ben al een uurtje aan het zoeken geweest achter een tool die een folderstructuur kan exporteren naar Windows mappen. Ik heb een klant die zijn bestaande mappenstructuur wil overnemen naar een Windows share.

Ik zoek dus een mogelijkheid tot het exporteren van deze structuur door middel van een applicatie.
Exporteren van alleen de namen is ook goed dan kan ik zelf wel een bat file maken die folders aanmaakt.


Jammer genoeg kan ik niet programmeren en ik heb ook geen ambitie om dit te leren eerlijk gezegd hehe

Ik wil gewoon weten of jullie een tool kennen die dit kan


Alvast bedankt voor jullie tips!

[Eagle Creek]

In CMD:
dir /d /s /a:d c:\ > c:\mydir.txt

Het pad-gedeelte inkorten of verlengen naar smaak.

Als dat niet helemaal is wat je zoekt, staat hier nog wat leuks tussen:
http://www.makeuseof.com/...tory-contents-in-windows/

Vooral met de genoemde applicaties kun je nog flink filteren bv. of je files wilt opnemen of niet etc.

[ Voor 139% gewijzigd door Eagle Creek op 18-08-2011 10:03 ]

[djexplo]

Even onderstaande code bewaren naar "printoutlook.vbs", uit voeren

VBScript:

dim loggit_logfilename, loggit_fso, loggit_silent

loggit_logfilename = ".\Outlook_Folder_List.log"
loggit_silent = true ' log file only or with MsgBox/Echo
set loggit_fso = CreateObject("Scripting.FileSystemObject")

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")

Set olFolder = objNamespace.PickFolder
loggit "Selected Archive Name: " & olFolder.Name
loggit "Total Number of Sub Folders: " & olFolder.Folders.Count


GetSubfolders(olFolder)

Sub GetSubfolders(objParentFolder)
   Set colFolders = objParentFolder.Folders
   For Each objFolder in colFolders
      Set objSubfolder = objParentFolder.Folders(objFolder.Name)
      loggit objFolder.FolderPath
      GetSubfolders objSubfolder
   Next
End Sub

Wscript.Echo "Done. Log file created/appended at " & loggit_fso.GetParentFolderName(wscript.ScriptFullName) & "\Outlook_folder_list.org"

sub loggit (msg)
   set stream = loggit_fso.OpenTextFile(loggit_logfilename, 8, True)
   stream.writeline date & " " & time & ": " & msg
   stream.close
   if not loggit_silent then
      WScript.echo msg
   end if
end sub 

http://blogs.technet.com/...-in-my-outlook-inbox.aspx

[ Voor 45% gewijzigd door djexplo op 18-08-2011 10:11 ]

[Simon VDS]

Ok thanks!

Het is me gelukt, mag dus een slotje op!