Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim filename As Variant
Set uidoc =ws.CurrentDocument
Set doc = uidoc.Document
Dim path As String
path ="%USERPROFILE%"
filename = ws.OpenFileDialog( True, "Выберите файл(ы)",, path)