I am trying to save all e-mail attachments to a local hard drive. If I use the following code, it modifies some attachments' modify date. I don't know why this only happens with some attachments. Can you help me?
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
QUESTION POSED ON: 06 JUN 2005
QUESTION ANSWERED BY: Mathew Newman
This issue has been reported in the Notes forum.
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.
|
