La fregatura, sta nel fatto che gli allegati non sono inseriti in un campo, ma tramite da web, tramite file upload... e pertanto me li trovo "embedded" nel documento....
Ma in compenso, questo funziona.... :-)
If docToCheck.HasEmbedded Then
attachmentNames = Evaluate("@AttachmentNames", docToCheck)
If attachmentNames(0) <> "" Then
ForAll attName In attachmentNames
Set o = docToCheck.GetAttachment(attName)
Call o.ExtractFile ( "c:\" & o.Name)
End Forall
End if
End if
|