Sending email in html format using Jmail

What line/lines have to be added to the following code in order for me to send email in html format using Jmail
<%

Function SendMail(ServerAddress, Sender, Recipient, RecipientCC, RecipientBCC, Subject, Body)

      Dim aRecipient, aRecipientCC, aRecipientBCC, item

      Set JMail = Server.CreateObject("JMail.SMTPMail")
       ' This is my local SMTP server
      JMail.ServerAddress = ServerAddress

      ' This is me....
      JMail.Sender = Sender
      JMail.Subject = Subject

      ' Get the recipients mailbox
      aRecipient = Split(Recipient , ",")
      For Each Item In aRecipient
            JMail.AddRecipient Item
      Next
      
      ' Get the cc mailbox
      aRecipientCC = Split(RecipientCC, ",")
      For Each Item In aRecipientCC
            JMail.AddRecipientCC Item
      Next      

      ' Get the cc mailbox
      aRecipientBCC = Split(RecipientBCC, ",")
      For Each Item In aRecipientBCC
            JMail.AddRecipientBCC Item
      Next      

      ' The body property is both read and write.
      ' If you want to append text to the body you can
      ' use JMail.Body = JMail.Body & "Hello world!"
      ' or you can use JMail.AppendText "Hello World!"
      ' which in many cases is easier to use.
      JMail.Body = Body

      ' Send it...
      JMail.Execute

      If Err.number = 0 Then
            SendMail = True
      Else
            SendMail = False
      End If
      
      Set JMail = Nothing
            
End Function

Start Free Trial