Hallo Leute Ich bin sicher das ist das problem schon mal gesehen habt, leider kann ich es nicht lösen, aber mir euer hilfe klappt das sicher
Ich habe ein Agent der mir ein PDF generiert und das dann auf das filesystem ins c":\temp\dfad.pdf" stellt. Dabei dacht ich mir, es wäre doch cool wenn das viel wo ich generiert habe noch zusätzlich in Document Attache.
Ok soweit gut ich habe den code geschrieben und er funktioniert auch nur stellt er mir das Attachment am schluss vom Document unter der linie und nicht in das Feld wo ich im sage.
Hier der code:
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As notesdocument
Dim session As NotesSession
Dim dbCurrent As NotesDatabase
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set session = New NotesSession
Set dbCurrent = session.CurrentDatabase
Set rtitem = doc.GetFirstItem("rtOfferte")
If rtitem Is Nothing Then
Set rtitem = New NotesRichTextItem(doc, "rtOfferte" )
End If
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", outputFilename)
Call doc.save(True,True)
Kann mir da jemand helfen oder sagen was ich falsch mache
Gruss
