Abfrage DocLink im Feld vorhanden

[geissbock]

Moin moin,
hab da ein Problem. Wenn in ein Richtextfeld ein Doclink eingefügt wird, soll der wert in einem anderen Feld auf "ok" gesetzt werden, damit ich dann in einer Ansicht ein entsprechendes Zeichen setzen kann. Hab dazu ins Postsave der Maske ein Script eingefügt, das unten abgebildet ist. Das funktioniert prima wenn ein Attachment angehängt wird, aber ein Doclink wird nicht erkannt. Irgend jemand ne Idee why not?
Many thanx in advance:
Dim workspace As New NotesUIWorkspace   
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim pjbeschreibung As Variant
Set db = session.CurrentDatabase   
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set pjbeschreibung = doc.GetfirstItem ("fd_pjbeschreibung")
If pjbeschreibung.Type = RICHTEXT Then
If Not ( Isempty(pjbeschreibung.EmbeddedObjects) ) And Not (Isnull(pjbeschreibung.EmbeddedObjects) ) Then
doc.fd_beschreibungcontrol="ok"
Else
doc.fd_beschreibungcontrol="nix"   
End If

[wflamme]

Liegt an unzureichender Unterstützung des RTF-Formats durch offengelegte Notes-Klassen.

Lösungswege: R6 oder eine RichText-Library (zB rtlib.com oder die von geniisoft) oder NotesAPI. *Vielleicht* kannst Du auch den RTF-Typ auf MIME ändern und auf A-Tags prüfen, aber das wäre sicher nur eine Notlösung.

[geissbock]

 
Hey und danke für die schnelle Antwort. Klingt ja übel. Bis wir hier notes 6 kriegen das kann noch Jahre dauern. Tja, was mach ich denn da. Mal sehen ob noch irgendwas getrickst werden kann.
ciao