Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Dim object As NotesEmbeddedObject Set db = New NotesDatabase( "server", "db" ) Set view = db.GetView( "viewname" )
Set doc = view.GetLastDocument Forall o In doc.EmbeddedObjects Set object = doc.GetAttachment( o ) Call notesEmbeddedObject.ExtractFile( "path to save file to" ) Call
notesEmbeddedObject.Remove End Forall
Requires Free Membership to View
Register today to access targeted resources from our editorial writers and independent industry experts focused on Lotus Domino, Notes, Workplace and other related technologies.
It would appear that if the modification date in the file's properties is AFTER the file's creation date (normally due to copying a file to another location using Windows), then the file when detached to disk has these dates reset, as you have indicated in your question.
Another user posted a similar issue when attaching/extracting files from different disk format's (i.e., NTFS/FAT).
I haven't investigated this myself, but I hope this information points you in the right direction.
This was first published in June 2005