Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby
1. Цифровая криминалистика и реагирование на инциденты2. ОС Linux (DFIR) Старт: 16 мая3. Анализ фишинговых атак Старт: 16 мая
Устройства для тестирования на проникновение Старт: 16 мая
уже прочитал и врубился... конечно, в ресурсы файло, с которым работать - не самое лучшее решение... я, например, предпочитаю док того же профайла или какой-либо настроечный документ (шаблонов может быть много - какие-нибудь договора) и цеплять их в справочные доки....
уже прочитал и врубился... конечно, в ресурсы файло, с которым работать - не самое лучшее решение... я, например, предпочитаю док того же профайла или какой-либо настроечный документ (шаблонов может быть много - какие-нибудь договора) и цеплять их в справочные доки....
Klidо, может скинешь код , как ты из настроечного файла файл сохраняешь, делаю как в мануале ничего не получается (((
Мы когда просто файл на форму аттачим, он в поле "Body" сохраняется ?
'пусть в doc у нас док настроек и там 1 аттач
Dim rtitem As NotesRichTextItem
Set rtitem = doc.GetFirstItem("Doc_Attach")
If doc.HasEmbedded Then
Forall o In rtitem.EmbeddedObjects
'way - каталог выгрузки, его формируем выше или можно на ходу
Call o.ExtractFile (way &"/"& o.name)
End Forall
End If
А аттач точно в рт-поле?
Можно попробовать взять аттач к документу через Set notesEmbeddedObject = notesDocument.GetAttachment(fileName$)
Код:
Dim v2File as notesitem
Set v2File = fileDoc.GetFirstItem ( "$File" )
If Not v2File Is Nothing Then
If Isarray(v2File.Values) Then
Set o = fileDoc.GetAttachment (v2File.Values(0))
Кхм... Давай по порядку. Создается форма под справочный док. На форме создается РТФ-поле. В это поле аттачится нужное файло. В процессе работы получаешь справочный док любым удобным способом, например, notesDataBase.GetDocumentByID. Имея док, обращаешся по имени к РТФ-полю в нем и экстрактишь файло. Точка...
Например вкратце так
Код:
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase.Database
Dim doc As NotesDocument
Dim Obj As NotesEmbeddedObject
' =========обработка профайла и выгрузка шаблона=======
If Dir("C:\Tmp",16)="" Then Mkdir "C:\Tmp"
Set doc = db.GetDocumentByID("000009AE") ' взяли служебный документ по ИД
Set Obj=doc.GetAttachment("шаблон.dot")
Call Obj.ExtractFile("C:\Tmp\шаблон.dot")
' ===========================================
можно и оттуда его выцепить, но смысл в том, что в настроечном документе всегда можно поменять аттач без изменений дизайна - это может сделать уполномоченный юзер самостоятельно...
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.