Как копировать Richtext поле ?

[11BOSS11]

Помогите, кто чем может, ?!!
Нужен агент который возьмет нужное RichText поле нужного документа , создаст новый документ в теневом режиме, и скопирует туда RichText поле .
:what?:

Добавлено:

Помогите, кто чем может, ?!!
Нужен агент который возьмет нужное RichText поле нужного документа , создаст новый документ в теневом режиме, и скопирует туда RichText поле .
:what?:

Вот написал такой код, а он как то криво работает!!
получается , если просматривать в свойствах созданого документа поля,- то там всетаки записывается RichText,
а заходиш в сам документ,- глюк какойто! - поле пустое, и малотого, нету второй закрывающей скобки самого поля.....

Sub Initialize

Dim sess As New notessession
Dim wksp As New notesuiworkspace 
Dim db As notesdatabase
Dim view As notesview
Dim newdoc As notesdocument 
Dim TableName As String 
Set db=sess.CurrentDatabase

Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtitem As NotesRichTextItem
Dim rtitemA As NotesRichTextItem
Dim rtitemB As NotesRichTextItem
'...set values of docA and docB...
Set dc = db.UnprocessedDocuments
Set docA = dc.GetFirstDocument

Set docB = New notesdocument( db )
docB.form = "Pechat" 
Call docB.save(True, True)	

Set rtitemA= docA.GetFirstItem("prn_table")
Set rtitemB = New NotesRichTextItem ( docB, "pole1" )
'Call rtitem.AppendRtitem(rtitem)
Call rtitemA.CopyItemToDocument( docB, "pole1" )
Call docA.Save( False, True )
Call docB.Save( False, True )
End Sub

 

[11BOSS11]

АУУУУУУУУУ!!
люди неужели никто не знает!!??

 

[Klido]

1ККК примеров что тут на форуме, что в инете, а Пт всех наплющила - уже сил нет искать по N-му кругу....

 

[11BOSS11]

1ККК примеров что тут на форуме, что в инете, а Пт всех наплющила - уже сил нет искать по N-му кругу....

так вот я вроде и написал код,. но ктобі посмотрел и сказал в чем ошибка?..
чтото я не так делаю.......... :happy:

 

[Akupaka]

Sub Initialize

Dim sess As New notessession
Dim db As notesdatabase
dim dc as notesdocumentcollection
Dim docA As NotesDocument
Dim docB As NotesDocument

Set db=sess.CurrentDatabase
'...set values of docA and docB...
Set dc = db.UnprocessedDocuments
Set docA = dc.GetFirstDocument

Set docB = New notesdocument( db )
docB.form = "Pechat"

if docA.HasItem("prn_table") Then
docB.CopyItem(docA.GetFirstItem("prn_table"), "pole1")
End if

Call docB.Save( true, True )
End Sub