Помогите люди добрые

  • Автор темы Fan13tom
  • Дата начала
Статус
Закрыто для дальнейших ответов.
F

Fan13tom

Гость
#1
Set db = session.CurrentDatabase
Set view = db.GetView("vAttachments")
Set view1 = db.GetView("fNewByAuthors")
Set doc= ws.CurrentDocument
Call doc.Save
'Call doc.Document.Save(False,True)
askme = ws.Prompt(PROMPT_OKCANCELLISTMULT, "Select a Name", "Select one or more names as recipients for this request.", "", doc.Document.Verantwortlich)
temp_dir = Environ("Temp")
If Isempty(askme) Then
Messagebox "User canceled", , "No one selected"
Else
Forall ask In askme
Print "\"+Cstr(ask)+"\"
t = Cstr(ask)
Set doc1=view.GetDocumentByKey(t)
Set object = doc1.GetAttachment(t)

'GetFirstItem( "fldAttachments" )

If doc.Document.HasItem ("RTItem") Then
Set rtItemB = doc.document.GetFirstItem ("RTItem")
Else
Set rtItemB = New NotesRichTextItem ( doc.Document,"RTItem")
End If

' Set object =rtitemA.GetEmbeddedObject(t)
Call object.ExtractFile(temp_dir + "\" + object.Name)
file_path = temp_dir + "\" + object.Name

>>>>>>> Set object=rtItemB.EmbedObject(EMBED_OBJECT, "", file_path) Эта строка добавляет объект, но у него нет свойства изменить.
'Call rtitemB.EmbedObject(EMBED_ATTACHMENT, "", file_path)
Kill file_path
End Forall
End If



End Sub
 
Статус
Закрыто для дальнейших ответов.