title image


Smiley Re: Lotus Notes: mehrere Files per Script in RTF anhängen
Mein Vorschlag dafür ist der folgende:Man baue sich eine Ansicht, in der ein Aktionbutton vorhanden ist, der das folgende Script ausführt:sub Aktion_Click() dim Session as new NotesSession dim SourceDB as SourceDatabase dim DestDoc as NotesDocument dim Attachment as NotesEmbeddedObject dim temp as string dim pfad as string temp = "" pfad = "Laufwerk:\Pfad\" set SourceDB = Session.CurrentDatabase do temp = Dir(pfad & "*.*") if trim(temp) "" then set DestDoc = SourceDB.CreateDocument DestDoc.Form = "Name der Maske, mit der man sich die Docs anschaut" Dim Body As New NotesRichTextItem(Body, "Body") Set Attachment = Body.EmbedObject(EMBED_ATTACHMENT, "", pfad & temp) Call DestDoc.Save(True) end if loop while trim(temp) ""end subSollte eigentlich funktionieren.Jörg

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: