追加RTF域值

 

 

 

Sub AddReadLog(doc As NotesDocument,strLog As String)
 Dim item As Variant
 Set item = doc.GetFirstItem("F_ReadLog")
 If item.Type <> RICHTEXT Then
  Set item = New NotesRichTextItem(doc,"F_ReadLog")
 End If
 Call item.AppendText(strLog)
 Call item.AddNewLine(1)
End Sub