Ich hab im Forum gesucht und auch gefunden aber nicht das was ich brauche.
Ich möchte nachdem erstellen eines neuen doc's ein mail versenden das mir dann den text des rtf "BemAuftraggeber" in das doc sendoc im body einfügt das anschließend versendet wird. Das doc wurde noch nicht gespeichert.
Ich hab in meinem Querysave dieses Script:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim s As New NotesSession   
   Dim rtitem As NotesRichTextItem   
   Dim itemdoc As Variant
   Dim senddoc As NotesDocument   
   Dim db As NotesDatabase   
   Set db= s.CurrentDatabase
   Set senddoc = New NotesDocument(db)   
   Dim doc As NotesDocument
   Set doc=Source.Document
   If doc.Abteilung(0) ="" Then
      Msgbox "Sie müssen eine Abteilung eingeben",16,"Falsche oder fehlender Wert"
      Continue =False
      Call Source.FieldSetText("Schliessen","False")
      Source.GotoField("Abteilung")
      Exit Sub
   Elseif source.IsNewDoc Then
      With senddoc
         .Form = "Memo"
         .SendTo = doc.Zuhanden
         .Subject = "Neuer Prüfauftrag ''" + doc.Projekt(0) +"''"
         Set rtitem = New NotesRichTextItem( senddoc, "Body" )
         Call rtitem.AppendText("Klicken sie auf die Dokumentenverknüpfung um den Prüfauftrag einzusehen:")
         Call rtitem.AddNewLine(2)
         Call rtitem.AppendDocLink( doc, doc.Projekt(0) )
         If doc.BemAuftrSenden(0) ="ja" Then
            dim plainText as Variant
            Call rtitem.AddNewLine(1)
            Set itemdoc = doc.GetFirstItem("BemAuftraggeber")
            plainText = itemdoc.GetFormattedText( False, 0 )   
            hier bekomm ich immer einen fehler
            object varible not set
            Call rtitem.AppendText("Bemerkung: ")

         End If
         Call senddoc.send(True)
      End With

   End If
End Sub

Ich vermute das das doc einmal gespeichert werden muss das man auf das rtf zugreifen kann!! wie mach ich das am besten.

der feldname stimmt schon ich habs sogar mit einem "test"-rtf ausprobiert. und ich bekomm den gleichen fehler. er setzt mir das itemdoc nicht bleibt leer im LS-Debugger. Wenn ich das doc jedoch einmal gespeichert habe und geschlossen dann funktioniert das script. aber wie kann ich das jetzt so realisieren? ich hab aber auch schon in das script in der if schleife doc.BemAuftrSenden(0) ="ja" ein Call doc.save(True,False) eingebaut aber das geht auch nicht!!

ist BemAuftraggeber ein rtf Feld ?

cu

rtf erst abfragen wenn es gespeichert wurde ....


cu

... rtf -felder werden erst beim speichern angelegt.

... es funktioniert auch ohne Speichern, wenn du dem Feld nur Text mitgibst.

SendDoc.RTFeld = "Dein Text, den du mitgeben willst"

... du darfst das Feld nicht per RtItem erstellen, sondern nur den Wert zuweisen. Das Dokument geht davon aus, daß es ein Textfeld ist und versendet es. Beim Empfänger ist dann ein Richtext-Feld...

ata

@ata ich möchte ja mein senddoc mit einem rt-feld "body" das verschickt wird, mit dem rt-feld "BemAuftraggeber" vom currentdocument füllen das uidoc wurde aber noch nicht gespeichert! was ich anschließend noch brauche das auch die datein die im RTF "BemAuftraggeber" drinnen sind das die auch mitgesendet werden.