Fehlermeldung bei "rtZiel.AppendRTItem(xyz)"

[v_haderer]

Hallo Zusammen!

Ich wollte heute Früh "schnell" einen neue Funktionalität in einem meiner Serveragents einbauen,...leider nähern wir uns bereits der Mittagshitze und ich komm irgendwie nicht weiter. Ich wäre sehr dankbar wenn mir jemand einen heißen Tip oder sogar die Lösung veraten könnte ;-)

Mein Serveragent soll ein RTI von Dokument A and Dokument B anhängen,...eben mit Befehl "AppendRTItem"...soweit so gut... dies funktioniert nur solange ich kein Attachment drinnen habe.
Obwohl das Zielitem bereits als Richtextitem auf dem Zieldokument exisitiert, erhalte ich folgenden Fehler:

Agent printing: Der Agent ActivateStep ist fehlgeschlagen.
( 4000: Notes error: One or more of the source document's attachment are missing.  Run Fixup to delete the document in the source database. (Line: 136)

??

liebe Grüße
V

[Axel]

Ein bisschen Code wäre nicht schlecht.

Unsere Kristallkugeln haben sich heute einen Brückentag genommen und siond schon auf dem Maiausflug. 


Axel

[v_haderer]

....oh ja mit einen kühlen Bierchen ... 


       If doc.HasItem("instBasisDaten_Read") Then
      Call doc.RemoveItem("instBasisDaten_Read")                  
   End If   
   Set rtZiel = doc.CreateRichTextItem("instBasisDaten_Read")   
   
   If prevDoc.aufType(0) <> "START" And prevDoc.aufType(0) <> "ENDE" Then
      Set rtQuelleREA = prevDoc.GetFirstItem("instBasisDaten_Read")                  
      If Not rtQuelleREA Is Nothing Then               
      
      If rtQuelleREA.Type   <> TEXT Then                              
   Call rtZiel.AppendRTItem(rtQuelleREA)                                          
         call doc.Save(true,false) ' und tschüss
         End If                        
      End If         
   End If         

[Axel]

Hmm...

Auf den ersten Blick sieht das Ganze eigentlich richtig aus. Was mit auf den zweiten Blick etwas ungewöhnlich aussieht ist die Zeile

If rtQuelleREA.Type   <> TEXT Then

Ich kenne das bisher nur so:

...
If rtQuelleREA.Type   <> RICHTEXT Then
   Call rtZiel.AppendRTItem(rtQuelleREA)                                         
   call doc.Save(true,false) ' und tschüss
End If                       
...

Axel