опять про аттачи :(

[Luftwaffe]

Есть необходимость вставлять аттачи (вордовские файлы) в документы. что-то вроде тех.библиотеки. типа 1 аттач - один документ. аттачей много 500 шт. хочется (если такое возможно) наваять скриптик, что бы он раскладывал файлы по принципу один файл - один документ. подскажите, плз. в какую сторону копать... программать под Лотус начал 1,5 мес.назад, только учусь

 

[Sandr]

Тобишь вордовские файлы уже лежат в какой-то папке? Тогда скриптик будет простой... Бегать по каждому файлу в папке, создавать на беэнде документ, аттачить к нему один файлик, сохранять докумен - и так, пока все файлы не пройдет...

Копать в сторону NotesRichTextItem.EmbedObject

 

[Luftwaffe]

а чуть поточнее можно, я ж говорю 1,5 месяца тока... лотусячник уволился, ну на меня и свалили...

 

[D!m@n]

Есть папка с файлами, которые надо приаттачить к докам, так?

Dim s As New NotesSession
Dim thisdb As NotesDatabase
Dim doc As NotesDocument
Dim RTItem As NotesRichTextItem

Set thisdb=s.CurrentDatabase

fn$=dir$("c:\temp\*.doc") ' предположим, надо аттачить файлы doc из c:\temp
Do until fn$=""
Set doc=thisdb.CreateDocument
doc.Form="<имя формы>" ' поле формы не забудьте задать
Set RTItem=doc.CreateRichTextItem("<имя RTF-поля>") ' создаем в документе RTF-поле
Call RTItem.EmbedObject(1454, "", "c:\temp\" & fn$) ' крепим аттачмент
Call doc.Save(1, 0) ' сохраняем документ

fn$=dir$()
Loop

Код я написал здесь за 5 минут, поэтому, возможно, в нем что-нить не так будет
Но зато покопаетесь, отладите и разберетесь в вопросе.
Удачи!

 

[Luftwaffe]

Угу, спасибо огромное, теперь наверняка разберусь... с примером-то проще будет