1
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
CTF с учебными материалами Codeby Games
Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.
Dim Wsp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = Wsp.CurrentDocument
Call uidoc.GotoField("Name")
Call uidoc.Import
Можно что-то типа:
Это если документ открыт на редактирование.Код:Dim Wsp As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = Wsp.CurrentDocument Call uidoc.GotoField("Name") Call uidoc.Import
' List the contents of the c:\ directory, one entry per line.
Dim pathName As String, fileName As String
pathName$ = "c:\*.*"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
fileName$ = Dir$()
Loop
но все же не вижу я как можна приатачить в поле файлы..все ,все... понял ,.. не кричите ..
спс ,.. бум смотерть.........
Set rtitem=doc.GetFirstItem("foto")
Call rtitem.Update
' Set rtitem = New NotesRichTextItem( doc, "foto" )
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", puth$+fileName$)
Call rtitem.Update
Call doc.Save( True, True )
1. Апдейт делай только в конце.
2. Проверь соответсвие имени поля на форме и в скрипте, по идее, всё правильно делаешь.
Ошибки нету никакой??
Покажи весь скрипт: как создаётся док, как задекларена переменная rtitem и т.д.
Кусок который ты привёл, какбэ, правильный.
Sub Click(Source As Button)
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim UIdoc As NotesuiDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim rtitem1 As NotesRichTextItem
Set db = s.CurrentDatabase
Set profiledoc=db.GetProfileDocument("setup")
Set UIdoc=ws.CurrentDocument
Set doc=uidoc.Document
puth$=profiledoc.tmpdir(0)
If Right(puth$,1)="\" Then
puth$=Left(puth$,Len(puth$)-1)
End If
puth$=puth$+"\tmp\"
puthName$=puth$ + "*.gif"
fileName$ = Dir$(puthName$, 0)
Call doc.Save( True, True )
Call UIdoc.GotoField("img")
' Set rtitem1 = New NotesRichTextItem( doc, "img" )
Call uidoc.FieldClear("img")
' Call doc.ReplaceItemValue("img", "")
Call UIdoc.Import("gif image", puth$+fileName$)
'Call UIdoc.GotoField("foto")
Set rtitem=doc.GetFirstItem("foto")
'Call rtitem.Update
' Set rtitem = New NotesRichTextItem( doc, "foto" )
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", puth$+fileName$)
'Call rtitem.Update
Call doc.Save( True, True )
Do While fileName$ <> ""
Print fileName$
fileNAMEfin$=puth$ & fileName$
Print fileNAMEfin$
'Call UIdoc.Import("gif image", fileNAMEfin$)
'Call doc.AttachVCard(doc,fileNAMEfin$)
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", fileNAMEfin$)
'Call rtitem.EmbedObject ( EMBED_ATTACHMENT, "", fileNAMEfin$)
Call rtitem.Update
Call doc.Save( True, True )
fileName$ = Dir$()
Loop
End Sub
Call UIdoc.GotoField("img")
Call uidoc.FieldClear("img")
Call doc.ReplaceItemValue("img", "") - это вообще непонятно что
Call UIdoc.Import("gif image", puth$+fileName$)
ыы.........надо смотреть.........Сумбурно однако, неудивительно, что глючит.
Надо бы отделить мух от котлет:
все UI операции типа этих
выпилить отседа.Код:Call UIdoc.GotoField("img") Call uidoc.FieldClear("img") Call doc.ReplaceItemValue("img", "") - это вообще непонятно что Call UIdoc.Import("gif image", puth$+fileName$)
Запомнить, что все операции с ричтекстами присходят в бэкграунд документе и если ты работаешь с ним при открытом uidoc, то после сохранения надо переоткрывать не сохраняя uidoc.
Конкретно в твоём случае, думаю где-то позже ты пересохраняешь doc через uidoc (напримеро по Ctrl + S) и получаешь аттачи внизу под траурной линией.
А вообще код жутковатый
Добавлено: puth, profiledoc - глобальные переменные? Зачем?
Лишние переменные выпили: rtitem1
Option Declare стоит?
Call doc.Save( True, True ) в начале нужен, как зайцу стоп-сигнал.
- это закоментированоCall doc.ReplaceItemValue("img", "") - это вообще непонятно что
Обучение наступательной кибербезопасности в игровой форме. Начать игру!