Domino 9 und frühere Versionen > ND6: Entwicklung

Attachment-Problem

(1/2) > >>

skywook:
Hallo,
bräuchte mal etwas Hilfe.

Beim Speichern des Dokumentes soll in das Feld Anhang eine Datei angehängt werden. Das Script wir auch ohne Fehlermeldung ausgeführt. Aber der Dateianhang ist nicht in dem Feld Anhang (RichText) sondern wird "unter" das Dokument gehängt.

Sub Querysave(Source As Notesuidocument, Continue As Variant)
               On Error Goto ErrorHandler
                Dim doc As NotesDocument
   Set doc = source.document      
   
   Dim object As NotesEmbeddedObject
   Dim rtitem As New NotesRichTextItem(doc, "Anhang")
   
   Set rtitem = doc.GetFirstItem( "Anhang" )
   Set object= rtitem.EmbedObject ( EMBED_ATTACHMENT, "",  "y:\test.txt")
   Call doc.save(True,False
                .......

Für einen Tipp wäre ich dankbar.

Tode:
Ist das Feld Anhang in der Maske vorhanden und als Richtext- Feld definiert ?

Tode

skywook:
Ja.
Das Feld ist vorhanden und ist vom Typ RichText.

Lossa:
Hallo,

bitte prüfe vorher ob das richtextitem auf das du referenzierst auch existiert, wenn nicht, dann lege es erste an und dann stecke das Attachment dort hinein.
Wenn du es nur bei neuen Dokumenten machst dann erstelle mittels NEW der RichtextItem Klasse ein entsprechendes Richtextfeld

skywook:
Habe ich alles schon getestet. Aber der Anhang wird nicht in das Feld gesetzt.

Navigation

[0] Themen-Index

[#] Nächste Seite