Attachment-Problem

[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.

[Tode]

also in Deinem Code sind schon einige "Fehler" drin:

1. Im Querysave ein doc.Save aufzurufen : WARUM !?

2. Du prüfst nicht, ob das Item schon existiert, sondern erstellst IMMER ein neues...
Notes kann MEHRERE Items mit dem gleichen Namen in einem Dokument haben....

HTH
Tode

[skywook]

@Tode
- Das save im QuerySave war nur zum testen.

- Auch wenn ich vorher prüfe ob das Item existiert bzw. ob es sich um ein RichText handelt. Wird der Anhang unter das Dok gehängt.

Ich habe mich mal auf die Forumsuche gemacht. Habe aber leider nichts gefunden. Es gab schon mehrfach das Problem aber keine Lösung dazu.