tekst formatering i asp-mail

Jeg har følgende script, som genererer en mail via ASP, og den virker fortræffeligt. Men jeg kunne godt tænke mig, at visse overskrifter kom i mailen som bold - er det muligt og hvordan i så fald?

Mail.Host = strHost

    Mail.From = "info@test.dk" ' From address
    Mail.FromName = "test A/S" ' optional
   
    Mail.AddAddress "min@mail.dk"
    'Mail.AddAddress ""

    ' message subject
    Mail.Subject = "Tilbud - formular afsendt fra test"

    ' message body
    sBody =                "Afdeling: "         & Request.Form("userAfdeling")             & Chr(13)
    sBody = sBody &     "Adresse: "         & Request.Form("userAdresse") & ", " & Request.Form("userPostnr") & ", " & Request.Form("userBy") & Chr(13)
    'sBody = sBody &     "Mail: "              & Request.Form("userMail")                   & Chr(13)
    sBody = sBody &     "Postbox: "          & Request.Form("userPostbox")                 & Chr(13)
    sBody = sBody &     "Telefon: "         & Request.Form("userTelefon")             & Chr(13)
    sBody = sBody &     "Fax: "                  & Request.Form("userFax")                 & Chr(13) & Chr(13)
    sBody = sBody &     "Jeg ønsker: "         & Chr(13) & Chr(13)
    sBody = sBody &      "Faneblade: "         & Request.Form("ordreFanebladeAntal")          & " Stk. "  & Chr(13) & Chr(13)
    sBody = sBody &     "Kort: "             & Chr(13) & Chr(13)
    sBody = sBody &      "Kuvert: "            & Request.Form("ordreKortType1Antal")          & " Stk. "  & Chr(13)
    sBody = sBody &      "Omslag: "            & Request.Form("ordreKortType2Antal")          & " Stk. "  & Chr(13)
    sBody = sBody &      "Kort: "             & Request.Form("ordreKortType3Antal")          & " Stk. "  & Chr(13) & Chr(13)
    sBody = sBody &     "Kuverter: "        & Chr(13) & Chr(13)
    sBody = sBody &      "C4 m. rude: "        & Request.Form("ordreKuvertType1Antal")        & " Stk. "  & Chr(13)
    sBody = sBody &      "C4 u. rude: "        & Request.Form("ordreKuvertType2Antal")        & " Stk. "  & Chr(13)
    sBody = sBody &      "C5 m. rude: "        & Request.Form("ordreKuvertType3Antal")        & " Stk. "  & Chr(13)
    sBody = sBody &      "C5 u. rude: "        & Request.Form("ordreKuvertType4Antal")        & " Stk. "  & Chr(13)
    sBody = sBody &      "Jumbo kuvert: "    & Request.Form("ordreKuvertType5Antal")        & " Stk. "  & Chr(13)
    sBody = sBody &      "Svar kuvert: "        & Request.Form("ordreKuvertType6Antal")        & " Stk. "  & Chr(13) & Chr(13)
    sBody = sBody &     "Visitkort: "        & Chr(13) & Chr(13)
    sBody = sBody &      "Antal: "            & Request.Form("ordreVisitkortAntal")          & " Stk. "  & Chr(13)
    sBody = sBody &      "Navn: "            & Request.Form("ordreVisitkortNavn")                      & Chr(13)
    sBody = sBody &      "Titel: "            & Request.Form("ordreVisitkortTitel")                      & Chr(13)
    sBody = sBody &      "Mobil: "            & Request.Form("ordreVisitkortMobil")                        & Chr(13)
    sBody = sBody &      "Direkte telefon: "    & Request.Form("ordreVisitkortTelefon")                        & Chr(13)
    Mail.Body = sBody

    strErr = ""
    bSuccess = False
    On Error Resume Next ' catch errors
    Mail.Send    ' send message
    If Err <> 0 Then ' error occurred
        Response.Write("serverReply=1")
    else
        Response.Write("serverReply=0")
    End If

%>