Создать pst файл с произвольным именем - PullRequest
Новая
       21

Создать pst файл с произвольным именем

1 голос
/ 21 января 2020

Я создаю новый файл pst, используя приведенный ниже код. Но PST-файл создается с именем по умолчанию «Outlook Data File» в Outlook. Я не нахожу никакой опции, чтобы установить имя нового файла PST. 

Set objNS = objOutlook.GetNamespace("MAPI")
objNS.AddStoreEx "C:\Users\pitarr\Documents\Outlook Files\f23.pst",2

pst file name

1 Ответ

0 голосов
/ 21 января 2020

Попробуйте вызвать метод SetProperty объекта PropertyAccessor, возвращаемого добавленным хранилищем данных. Например: 

Const PR_DISPLAY_NAME = "http://schemas.microsoft.com/mapi/proptag/0x3001001F"
Dim oStore, oPA
For Each oStore in objNS.Stores
    If oStore.FilePath = "C:\Users\pitarr\Documents\Outlook Files\f23.pst" Then
        Set oPA = oStore.PropertyAccessor
        oPA.SetProperty PR_DISPLAY_NAME, "SomeNewName"
    End If
Next

В противном случае посмотрите, достаточно ли переименование папки магазина root, как предлагает Lankymart: 

Dim oStore, oFolder
For Each oStore in objNS.Stores
    If oStore.FilePath = "C:\Users\pitarr\Documents\Outlook Files\f23.pst" Then
        Set oFolder = oStore.GetRootFolder()
        oFolder.Name = "SomeNewName"
    End If
Next

Кстати, оба приведенных выше примера не проверены, и может зависеть от используемой кодировки.

Надеюсь, это поможет.

...