Sto tentando di mandare un email con link tramite lotus notes ecco il codice che non mi funziona

codice:
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 = "dennis.fiore@total.com"
.Subject = sOggetto
Set rtf = .CreateRichTextItem("Body")
Call rtf.AppendText("Con la presente si allega quanto in oggetto. Distinti saluti")
Call rtf.AppendDocLink("www.google.it", "google")
.Send (False)
End With
Set rtf = Nothing
Set doc = Nothing
Set db = Nothing
Set session = Nothing