Visual Basic 6 - Lotus Notes

Sto tentando di inviare email in vb6 tramite Lotus Notes.
Ecco il codice:

Public Function fInvioLotus(sOggetto As String) As Boolean
On Error GoTo err_fInvioLotus
Dim session As Object
Dim doc As Object
Dim rtf As Object

fInvioLotus = False
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
Call db.OPENMAIL
Set doc = db.CreateDocument
With doc
.Form = "Memo"
.SaveMessageOnSend = True
.SendTo = "mcolombo.consdsi@duomo.it"
.Subject = sOggetto
Set rtf = .CreateRichTextItem("Body")
Call rtf.AppendText("Con la presente si allega quanto in oggetto. Distinti saluti")
.Send (False)
End With
Set rtf = Nothing
Set doc = Nothing
Set db = Nothing
Set session = Nothing

fInvioLotus = True
Exit Function

err_fInvioLotus:
fInvioLotus = False
MsgBox Err.Description
End Function

Il problema è come faccio ad inserire un link?