guarda se quanto segue ti aiuta:
...
Dim rtitem As NotesRichTextItem
Set rtitem = doc.GetFirstItem( "Body" )
Forall o In rtitem.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then
Call o.ExtractFile("c:\temp\" & o.Name)
End If
End Forall
...
-- il nuovo evento dominopoin: ddive.dominopoint.it
|