Вложение Изображения При Сканировании

  • Автор темы paclord
  • Дата начала
P

paclord

Гость
#1
Здравствуйте возник такой вопрос, настроил сканирование изображений через Notes клиент при помощи ETZW32.DLL на форме документа поместил кнопку в которой её продекларировал, затем прописал действие Click

Код:
Sub Initialize
Call TWAIN_AcquireToClipboard(0,0)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( "Body" )
Call uidoc.Paste
End Sub
Вопрос в следующем: когда изображение прикрепляется к РТ полю я вижу его тело целиком, а мне необходимо чтобы заместо самого изображения появлялся значок прикреплёного файла при нажатии по которому бы вылазило меню Открыть, измнить итд. Возможно ли это сделать ? И как ? :)
Просто если прикреплять вложение вручную с указанием пути по форумуле см. ниже то оно прикрепляется так как нужно..
Код:
@Command([EditGotoField];"Body");
@Command([EditInsertAttachment])
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
paclord
код из кнопки переместите в агент, а на кнопку киндайте А-Формулу,

1. Вызов агента, сканирование, сохранение в файл
2. переход в поле
3. внедрение вложения согласно имени из п.1
 
P

paclord

Гость
#3
paclord
код из кнопки переместите в агент, а на кнопку киндайте А-Формулу,

1. Вызов агента, сканирование, сохранение в файл
2. переход в поле
3. внедрение вложения согласно имени из п.1
Спасибо :) буду пробывать
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
paclord
нарыл у себя старую базу, так вот, может быть затык

т.к. в любом случае функции будут выполняться асинхронно, надо както дождаться момента от запуска агента, до создания на диске файла - я пользовался javascript-ом
 
P

paclord

Гость
#5
а возможно ли сканируемый файл из буфера обмена прицепить в нужном виде ? я имею в виду не сохраняя его
 

Мыш

Well-Known Member
Lotus team
12.02.2008
1 085
13
#6
т.к. в любом случае функции будут выполняться асинхронно
Я делал все в разных агентах и выполнял их последовательно (через ToolsRunMacro) - вроде, все синхронно было. Мож, не замечал ? :)
 

morpheus

скриптописец
07.08.2006
3 915
1
#7

Constantin A Chervonenko

Well-Known Member
Lotus team
30.05.2006
1 333
4
#8
Код:
Sub Initialize
Call TWAIN_AcquireToClipboard(0,0)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( "Body" )
Call uidoc.Paste
End Sub
мне необходимо чтобы заместо самого изображения появлялся значок прикреплёного файла при нажатии по которому бы вылазило меню Открыть, измнить итд. Возможно ли это сделать ? И как ? :)
Так в этой ДиЛяЛьке кроме TWAIN_AcquireToClipboard есть так-же и TWAIN_AcquireToFilename