"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:
Dim doc as NotesDocument
set doc = uidoc.Document
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
Hi,
Also eventuell so.
Dim anhang as NotesRichTextItem
Set anhang = uidoc.Document.GetFirstItem("Anhang")
If Not anhang Is Nothing Then
Call anhang.EmbedObject( EMBED_ATTACHEMENT, "", datei)
End If
Andreas
Hi,
@Silent_Bob
Kleine Anregung vielleicht.
Schau doch einmal in die Hilfe des Designers bei "NotesRichTextItem" und hier bei EmbedObject.
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 )
Set Anhang = New NotesRichTextItem(doc, "Anhang")
in
Set Anhang = doc.GetFirstItem("DeinRTF")
um.
Und wenn du die Zeile wie oben von mir beschrieben änderst kriegst du den Error?
Du hast doch hoffentlich "DeinRTF" schon so geändert, dass die Zeile nun so aussehen müsste?
Set Anhang = doc.GetFirstItem("anhang")
Grüsse