Set shell = CreateObject("wscript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
' gets default outlook profile name
ProfileName = shell.regRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\DefaultProfile")
' Use the GetSpecialFolder method to find temp directory.
Set tfolder = fso.GetSpecialFolder(2)
' writes .reg file with appropriae values
RegFileName = tfolder &"\setArchiveLocation.reg"
Set regFileObj = fso.createtextfile(RegFileName,True)
regFileObj.WriteLine "Windows Registry Editor Version 5.00"
regFileObj.WriteLine vbCr
regFileObj.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"& ProfileName &"]"
regFileObj.WriteLine vbCr
regFileObj.WriteLine "[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"& ProfileName & "\0a0d020000000000c000000000000046]"
regFileObj.WriteLine vbCr
' Depending on version of office (2003 / 2007) the value below will need to be changed although I have tested on 2003, 2007, 2010 and had success.
' Outlook 2003 = 001e0324, Outlook 2007 & 2010 = 001f0324
regFileObj.WriteLine """001f0324""=hex:63,00,3a,00,5c,00,61,00,5c,00,61,00,2e,00,70,00,73,00,74,00" '원하는 경로를 이곳에 삽입
regFileobj.close
Set regFileObj=Nothing
' writes batch file to import previously created .reg file using the /s switch of regedit which suppresses notification
BatFileName = tfolder&"\RegImport.bat"
Set regImportObj = fso..createtextfile(BatFileName,True)
regImportObj.WriteLine "regedit /s """ &tfolder& "\setArchiveLocation.reg"""
regImportObj.WriteLine "exit"
regImportObj.close
Set regImportObj=Nothing
' runs batch file
Set shell = CreateObject ("Wscript.Shell")
shell.run ("%comspec% /C """&tfolder&"\RegImport.bat"""), 0, True
Set shell=Nothing
' waits for batch file to run
WScript.sleep 5000
'cleans up
fso.DeleteFile tfolder&"\RegImport.bat"
fso.DeleteFile tfolder&"\setArchiveLocation.reg"
Set fso=Nothing
WScript.quit