Domino 9 und frühere Versionen > Entwicklung

Problem mit RTFeld kopieren.

(1/3) > >>

robertpp:
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.

ata:
... dein Code sieht so schlecht nicht aus, überprüfe doch mal den Feldnamen, der sieht falsch aus...

ata

robertpp:
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!!

klaussal:
... uidoc speichern und dann uidoc reload könnte helfen.

Performance:
ist BemAuftraggeber ein rtf Feld ?

cu

Navigation

[0] Themen-Index

[#] Nächste Seite