<%
StrHtmlBody="<b>Your Html Text Body</b>"
strSubject="Mail Test"
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "mail@yourdomain.com"
objEmail.To = "mail@yourdomain.comm"
objEmail.Subject = strSubject
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
objEmail.Configuration.Fields.Update
objEmail.Bodypart.ContentMediaType = "text/html"
objEmail.Bodypart.ContentTransferEncoding = "7bit"
objEmail.Bodypart.Charset= "windows-1255"
SET Stm = objEmail.Bodypart.GetDecodedContentStream
Stm.WriteText StrHtmlBody
Stm.Flush
objEmail.Send
set objEmail=nothing
%>