Как добавить связанный элемент без вложений - PullRequest
Новая
       37

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

0 голосов
/ 15 октября 2019

Я пытаюсь клонировать все связанные элементы и вложения из загруженного электронного письма (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
...