Nos creamos un agente.
Abrimos el documento y ejecutamos el agente.
Este agente extrace a launidad c los anexos de todos los campos de tipo texto enriquecido y después los elimina
Sub Initialize
Dim doc As NotesDocument
Dim uidoc As notesuidocument
Dim w As New notesuiworkspace
Set uidoc=w.currentdocument
Set doc = uidoc.document
Forall i In doc.Items
If i.type = Attachment Then
Set emb = doc.GetAttachment(i.values(0))
Call emb.extractfile("C:\" & emb.name)
Call emb.remove
Call doc.save(1,1)
Exit Forall
End If
End Forall
End Sub
|
Otros documentos de LOTUSSCRIPT
|