Un codigo muy util para los administradores puesto que extrae todos los ids del names y después te los elimina
Sub Initialize
Dim ns As New notessession
Dim ndb As notesdatabase
Dim ndcol As notesdocumentcollection
Dim nd As notesdocument
Dim objeto As NotesEmbeddedObject
Set ndb=ns.currentdatabase
Set ndcol=ndb.unprocesseddocuments
Set nd=ndcol.getfirstdocument
For i=1 To ndcol.count
Print "Procesando "& Cstr(i)& " de "& Cstr(ndcol.count) &"documentos."
If nd.HasEmbedded Then
Set o=nd.getattachment("UserId")
Call o.ExtractFile ( "c:\" & nd.firstname(0)+nd.lastname(0)+".id" )
Call o.remove
Call nd.save(True,True)
End If
Set nd=ndcol.getnextdocument(nd)
Next
End Sub
|
Otros documentos de LotusScript
|