Спасибо))) Воспользовалась вашим советом, только вот опять тупик )))
Не знаю как путь к файлу прописать, пробовала вплоть до жесткого задания пути- не пашет ((
Вот результаты
у меня выводит ошибку
File ... not found at line
и указывает на строку
Set inputAttachment = rtItem.EmbedObject(EMBED_ATTACHMENT, "",FilePath),
---------------------------------
так как у меня прикрепленный файл находится в сохраненном документе , то использовала следующий код
Dim rtItem As New NotesRichTextItem( SendDoc, "Body" )
Dim inputAttachment As NotesEmbeddedObject
Set rtItem = SendDoc.GetFirstItem ( "Body" )
Dim v2File As NotesItem
Dim tempDirectory As String
Dim fileName As String
Dim filePath As String
Set v2File = doc.GetFirstItem ( "$File" )
fileName = v2File.Values(0)
Set inputAttachment = doc.GetAttachment ( fileName )
'--Определение пути к каталогу для временного сохранения файла
tempDirectory = s.GetEnvironmentString ( "Directory", True )
filePath = tempDirectory + "\" + fileName
ну и строчка с ощибкой
Set inputAttachment = rtItem.EmbedObject(EMBED_ATTACHMENT, "",FilePath)
Может это неправильный способ для того чтобы вложить аттач....?
