Quindi usi Il "File Upload". Nell\'agente che salva il documento puoi scrivere questo
If doc.HasEmbedded Then
Set itemRit = doc.GetFirstItem( "$File" )
itemType% = itemRit .Type
If itemType%=1084 Then
array=doc.GetItemValue( "$File" )
Set p= doc.GetAttachment( array(0) )
Call p.ExtractFile( "c:\" & array(0)) \' Estraggo l\'attachment
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "c:\" & array(0) ) \' lo inserisc nel mio campo richtext
Kill "c:\" & array(0) \' Rimuovo il file temporaneo
End If
Ciao
Marco
End If
|