Database link in email sent through action

Does anyone know how to have the application send an email with a DATABASE link? I’m using an action using AppendDocLink (see code below). Is there a similar way to do a DATABASE link?

Sub Click(Source As Button)

…

Set db = session.CurrentDatabase

Set doc = uidoc.Document

Set maildoc = New NotesDocument(db)

…

Set Body = New NotesRichTextItem( maildoc, “Body” )

Call Body.AppendDocLink( doc, db.Title )

Subject: Database link in email sent through action

Sure, just send the link to the db instead of the doc:

Call Body.AppendDocLink( db, db.Title )