RTF域的备份(调用AppendRTItem方法)

由于需要将审批流程记录保存,但是审批流程记录保为RTF域,因为保存时,方法如下:

 

 Dim itemLogNew As NotesRichTextItem
 Dim itemLog As NotesItem 
 Dim itemlogOld As NotesRichTextItem

 

 Set itemlogOld=uidoc.GetFirstItem("F_ReviewLog")
 Set itemLog = uidoc.GetFirstItem("F_ReviewLog_Old")

 

 

 If itemLog.Type <>RICHTEXT Then
  Call itemLog.Remove() 
  Set itemLogNew = New NotesRichTextItem(uidoc, "F_ReviewLog_Old" )
  Call itemLogNew.AppendRTItem(itemlogOld)
 Else
  Set itemLogNew = uidoc.GetFirstItem("F_ReviewLog_Old")
  Call itemLogNew.AppendRTItem(itemlogOld)
 End If

 

 

切记：AppendRTItem方法在使用时，会将隐藏公式也进行copy，不然有时候RTF域在后台看数据，前台不能隐藏。