R
15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
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))
Спасибо!!В простейшем случае как-то такКод: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))
Почитать в справке дизайнера про метод NotesDocument.ReplaceItemValue(ItemName, Value)А как теперь то что хранится в переменной вывести в поле ?
Делю вот такПочитать в справке дизайнера про метод NotesDocument.ReplaceItemValue(ItemName, Value)
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
А где Tmp1 инициализируется? Кстати, и doc тоже.Делю вот так
Dim doc As NotesDocument
Dim item As NotesItem
Set item = doc.ReplaceItemValue( Subject, Tmp1 )
Call doc.Save( True, True )
но в поле не выводится значение переменной Tmp1
Sub Click(Source As Button)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
ООО!Все работает!Спасибо всем за помощь!)))romanko
и куча глупых вопросов отпадут сами собой.Код:Option Declare
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
ви ведь знаете кто должен прислать письмо. в коде ставите проверку и все))) если "тру" агент отрабативает если "фалс" тогда exit sub
как указать внутри скрипта что сообщение должно прийти от определенного пользователя?
If doc.GetItemValue("From")(0) <> "CN=Vasya V Pupkin/O=Roga And Copyta" Then Exit Sub
Обучение наступательной кибербезопасности в игровой форме. Начать игру!