如何从notes richtextitem中提取图像？

Question

我想将图像从一个笔记文档复制到另一个笔记数据库中的另一个文档。图像应该在RichText元素中。我可以看到图像，但行

       Set CRMPhoto = rtnav.GetFirstElement(RTELEM_TYPE_FILEATTACHMENT)

不会填充CRMPhoto。也就是说，CRMPhoto没什么。请帮忙!!!

    Dim rtnav As NotesRichTextNavigator
    Dim rti As NotesRichTextItem
    Dim  CRMPhoto As Variant

    Set rti = doccrm.GetFirstItem("Seller_Photo")
    'Set rti = doccrm.Seller_Photo(0)

    Set rtnav = rti.CreateNavigator
    Set CRMPhoto = rtnav.GetFirstElement(RTELEM_TYPE_FILEATTACHMENT)

    If CRMPhoto  Is Nothing Then
        Messagebox "Document contains no image"
        Exit Function
    End If

    While Not(CRMPhoto Is Nothing)

        Set CRMPhoto = rtnav.GetNextElement
    Wend