例: AppendRTItem method

次のスクリプトは、文書 B 内の Body アイテムを取得し、その項目を文書 A の Body アイテムの末尾に追加します。文書 B の Body アイテムは NotesItem で定義された Remove メソッドで削除されます。

Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
'...set values of docA and docB...
Set rtitemA = docA.GetFirstItem( "Body" )
Set rtitemB = docB.GetFirstItem( "Body" )
If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
  Call rtitemA.AppendRTItem( rtitemB )
  Call rtitemB.Remove
  Call docA.Save( False, True )
  Call docB.Save( False, True )
End If

次のスクリプトは、文書の保存を促すプロンプトを表示せずに、1 つの RTItem を別の RTItem に追加する様子を示します。この例では UI のバックエンドクラスの使い方を示しています。

Sub Click(Source As Button)
  Dim w As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim docA As NotesDocument
  Dim rtitemA As Variant
  Dim rtitemB As Variant
  Set uidoc = w.CurrentDocument
  Set docA = uidoc.Document
  Call uidoc.Save
  Set rtitemA = docA.GetFirstItem( "Body" )
  Set rtitemB = docA.GetFirstItem( "Body1" )
  If ( rtitemA.Type = RICHTEXT And _
  rtitemB.Type = RICHTEXT ) Then
    Call rtitemA.AddNewLine(1)
    Call rtitemA.AppendRTItem( rtitemB )
    docA.body1 = " "
    docA.SaveOptions = "0"
    Call docA.Save(False, True)
    Call uidoc.Close
  End IF
End Sub

注: 変更は文書が閉じられて再度開かれるまでは目で確認することはできません。また、AppendRichTextItem メソッドは RichTextItem の最初の 32K だけを追加し、残りは切り捨てることに注意してください。