如何给'PickFolder'对话题名

时间:2018-04-26 18:09:02

标签: vba outlook outlook-vba

我正在编写一些代码,用户需要使用以下方法选择源文件夹和目标文件夹:

$nodes_table = "a","b","c"
$nodes_list = "a","b","c"

     :Outer foreach ($item in $nodes_table) {
        foreach($node in $nodes_list)
        {
            if($node -eq $item)
            {
                Write-Output "$node hostname matches in vTM"
                break :Outer
            }           
        }        
    }

有没有办法让文件夹选择器对话框成为标题,这样我就不必使用消息框或其他东西来告诉用户每次选择哪个文件夹?

1 个答案:

答案 0 :(得分: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