HTML Mail send

Set objMessage = nothing
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = "Invoice" 
objMessage.Sender = RS2.Fields.Item("U_EMAIL").Value
objMessage.From = "Dave"
objMessage.To = RS4.Fields.Item("CQEMAIL").Value 
objMessage.Bcc = RS2.Fields.Item("U_EMAIL").Value
objMessage.AddAttachment "d:\...\pdf\"&Request("id")&".pdf"
objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
               "smtp.....co.za" 
objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.HTMLBody = Server.HTMLEncode( Request.Form("EmailText2") )
'objMessage.TextBody = Server.HTMLEncode( Request.Form("EmailText2") )
objMessage.Send
Set objMessage = nothing