Z
zum
собственно извлекается вложение
после чего дата изменения файла, дата создания ставится текущим временем.
Что в принципе не прально, мы жеж там ниче не меняли...
Как быть? Надо чтобы дата изменения осталась как во вложении
после чего дата изменения файла, дата создания ставится текущим временем.
Что в принципе не прально, мы жеж там ниче не меняли...
Как быть? Надо чтобы дата изменения осталась как во вложении
Код:
Set rtitem = Doc.getfirstitem( "attFile" )
If ( rtitem.Type = RICHTEXT ) Then
Forall pfile In rtitem.EmbeddedObjects
If ( pfile .Type = EMBED_ATTACHMENT ) Then
Filename = Dir+fsep+pfile .Name
Call pfile .extractfile ( Filename )
End If
End Forall
End If