Yes, using the door library:
Code:
'obj is an Object (from the Door library).
Sub App_Start
SMTP.New1(...)
msg.New1
obj.New1(false) 'initalize once.
msg.AddTo("some@email.com")
msg.Subject = "test"
q = Chr(34)
msg.Body = "this is a <a href="&q&"http://www.basic4ppc.com"&q&">test</a>."
msg.From = "me@me.com"
obj.Value = msg.Value
obj.SetProperty("IsBodyHtml",true)
SMTP.Send(msg.Value)
End Sub