How can I get the "Last Modified" date of an attachment?

Sub Click(Source As Button)
     Dim workspace As New NotesUIworkspace
     Dim doc As NotesDocument
     Dim item As NotesItem
     
     Set doc = workspace.CurrentDocument.Document
     Set item = doc.GetFirstItem( "$FILE" )
     Msgbox "File: " & item.Values(0) & "; last modified: " &  item.LASTMODIFIED
End Sub

zvonko,

I have just tried your suggestion. It seems that the LastModified property of $FILE returns the same value as the LastModified property of the Rich Text field that contains the attachment. In any case, it dows not return the date/time of the attachment.

thanks for the points ;-)