Outlook 2007에서 자동 보관 경로 변경하기

 

▒ 개발 요구사항

코드 작성을 통해 아웃룩 2007에서 자동 보관 경로를 찾아서 변경. 
 

▨ 솔루션

자동 보관 파일의 위치는 레지스트리에서 이진 값으로 로컬 머신에 저장되어 있다.
아웃룩 2007의 경우, 위치는 아래와 같다.

• HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\ <Outlook Profile Name> \0a0d020000000000c000000000000046
• 001f0324 --> 이진 값으로 관리 (절대 경로)
     
  

 API를 통해 변경할 수 없고, 레지스트리의 ASCII 값을 단순히 액세스하는 방식으로 변경할 수 있다.
관련 샘플 코드는 다음과 같다.

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

▩ 추가 정보

1. Individual AutoArchive settings not stored in registry

http://support.microsoft.com/kb/198479

2. How to set the location of an archive .pst file in Outlook

http://support.microsoft.com/kb/836755/