HELP - Dialogbox and richtext

i use Dialogbox to compose new doc.user input all field and attach file into body field. when user click ok then newdoc will create but body field (richtext type) cannot save with attach file.

please help me.

Subject: Can you post the code you use

Subject: This is my code

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)

continue = False

Dim doc As NotesDocument

Dim ws As New NotesUIWorkspace

Set doc = Source.Documents.GetFirstDocument()

If Not doc Is Nothing Then

 If ws.DialogBox("frVBCD",True, True,False,True,True,,"Update Information",Doc, True,,True) Then			

Call doc.Save(True,False)	

Call source.View.Refresh 

  End If

End If

End Sub


in my frVBCD from, i have 1 richtext field. when i compose document, i can attach file and save document normally.

when i double click in view to edit current document with dialogbox. i can save all change but i can’t save document with attach file

please help me!