Lo más importante es:
Creamos un File Upload que nos permitirá anexar un fichero desde web.
Pero la coña de todo el asunto es que tenemos que crear un campo Body (texto formateado
calculado y oculto en Edición)
Lo más importante es:
Creamos un File Upload que nos permitirá anexar un fichero desde web.
Pero la coña de todo el asunto es que tenemos que crear un campo Body (texto formateado,calculado y oculto en Edición)
Cuando se añexa un fichero desde web, éste lo mete como un objeto incrustado en el documento no en un campo. EL campo especial que tiene el documento es el $File.
Cuando hemos anexado el fichero y lo vemos en notes, el campo Body coge el fichero, con lo cual podemos jugar con el fichero como queramos.
Este script extrae el fichero a un directorio
Set rtitem = nd.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "d:\\ficheros\\descarga\\" & o.Source )* lo señalado en rojo es importantisimo puesto que es el fichero
End If
End Forall
End If
|
Otros documentos de LotusScript
|