Считать текст с поля

  • Автор темы romanko
  • Дата начала
R

romanko

Гость
#1
Подскажите пожайлуста, как по нажатию кнопки считать с поля текст загнать его в переменную?
 

Omh

Well-Known Member
Lotus team
04.07.2007
2 210
1
#2
В простейшем случае как-то так
Код:
Dim ws As New NotesUIWorkspace
Dim uiDoc As NotesUiDocument
Dim Doc As NotesDocument
Set uiDoc = ws.CurrentDocument
Set Doc = uiDoc.Document

Dim Tmp As String
Tmp = Cstr(Doc.GetItemValue("FLD")(0))
 
R

romanko

Гость
#3
В простейшем случае как-то так
Код:
Dim ws As New NotesUIWorkspace
Dim uiDoc As NotesUiDocument
Dim Doc As NotesDocument
Set uiDoc = ws.CurrentDocument
Set Doc = uiDoc.Document

Dim Tmp As String
Tmp = Cstr(Doc.GetItemValue("FLD")(0))
Спасибо!!
А как теперь то что хранится в переменной вывести в поле ??
 

Kizarek86

Well-Known Member
Lotus team
20.07.2007
863
6
#5
Читайте хелп.
NotesDocument class вам подскажет много интересного и полезного.
 
R

romanko

Гость
#6
Почитать в справке дизайнера про метод NotesDocument.ReplaceItemValue(ItemName, Value)
Делю вот так
Dim doc As NotesDocument
Dim item As NotesItem

Set item = doc.ReplaceItemValue( Subject, Tmp1 )
Call doc.Save( True, True )

но в поле не выводится значение переменной Tmp1
 

Cleric-Lviv

Well-Known Member
Lotus team
03.01.2008
600
0
#7
romanko

Код:
dim ws as new notesuiworkspace
dim uidoc as notesuidocument
dim doc as notesdocument
dim item as notesitem

set uidoc = ws.currentdocument
set doc = uidoc.document

Set item = doc.ReplaceItemValue( Subject, Tmp1 )
Call doc.Save( True, True )
call uidoc.refresh
 

Omh

Well-Known Member
Lotus team
04.07.2007
2 210
1
#10
romanko
Код:
Option Declare
и куча глупых вопросов отпадут сами собой.
 
R

romanko

Гость
#11
romanko

Код:
dim ws as new notesuiworkspace
dim uidoc as notesuidocument
dim doc as notesdocument
dim item as notesitem

set uidoc = ws.currentdocument
set doc = uidoc.document

Set item = doc.ReplaceItemValue( Subject, Tmp1 )
Call doc.Save( True, True )
call uidoc.refresh
Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
Dim uiDoc As NotesUiDocument
Dim Doc As NotesDocument
Dim Tmp As String
Dim Tmp1 As String

Set uiDoc = ws.CurrentDocument
Set Doc = uiDoc.Document

Tmp = Cstr(Doc.GetItemValue("Subject")(0))
Tmp1 = Dos2Win(Tmp)

Dim item As notesitem

Set uidoc = ws.currentdocument
Set doc = uidoc.document

Set item = doc.ReplaceItemValue( , Tmp1 )
Call doc.Save( True, True )
Call uidoc.refresh

End Sub

ничего не выводит.


Добавлено:
romanko
Код:
Option Declare
и куча глупых вопросов отпадут сами собой.
ООО!Все работает!Спасибо всем за помощь!)))
 

Xalet

Well-Known Member
08.08.2008
410
0
#12
А почему все через документ? Почему через уидок нельзя?

Например:

Код:
 Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim composed As String
Set uidoc = workspace.CurrentDocument
composed = uidoc.FieldGetText( "DateComposed" )
...
call uidoc.FieldSetText("SomeFiled2", composed)
 
R

romanko

Гость
#13
А можно ли этот код вставить в агент чтобы при получении письма от определенного пользователя он отрабатывался. Если возможно то как это реализовать?
Поидеи можно жеш агенту поставить условие чтобы он срабатывал перед поступлением нового сообщения, тогда как указать внутри скрипта что сообщение должно прийти от определенного пользователя?
 

Cleric-Lviv

Well-Known Member
Lotus team
03.01.2008
600
0
#14
romanko

ви ведь знаете кто должен прислать письмо. в коде ставите проверку и все))) если "тру" агент отрабативает если "фалс" тогда exit sub