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?

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

<(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> 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?
>