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.
Related Q&A from Mathew Newman
SearchDomino.com Sametime administration expert Mathew Newman explains-step-by-step how to enable communication between multiple Lotus Sametime ...continue reading
If Lotus Sametime users on different "home" servers cannot see each other online, you may need to change your Sametime server awareness by creating ...continue reading
SearchDomino.com's Sametime administration expert Mathew Newman offers advice to a Lotus Notes administrator looking for resources for deploying ...continue reading
Have a question for an expert?
Please add a title for your question
Get answers from a TechTarget expert on whatever's puzzling you.