[Help] Text Design im richtext Feld

Hi ho!

kleines Designproblem.

ich importiere einen String Website in ein richtext Feld
und er bringt mir einen klickbaren Hyperlink (dank Dominoforum :))

Nun muss der Hyperlink aber in Verdana erscheinen.

Das Feld im Form ist auf Verdana gestellt, aber per Import
setzt er die Schrift auf StandardSansSerif

was muss ich noch einbauen, damit ich hier Verdana bekomme

THX snorkie

------------------------------Quelltext-----------------------
If Datatype(GetDoc.WebSite) = 8 Then
If WebSite$ <> "" Then
If Strcompare(GetDoc.WebSite,WebSite$,1) <> 0 Then
aktlog$ = aktlog$ & " *** [WebSite] " & GetDoc.WebSite & " überschrieben mit " & WebSite$
Call GetDoc.RemoveItem("WebSite")
Dim rtitem As New NotesRichTextItem(GetDoc,"WebSite")
Call rtitem.AppendText(WebSite$)
End If
End If
Else
If WebSite$ <> "" Then
If Strcompare(GetDoc.WebSite(0),WebSite$,1) <> 0 Then
aktlog$ = aktlog$ & " *** [WebSite] " & GetDoc.WebSite(0) & " überschrieben mit " & WebSite$
Call GetDoc.RemoveItem("WebSite")
Dim rt_item As New NotesRichTextItem(GetDoc,"WebSite")
Call rt_item.AppendText(WebSite$)
End If
End If
End If

------------------------------Quelltext-----------------------

hmm das klingt nach einem Plan

jetzt wären ein zwei tipps für die durchführung nicht schlecht

oder anders: wie mach ich n das?

Syntax
To get: notesFont = notesRichTextStyle.NotesFont
To set: notesRichTextStyle.NotesFont = notesFont
Legal values
FONT_COURIER (4)
FONT_HELV (1)
FONT_ROMAN (0)
STYLE_NO_CHANGE (255)

das können die doch jetz nicht ernst meinen, oder?

ich brauch doch VERDANA *heul

bekomm ich das auch irgendw(o)ie

HELP!! ich brauch das sehr bald *zitter*

richStyle_new.PassThruHTML = True
Dim rt_item_new As New NotesRichTextItem(newadress,"WebSite")
Call rt_item_new.AppendStyle(richStyle_new)
Call rt_item_new.AppendText("<font face='verdana'>" & WebSite$ & "</font>")
Messagebox(WebSite$)

bringt auch nichts *ahhh*