Create Outlook PST

[Brian]

I am using Exchange 2003 as an e-mail server and Outlook 2003 as an e-mail
client. We leave all mail on the server and use Outlook only to view mail.
I would like to write a script, hopefully that a user can run, that will take
a users mailbox and zip it up into a PST file. It is OK (actually best) to
leave the mail on the server but I want it in a PST file for sure. The code
I have right will create a PST file and it will show up when a user opens
Outlook but there is no mail in it and the file is 256K in size. The code is
listed below. Any help would be great.

Function CreateUnicodePST()
Dim myOlApp As New Outlook.Application()
Dim myNameSpace As Outlook.NameSpace
myNameSpace = myOlApp.GetNamespace("MAPI")
myNameSpace.GetDefaultFolder(Outlook.OlDefaultFold ers.olFolderInbox)
myNameSpace.AddStoreEx("c:\Brian2.pst",
Outlook.OlStoreType.olStoreUnicode)
End Function

--
Thanks for the help!
Brian