Форум продуктов IBM Lotus

Общие вопросы => Разработка приложений => Тема начата: Nastya от 20 Ноябрь 2009, 23:14:55

Название: Вложение файла при отправке письма
Отправлено: Nastya от 20 Ноябрь 2009, 23:14:55

Добрый день!!! Задача  стоит такая: отправляется письмо на электронный ящик, работает через агента:
                                                             
   Call SendDoc.ReplaceItemValue("Form","Memo")
   Call SendDoc.ReplaceItemValue("Body", body)
            ....

   Call SendDoc.Send(True)

Надо в письмо прикрепить файл, не ссылку на файл, а имено файл. Как это реализовать ? Заранее пасибо )))

Название: Re: Вложение файла при отправке письма
Отправлено: ViV от 23 Ноябрь 2009, 10:50:23

Добрый день!
Можно так:

Код: [Выделить]

Set rtitem = New NotesRichTextItem( SendDoc, "Body" )
Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", "путь к файлу")


Название: Re: Вложение файла при отправке письма
Отправлено: Nastya от 25 Ноябрь 2009, 00:45:11

Спасибо))) Воспользовалась вашим советом, только вот опять тупик )))
Не знаю  как путь к файлу прописать, пробовала вплоть до жесткого задания пути- не пашет ((
Вот результаты
  у меня выводит ошибку
               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)

Может это неправильный способ для того чтобы  вложить аттач....?


 

Название: Re: Вложение файла при отправке письма
Отправлено: ViV от 27 Ноябрь 2009, 14:38:52

Чтобы прикрепить файл к документу из другого документа, можно
- либо скопировать все поля из одного документа в другой (notesDocument.CopyAllItems) и затем удалить лишние,
- либо сначала выгрузить файл во временную директорию и потом из нее прикрепить.