Domino 9 und frühere Versionen > ND7: Entwicklung

Word-Dokumente an Notes Dokumente per Programm anhängen oder darin einfügen

<< < (4/5) > >>

Peter Klett:
Wo startest Du die Aktion, per Schaltfläche in einem geöffneten Dokument?

Deine Aktion erstellt in der aktuellen Datenbank ein neues Dokument, gibt dem den Maskennamen "maÜbersicht", hängt die Datei an das Feld "Body" und speichert das Dokument.

Wenn Du Dir dieses neu erstellte Dokument anschaust, wird dort ein Dateianhang enthalten sein.

Das Item $FILE weist auf eine angehängte Datei hin. Wenn ein Dokument kein Item $FILE hat (es könnte auch mehrere haben), hat es auch keinen Dateianhang.

Alperen15:
ich öffne in der Ansicht ein bereits vorhandenes Dokument. Dann in der Maske hab ich schon mein Feld Body....in der Maske starte ich dann den Agenten.

schon dann möchte ich die csv Datei in dem Feld als anhang sehen können...

laut script sollte es doch stimmen oder?

Peter Klett:
Das Script tut genau das, was Du ihm sagst, aber nicht das, was Du von ihm willst.

Wie gesagt, Du erstellst ein neues Dokument mit der Aktion. Falls Du mit dem geöffneten Dokument arbeiten möchtest, solltest Du Dir NotesUIWorkspace ansehen, und mit .CurrentDocument auf das aktuelle Dokument zugreifen.

Wenn Du dann im Backend die Datei anhängst und danach das geöffnete Dokument über das Frontend speicherst, wird Datei vermutlich wieder weg sein.

Alperen15:
hab ein fehler von mir gefunden unzwar möchte ich kein neues dokument erstellen sondern ein bestehendes ändern, sprich die csv datei anhängen

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim object As NotesEmbeddedObject
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.CurrentDocument
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument( db )
   
   doc.form = "maÜbersicht"
   Set ritem = doc.GetFirstItem("Body")
   Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "E:\TestKUR\ExportDocuments.csv")
   Call doc.Save( True, True )
   
End Sub


aber es funktioniert immer noch nicht so wie ich es mir vorstelle. denn meine csv datei ist immer noch nicht in dem Feld "Body"

Alperen15:
achso dann kommt ne meldung

Object variable not set .............

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete