|
Hi,
I have set some registry values to autoarchive Outlook 2003 and Outlook 2007 profiles. The problem is that it archives only the 'Sent Items' folder. Does anyone know how to select ALL the folders (Inbox,Drafts,Sent Items,etc.) for autoarchiving using a kix32 script or what I am missing in the script below? FYI, Outlook is setup as POP3 account.
Dim $write,$archive,$days
$days=@YDAYNO
$archive=RegASCIItoHEX("%USERPROFILE%\Local Settings\Application Data\Microsoft\Outlook\myarchive.pst")
; Outlook 2003
If $MSOffice == "Microsoft Office Professional Edition 2003"
$write=WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Preferences","DoAging",1,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\11.0\Outlook\Preferences","PromptForAging",0,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Preferences","EveryDays",1,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Preferences","ArchiveGranularity",2,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Preferences","ArchivePeriod",$days,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\0a0d020000000000c000000000000046\","001f0324",$archive,"REG_BINARY")
EndIf
; Outlook 2007
If $MSOffice == "Microsoft Office Professional Plus 2007"
$write=WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Preferences","ArchiveGranularity",2,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Preferences","ArchivePeriod",$days,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Preferences","EveryDays",1,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Preferences","DoAging",1,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\12.0\Outlook\Preferences","PromptForAging",0,"REG_DWORD")
$write=WriteValue("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\0a0d020000000000c000000000000046\","001f0324",$archive,"REG_BINARY")
EndIf
Thanks.
| 
