Как дать диалогу «PickFolder» название

Question

Я пишу некоторый код, в котором пользователю нужно будет выбрать как исходную папку, так и папку назначения, используя:

Set SourceFolder = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder

Set TargetFolder = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder

Есть ли способ придать диалогу селектора папок заголовок, чтобы мне не приходилось использовать окно сообщения или что-то еще, чтобы сообщать пользователю, какую папку они выбирают каждый раз?

Answer 1

Не в объектной модели Outlook. Вы можете либо

а. Создайте собственную форму с необходимой функциональностью
б. Если опция Redemption является опцией, она предоставляет объект RDOSelectFolder , который позволяет установить заголовок диалога (помимо прочего):

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set SelectFoldersDialog = Session.GetSelectFoldersDialog
SelectFoldersDialog.Caption = "Please select your favorite folder"
if SelectFoldersDialog.Display Then
  set Folder = SelectFoldersDialog.SelectedFolder
  MsgBox "selected folder: " & Folder.Name
End If