una cosa del genere dovrebbe andare:
Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim body As NotesRichTextItem
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument()
While Not(doc Is Nothing)
If doc.HasEmbedded Then
Set body = doc.GetFirstItem("Body")
Forall att In body.EmbeddedObjects
If att.Type = EMBED_ATTACHMENT Then
filepath$ = "C:\Files\" & att.Source
Call att.ExtractFile(filepath$)
End If
End Forall
End If
Set doc = dc.GetNextDocument(doc)
Wend
End Sub
-- il nuovo evento dominopoin: ddive.dominopoint.it
|