Как добавить связанный элемент без прикрепления

Question

Я пытаюсь клонировать все связанные элементы и вложения из загруженного сообщения электронной почты (POP3) в новое сообщение электронной почты, но когда я вызываю AddRelatedData, Chilkat внутренне добавляет вложение, создавая дубликат связанного элемента.

Когда я пытаюсь удалить только дублированное вложение с помощью DropSingleAttachment, связанный элемент также удаляется.

Как я могу добавить связанный элемент, не добавляя его как вложение?

РЕДАКТИРОВАТЬ:

For attach As Integer = 0 To correos.NumAttachments - 1
    correo.AddDataAttachment2(correos.GetAttachmentFilename(attach), correos.GetAttachmentData(attach), correos.GetAttachmentContentType(attach))
Next
For embed As Integer = 0 To correos.NumRelatedItems - 1
    Dim auxContentID = correos.GetRelatedContentID(embed)
    Dim auxContentType = correos.GetRelatedContentType(embed)
    Dim auxFilename = correos.GetRelatedFilename(embed)
    Dim auxRelatedData = correos.GetRelatedData(embed)
    correo.AddRelatedData(auxFilename, auxRelatedData)
    correo.AddRelatedHeader(embed, "Content-ID", "<" & auxContentID & ">")
Next