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

  • Автор темы Luftwaffe
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

Luftwaffe

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

Sandr

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

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

Luftwaffe

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

D!m@n

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

Код:
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 минут, поэтому, возможно, в нем что-нить не так будет :)
Но зато покопаетесь, отладите и разберетесь в вопросе.
Удачи!
 
L

Luftwaffe

#5
Угу, спасибо огромное, теперь наверняка разберусь... с примером-то проще будет :)
 
Статус
Закрыто для дальнейших ответов.