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域在後臺看數據，前臺不能隱藏。