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
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