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)