Domino 9 und frühere Versionen > Entwicklung

Dokument anhängen

<< < (2/4) > >>

koehlerbv:
Im PostOpen hat das natürlich den verwirrenden Nachteil, daß der Anwender das Attachment erstmal nicht sieht, weil ja Änderungen im Frontend in RTF erst nach dem Speichern, Schliessen und erneuten Öffnen des Dokuments sichtbar sind.
Dazu gab' es ja in diesem Forum gerade in den letzten Tagen etliche Threads.

Glombi:
Hi,
es stellt sich die Frage, ob das Attachment nach dem Speichern und Schließen des UI Dokuments überhaupt noch da ist. Denn Notes speichert das UI Dokument im Backend, so wie es sich dem Anwender präsentiert, also ohne Attachment.
Hab's aber nicht getestet, nur so eine Vorahnung....

Andreas

harkpabst_meliantrop:
Und es wäre vermutlich aus eher Zufall, wenn das Word-Dokument tatsächlich gerade im aktuellen Pfad für das Script liegen würde. Aber vielleicht hast du das ja auch nur beispielhaft gemeint.

MrMagoo:
Das Dok ist zwar noch da, aber wie schon erwähnt erst nach dem speichern, gibt es da eine andere Methode??

MrMagoo:
Soooooooooo, bin der Sache ein ganzes Stück näher gerückt.

ich habe da auch noch etwas auf der Homepage von ATA gefunden, danke dafür, also so funktioniert es

Im PostOpen
   
Dim rtitem As NotesRichtextItem
Dim doc As NotesDocument
Set doc = Source.Document
Set rtitem = New NotesRichTextItem(doc, "Body")  
Set Object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", "c:\temp\temp.doc")
Call doc.Save( True, True )
Call ReOpen( doc )

und die Funktion  (von Atas Homepage thx)


    REM Das aktuelle Dokument schließen und wieder öffnen......
Function ReOpen(docThis As NotesDocument) As Integer
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim dbThis As NotesDatabase
   Dim unid As String
   
   ReOpen = 0
   Set dbThis = docThis.ParentDatabase
   Call docThis.Save(True , True)
   unid = docThis.UniversalID
   docThis.SaveOptions = "0" ' # ... Speicherabfrage vermeiden
   Set uidoc = ws.CurrentDocument
   Call uidoc.Close
   Set docThis = dbThis.GetDocumentByUNID(unid)
   Set uidoc = ws.EditDocument(True , docThis)
   Set docThis = uidoc.Document
   If docThis.HasItem("SaveOptions") Then  
            ' # ... das Feld SaveOptions wieder entfernen...
      docThis.RemoveItem("SaveOptions")
      Call docThis.Save( True , True )
   End If
ReOpen = 1
Print "Das Dokument wurde erneut geöffnet"
End Function

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete