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

Тема в разделе "Lotus - Программирование", создана пользователем Fan13tom, 22 ноя 2005.

Статус темы:
Закрыта.
  1. Fan13tom

    Fan13tom Гость

    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей