Comments on: Copy/Clone a selected document to a new document including richtext field, e.g. http://itknowledgeexchange.techtarget.com/itanswers/copyclone-a-selected-document-to-a-new-document-including-richtext-field-eg/ Tue, 18 Jun 2013 21:45:09 +0000 hourly 1 By: edvabnik http://itknowledgeexchange.techtarget.com/itanswers/copyclone-a-selected-document-to-a-new-document-including-richtext-field-eg/#comment-98457 edvabnik Mon, 31 Oct 2011 10:38:55 +0000 #comment-98457 Here you are:

Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim UIDoc As NotesUIDocument
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument, NewDoc As NotesDocument

Set db = s.CurrentDatabase
Set col = db.UnprocessedDocuments
Set doc = col.GetFirstDocument

Set NewDoc = db.CreateDocument
Call doc.CopyAllItems(NewDoc)
Set UIDoc = w.EditDocument(True, NewDoc)
Call UIDoc.Refresh

]]>