Как скопировать Id из адресной книги?

[NeoSimvolist]

Я пробовал следующим образом

query$ ="SELECT Form = ""Person"" & FirstName=""" + FirstName$ +"""" + " & LastName=""" + LastName$ + """" + " & MiddleInitial=""" + MiddleName$ + """"
Set Coll = AddressBook.Search(query$, DateTime, 0)
Set PersonDoc = coll.GetFirstDocument
If Not (PersonDoc Is Nothing) Then
Set item = PersonDoc.GetFirstItem( "$File" )
Call item.CopyItemToDocument(curDoc, "user_idfile" )
Call curDoc.Save(False, False)
end if

Система пишет, что нельзя так делать)

 

[Cleric84]

NeoSimvolist
1. curDoc --- определен?
2. зачем копировать? нужно убивать ид в АК. Так что лутше иначе делать например:

копировать документ но на принимающей стороне принимать только некоторие значения документаАК, поле с ид файлом + имя ну и еще пару полей. плюс удалять ид из АК

Set item = CurrentDoc.GetFirstItem("DocContainer") ' ТИП ПОЛЯ РИЧ-ТЕКСТ
If Not item Is Nothing Then
Set docdst = CurrentDoc.CopyToDatabase( dbdst )
docdst.form = "moveddoc"
Call docdst.save(True, True)
If Not(Isempty(item.EmbeddedObjects)) Then
Forall ob In item.EmbeddedObjects
If ob.Type = EMBED_ATTACHMENT Then
Call ob.Remove
End If
End Forall
End If				
End If
call CurrentDoc.Save(true, true)

 

[Akupaka]

Set item = PersonDoc.GetFirstItem( "$File" )

Копировать надо RT-итем, который вложение держит, а не файл.
А вообще, то какова суть задачи? Воруешь ай-дишки?!!

 

[NeoSimvolist]

Мне нужно просто перенести ID в поле типа RichText в другом документе. Как это сделать?