判断富文本是否为空

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	
	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document
	
	Dim rtfitem As NotesRichTextItem
	Set rtfitem = doc.GetFirstItem("Body")
	Dim txt As String
	txt$ = uidoc.FieldGetText("Body")
	trimmed$ = Trim(txt$)
	If Not (doc.HasEmbedded) Then
		If trimmed$ = "" Then
			Msgbox "请输入数据或者附件",48,"提示"
			uidoc.GotoField("Body")
			uidoc.Refresh
		End If
	End If
	
End Sub

检查富文本是否包含附件或者其他字符串