Hmmmm hvad blev der af det jeg sagde 'send' til??? Nu ved i hvorfor dette måske står her to gange....
Jeg kunne ikke finde min oprindelige kode, men har strikket noget lignende sammen, der viser princippet. Du skal selvfølgelig arbejde lidt med, hvad der skal stå i <a href... og der skal også puslet med hvor præcis der skal importeres i dokumentet. Vær i denne forbindelse obs på at hvis du bruger en knap - på dokumentet så flyttes fokus. Hvis du derimod benytter en 'action' så holdes cursorens position, hvilket jo er en fordel når man skal indsætte noget i teksten.
Sub Click(Source As Button)
Dim fileNum As Integer
Dim fileName As String
fileNum% = Freefile()
fileName$ = "d:\hotspot.html"
' Lav HTML-fil
Open fileName$ For Output As fileNum%
Print #fileNum%, |<HTML><HEAD></HEAD><BODY>|
Print #fileNum%, |<a href = "
http://www.eksperten.dk">Eksperten - stedet for viden</a>|
Print #fileNum%, |</BODY></HTML>|
Close fileNum%
'Importer HTML-fil
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField("Body")
Call uidoc.Import("HTML File", fileName$)
'Slet filen igen
Kill fileName$
End Sub