I need to move each $File attachments from one document to multiple documents. I am currently using the code below to get hold of the attachment, but can't find a way to save it to the other document. Help in solving this problem will be greatly appreciated.
Dim sesCurrent As New NotesSession
Dim dbCurrent As NotesDatabase
Dim docCurrent As NotesDocument
Dim docRDdoc As NotesDocument
Dim item As NotesItem
Dim emb As Variant
Set dbCurrent = sesCurrent.CurrentDatabase
Set docCurrent = sesCurrent.DocumentContext
Set docRDdoc = dbCurrent.Createdocument
Forall i In docCurrent.Items
If i.type = Attachment Then
Set emb = docCurrent.GetAttachment(i.values(0))
"HOW DO I STORE THE OBJECT to docRDdoc"