<%
             Set JMail = Server.CreateObject("JMail.SMTPMail")

             ' This is my local SMTP server
             JMail.ServerAddress = "xl1.xlstar.com:25"

             ' This is me.... 
             JMail.Sender = "tony@tonytang.com"
             JMail.Subject = "Testing JMail..."

             ' Get the recipients mailbox from a form (note the lack of a equal sign).
             JMail.AddRecipient "tony@tonytang.com"

             ' The body property is bodth 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 = "Testing.  Please ack."
             ' 1 - highest priority (Urgent)
             ' 3 - normal
             ' 5 - lowest

             JMail.Priority = 1

'             JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

             ' Must make sure that IUSR_???? has access to the following files.
'             JMail.AppendBodyFromFile "e:\mail\standard_footer.txt"
'             JMail.AddAttachment "e:\products\MyProduct.exe"

             ' Send it...
             JMail.Execute
	Set JMail = Nothing

%>
OK