Dim RTitem As Notesrichtextitem
Set RTitem = New Notesrichtextitem(tdoc,"DominoPDFAttachments")
Dim EO As NotesEmbeddedObject
Set EO = RTitem.EmbedObject (EMBED_ATTACHMENT,"", targetfile , targetfilename)
Call tdoc.save(True,True)