sostanzialmente, dato "doc" il notesdocument, e supponendo che gli allegati siano nel campo body, devi fare qualcosa del genere:
dim rtitem as notesrichtextitem
Set rtitem = doc.GetFirstItem("Body")
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( "c:\temp\" + o.name )
End Forall
-- il nuovo evento dominopoin: ddive.dominopoint.it
|