Есть задача модифицировать форму контактов Outlook. Например надо добавить текстовое поле и кнопку обзора файлов.

Сделал процедурку на кнопку.

sub CommandButton1_click()
dim objDialog
objDialog = createObject("SAFRCFileDlg.FileOpen")
intResult = objDialog.OpenFileOpenDlg
TextBox2.Text = objDialog.FileName
end sub

Во первых outlook не видит класс SAFRCFileDlg. Как не видит ничего кроме перечисленных у него в списке. Во вторых не получается обратиться к полю TextBox2. Наверняка все просто, помогите разобраться.

В нем и делаю.

К полю обратиться получилось
Set oPage = Item.GetInspector.ModifiedFormPages
Set oCntl = oPage("Новая").Controls("TextBox2")
oCntl.value = ""

насчет объектов пока не разобрался