Code Change for email

Can anyone modify this from CDONTS to JMail? It's for a Guestbook and my Vserver does not allow CDONTS.

Thank you.
Begin Code---------------------------------------------------------
Sub SendMail (FromEMail, SendToEMail, Subject, Body)
Const CdoBodyFormatHTML = 0 ' Body property is HTML
Const CdoBodyFormatText = 1 ' Body property is plain text (default)
Const CdoMailFormatMime = 0 ' NewMail object is in MIME format
Const CdoMailFormatText = 1 ' NewMail object is plain text (default)
Const CdoLow = 0 ' Low importance
Const CdoNormal = 1 ' Normal importance (default)
Const CdoHigh = 2 ' High importance
Dim objSendMail
Set objSendMail = CreateObject("CDONTS.NewMail")
objSendMail.From = FromEMail
objSendMail.To = SendToEMail
objSendMail.Subject = Subject
objSendMail.Body = Body
objSendMail.BodyFormat = CdoBodyFormatText
objSendMail.MailFormat = CdoMailFormatMime
objSendMail.Importance = CdoNormal
objSendMail.Send
Set objSendMail = Nothing
End Sub
---------------------------------------------------------End Code

JMail has it's own methods and syntax. Visit the JMail website for sample scripts.