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

[romanko]

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

 

[Omh]

В простейшем случае как-то так

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))

 

[romanko]

В простейшем случае как-то так

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))

Спасибо!!
А как теперь то что хранится в переменной вывести в поле ??

 

[nvyush]

А как теперь то что хранится в переменной вывести в поле ?

Почитать в справке дизайнера про метод NotesDocument.ReplaceItemValue(ItemName, Value)

 

[Kizarek86]

Читайте хелп.
NotesDocument class вам подскажет много интересного и полезного.

 

[romanko]

Почитать в справке дизайнера про метод NotesDocument.ReplaceItemValue(ItemName, Value)

Делю вот так
Dim doc As NotesDocument
Dim item As NotesItem

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

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

 

[Cleric84]

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

 

[nvyush]

Делю вот так
Dim doc As NotesDocument
Dim item As NotesItem

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

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

А где Tmp1 инициализируется? Кстати, и doc тоже.

 

[Medevic]

"Subject" а не Subject

 

[Omh]

romanko

Option Declare

и куча глупых вопросов отпадут сами собой.

 

[romanko]

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]

А почему все через документ? Почему через уидок нельзя?

Например:

 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)

 

[romanko]

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

 

[Cleric84]

romanko

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

 

[romanko]

romanko

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

А как это проверка в коде должна выгледеть?В языке скрипта??

 

[nvyush]

как указать внутри скрипта что сообщение должно прийти от определенного пользователя?

If doc.GetItemValue("From")(0) <> "CN=Vasya V Pupkin/O=Roga And Copyta" Then Exit Sub