Cleric-Lviv
Well-known member
Всем привет.
Вобщем такой вопрос.
На форме я инициирую вложение атачментов по следующему принципу.
есть кнопка "прикрепить" на форме много полей рич-текст (16штук) (F1, F2, F3......) в ети поля должни попасть атачменти
При прикриплении я инициурую форму в которой видно в какое поле должен попасть какой файл. и там написано что все файли прикреплятся когда доку сохранить. но вот проблем не подкрепляются а остаются в дополнительной форме...
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim aDoc As NotesDocument
Dim c1 As New WinAPI
Dim path As String
Set aDoc = ws.CurrentDocument.Document
path = c1.GetDirDialog("Оберіть папку, де знаходяться файли заявки...")
If path <> "" Then
aDoc.Message = "Прикріплення файлів з каталогу " & path
aDoc.ff1=wSlash(path) + "F1.JPG"
adoc.upload_1="1"
aDoc.ff2=wSlash(path) + "F2.pdf"
adoc.upload_2="2"
aDoc.ff3=wSlash(path) + "F3.JPG"
adoc.upload_3="3"
aDoc.ff4=wSlash(path) + "F4.pdf"
adoc.upload_4="4"
'цикл ForAll, в якому визначаємо, які файли знаходяться в каталозі, та заповнюємо поля FF1, FF2, т.д., та upload_1, upload_2, і т.д.
flag = ws.DialogBox (".dlgAttach", True, True, False, False, False, False, "Файли", aDoc, True, False, True)
If flag Then
End If
Else
Msgbox "операцію перервано."
End If
Set c1 = Nothing
End Sub
Вобщем такой вопрос.
На форме я инициирую вложение атачментов по следующему принципу.
есть кнопка "прикрепить" на форме много полей рич-текст (16штук) (F1, F2, F3......) в ети поля должни попасть атачменти
При прикриплении я инициурую форму в которой видно в какое поле должен попасть какой файл. и там написано что все файли прикреплятся когда доку сохранить. но вот проблем не подкрепляются а остаются в дополнительной форме...
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim aDoc As NotesDocument
Dim c1 As New WinAPI
Dim path As String
Set aDoc = ws.CurrentDocument.Document
path = c1.GetDirDialog("Оберіть папку, де знаходяться файли заявки...")
If path <> "" Then
aDoc.Message = "Прикріплення файлів з каталогу " & path
aDoc.ff1=wSlash(path) + "F1.JPG"
adoc.upload_1="1"
aDoc.ff2=wSlash(path) + "F2.pdf"
adoc.upload_2="2"
aDoc.ff3=wSlash(path) + "F3.JPG"
adoc.upload_3="3"
aDoc.ff4=wSlash(path) + "F4.pdf"
adoc.upload_4="4"
'цикл ForAll, в якому визначаємо, які файли знаходяться в каталозі, та заповнюємо поля FF1, FF2, т.д., та upload_1, upload_2, і т.д.
flag = ws.DialogBox (".dlgAttach", True, True, False, False, False, False, "Файли", aDoc, True, False, True)
If flag Then
End If
Else
Msgbox "операцію перервано."
End If
Set c1 = Nothing
End Sub