Domino 9 und frühere Versionen > ND6: Entwicklung

Lotus Script Anfängerproblem...

<< < (2/8) > >>

Untitled:
Also falls du das Ganze zu Lernzwecken doch in Script machen möchtest, schau dir mal in der Hilfe die Methode

notesRichTextItem.EmbedObject( type%, class$, source$, [ name$ ] )

an.

Grüsse
Moritz

Silent_Bob:
Hm,

ich komme da trotzdem nicht so weiter.

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim anhang As NotesRichTextItem
   Dim datei As Variant
   Set uidoc = workspace.CurrentDocument
   datei = workspace.OpenFileDialog(False, "Datei auswaehlen")   
   If Isempty(datei) Then Exit Sub   
   Call uidoc.GotoField("anhang")
   Call anhang.EmbedObject( EMBED_OBJECT, "", datei)
End Sub

Wieso erscheint nun "Object Variable not set"?

Es soll doch der, der Variable "datei" übergebene Pfad, hier in das feld "anhang" geschrieben werden.

Versteh ich jetzt nicht.

Untitled:
"anhang" wurde noch gar nicht initialisiert. Du musst der Variable noch das RichText zuweisen.

Dazu musst du das Backend-Dokument nehmen. Also uidoc.document.

zB so:


--- Code: ---Dim doc as NotesDocument

set doc = uidoc.Document

--- Ende Code ---

Nun musst du aus diesem Dokument das Feld rausziehen. Etwa mit anhang = doc.GetFirstItem("DeinRTF").

Ausserdem würde ich statt "EMBED_OBJECT", "EMBED_ATTACHMENT" nehmen.

Dann nicht vergessen, das UIDoc musst du nun neu laden, damit die Änderungen aus dem Backend im Frontend sichtbar werden.

So nun geh ich mal essen.

Grüsse
also

ascabg:
Hi,

Also eventuell so.


--- Code: ---Dim anhang as NotesRichTextItem

Set anhang = uidoc.Document.GetFirstItem("Anhang")
If Not anhang Is Nothing Then
  Call anhang.EmbedObject( EMBED_ATTACHEMENT, "", datei)
End If

--- Ende Code ---

Andreas

Silent_Bob:
Hallo zusammen, also ich denke, wir kommen der Sache näher:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim anhang As NotesRichTextItem
   Dim datei As Variant
   Set doc = uidoc.Document
   Set anhang = uidoc.Document.GetFirstItem("anhang")
   datei = workspace.OpenFileDialog(False, "Datei auswaehlen")   
   If Isempty(datei) Then Exit Sub   
   If Not anhang Is Nothing Then
      Call anhang.EmbedObject( EMBED_ATTACHEMENT, "", datei)
   End If
End Sub


Allerdings kann ich nun das Script nicht speichern.

"Variable not declared: EMBED_ATTACHMENT".

Wie soll ich denn EMBED_ATTACHMENT declarieren??

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete