dateianhang in berechnetes RTF

[locorida]

Hi,

also wir haben folgendes Problem:
In einer Maske soll ein berechnetes RTF sein, per Knopfdruck soll ein Dateianhang in dieses Feld geschrieben werden. (Das Feld soll nie bearbeitbar sein)
 
Frage:
Gibt es eine Möglichkeit soetwas zu realisieren?
 


Danke!

[Axel]

Hi,

mit den Backend-Klassen von Notes sollte das kein Problem sein.
In der Designer-Hilfe findest du die notwendigen Infos.

Axel

[locorida]

Hi,

mit den Backend-Klassen von Notes sollte das kein Problem sein.
In der Designer-Hilfe findest du die notwendigen Infos.

Axel

hast du einen beispielcode dafür bzw. schonmal selbst realisiert?
das dokument soll nicht geschlossen werden oder ähnliches...

danke

[Axel]

Hi,

hier ein Beispiel aus der Designer-Hilfe:

...
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\jim.sam")
doc.Form = "Main Topic"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )
...

Es wird ein neues Dokument angelegt, dann ein neues Feld namens Body erstellt und eine Datei angehängt. Es werden dann noch der Maskenname und Subject-Feld gesetzt und das dokument gespeichert.

Beachte aber: Um den Dateianhang zu sehen muß das Dokument geschlossen und wieder geöffnet werden.
Es gibt dafür allerdings einen Workaround. Schau mal hier: http://www.atnotes.de/index.php?board=9;action=display;threadid=7589

Ich hab's mal im Internet gefunden, selbst aber noch nicht getestet.

Axel