See http://www.outlookcode.com/codedetail.aspx?id=962 for a code sample.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

wrote in message oups.com...
It's easy to create a pst using this code:

Dim objOutlook, objNameSpace

Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
objNameSpace.AddStore pstfileName
Set objNameSpace = Nothing
Set objOutlook = Nothing

How I can set it's display name instead of it choosing the default
("Personal Folders") when creating it?