Bestimme Werte aus einem Richtextitem/Field entfernen

[C_T]

HI@all

Habe da mal ne Frage

Folgendes Szenarion

FELD A | FELD B | FELD C

Button D
Button E

Feld A ist ein Textfeld mit Mehrfachwerte
Feld B ist ein RichtextFeld
Feld C ist ein Textfeld mit Mehrfachwerte

Über den Button D suche ich mir ein bestimmtes Dokument aus einer Ansicht aus. Ich füge dann in das Feld A den Namen des Dokumentes und in Feld C die DocId des Doks ein. In Feld B füge ich über ein Richtextitem ein Link zu dem Dokument ein.

Wie kriege ich es hin, dass die Links zu den Dokumenten untereinaander stehen, sprich auf der höhre der anderen einträge.


Mit dem Button E soll ein Eintrag aus den Textfelder gelöscht werden. eigentlcih kein Probem. aber wie ist das mit dem Link. Wie kann ich es realisieren, dass ich z.B. den 2 Link lösche wenn da 5 drin sind???


HOFFE AUF HILFE

[Demian]

Moin C_T,

wenn ich dich richtig verstanden habe, lässt sich dein Problem mit der selben Höhe durch notesrichtextitem.addnewline(1) lösen. Siehe Markierungen im Script.

Function EmailVorbereiten(Quelldoc As NotesDocument)
   Call Logeintrag_Erstellen(db.Title,"Agent: BENACHRICHTIGUNG-Arbeitsunfall","EMailVorbereiten", _
   "EMail wird vorbereitet")
   
   Dim mail As notesdocument
   Dim Body As notesrichtextitem
   Dim richStyle As NotesRichTextStyle
   
   'Erforderliche Daten auslesen
   Call VariablenAuslesen(quelldoc)
   
   'Mail vorbereiten
   Set mail = New notesdocument(db)
   mail.form = "Memo"   
   mail.Principal = db.title   
   mail.Subject = db.title + " - " & Betreff
   
   Set Body = New NotesRichTextItem( mail, "Body" )
   Set richstyle = s.CreateRichTextStyle   
   
   'variablen Einleitungstext der Mail erstellen   
   Call Body.AppendText (EmailText)   
   Call Body.AddNewLine( 2 )
   ........
   ........
   'Links
   Call Body.AppendText ("Verwenden Sie den folgenden Link um die Datenbank zu öffnen: ")
   Call body.AppendDocLink(db,"Datenbanklink")
   Call Body.AddNewLine( 1 )
   Call Body.AppendText ("Verwenden Sie den folgenden Link um das Dokument zu öffnen: ")
   Call Body.AppendDocLink( Quelldoc, "Dokumentlink" )   
   Call Body.AddNewLine( 1 )
   Call Body.AppendText ("-----------------------------------------------------")
   Call Body.AddNewLine( 1 )   
   
   Call Logeintrag_Erstellen(db.Title,"Agent: BENACHRICHTIGUNG-Arbeitsunfall","EMailVorbereiten", _
   "EMail wird gesendet")
   
   Call mailsenden(mail)   
End Function


Was das Löschen des zum Beisipiel 2. Eintrags angeht, muss ich leider passen. Vielleicht lässt sich das Lösen, indem man alle Links bis auf den 2. neu erstellt.

Gruß
Demian

[botschi]

Es gibt eine FindAndReplace-Methode der NotesRichText-Klasse. Die würde einen besimmten String finden und löschen.
Die Methode hatte in ND6 aber einen Bug, keine Ahnung ob der behoben ist.

Matthias