Cleric-Lviv
Well-known member
Всем привет!
вопрос следующий:
есть главний документА, визиваю Dialogbox и создаю новий документБ, делаю документБ документом ответом к документуА + хочу вставить линк на документБ в рт поле документаА. здесь глюк почемуто не хочет вставить линк
плюс еще вопрос
можно ли открить линк через Dialogbox?
вопрос следующий:
есть главний документА, визиваю Dialogbox и создаю новий документБ, делаю документБ документом ответом к документуА + хочу вставить линк на документБ в рт поле документаА. здесь глюк почемуто не хочет вставить линк
плюс еще вопрос
можно ли открить линк через Dialogbox?
Код:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim docres As NotesDocument
Dim item As NotesRichTextItem
Set db = ses.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set item = doc.GetFirstItem("File")
Set docres = New NotesDocument(db)
docres.Form = "Atach"
Call ws.DialogBox("Atach", True, True, False, False, False, False, "Приєднання документів", docres, True, False)
Call docres.MakeResponse(doc)
Call docres.Save (True, False)
Call item.AppendDocLink(docres, "")
End Sub