Partager via

AddStore Method

  • Article

Adds a Personal Folders (.pst) file to the current profile.

expression**.AddStore(Store)**

*expression   * Required. An expression that returns a NameSpace object.

Store    Required Variant. The path of the .pst file to be added to the profile. If the .pst file does not exist, Microsoft Outlook creates it.

Remarks

Use the RemoveStore method to remove a .pst that is already added to a profile.

Example

This Microsoft Visual Basic/Visual Basic for Applications (VBA) example adds a new Personal Folders (.pst) file to the user's profile.

Sub CreatePST()
    Dim myOlApp As New Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    myNameSpace.AddStore "c:\" & myNameSpace.CurrentUser & ".pst"
End Sub

If you use Microsoft Visual Basic Scripting Edition (VBScript) in an Outlook form, you do not create the Application object. This example shows how to perform the same task using VBScript.

Sub CommandButton1_Click()
 Set myNS = Application.GetNamespace("MAPI")
 myNS.AddStore "c:\" & myNS.CurrentUser & ".pst"
End Sub

Applies to | NameSpace Object