Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

[OUTLOOK] Export folder structure

Pagina: 1
Acties:

  • Simon VDS
  • Registratie: Mei 2005
  • Laatst online: 15-10 18:51
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
  • Registratie: Oktober 2002
  • Laatst online: 21-11 21:18

Eagle Creek

Breathing security

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 ]

~ Information security professional & enthousiast ~ EC Twitter ~


  • djexplo
  • Registratie: Oktober 2000
  • Laatst online: 27-10 15:31
Even onderstaande code bewaren naar "printoutlook.vbs", uit voeren
VBScript:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 ]

'if it looks like a duck, walks like a duck and quacks like a duck it's probably a duck'


  • Simon VDS
  • Registratie: Mei 2005
  • Laatst online: 15-10 18:51
Ok thanks!

Het is me gelukt, mag dus een slotje op!