<%
'**********************************************************************
'* Java.JMailer spec.
'* Methods:
'* SendMail - Send mail and return TRUE if mail is send
'* Properties:
'* MailServerHost - Your Mail serve Host or IP address
'* MailTo - Receiver mail address
'* MailFrom - Sender mail address
'* MailSubject - Subject
'* MailMessage - Message
'* ErrorString - In case of error Explanation of error
'* DebugMode - Set to TRUE to get detailed report of communication between
'* Mail Server and Java Mail component. Default is FALSE
'* DebugString - If DebugMode is set to TRUE after invocing SendMail
'* method read this property to get detailed communication string
'* between Mail Server and this component
'**********************************************************************
' Create object
Set mail = CreateObject("Java.JMailer")
' Your mail server address (Host name or IP number)
mail.MailServerHost = "mail.spkn.uswest.net"
' Receiver Mail address
mail.MailTo = "recept@unitedlithographers.com"
' Sender Mail address
mail.MailFrom = "inland.com"
' Mail subject can be Empty
mail.MailSubject = "Guestbook"
' Mail message text
mail.MailMessage = "An order has been submitted to the Guestbook Database"
' And finally send mail
a = mail.SendMail
' SendMail method return TRUE if operation was succesful or FALSE if not
' In case of error in ErrorString property you can find Error message
If a Then
Response.Write "Your order has been received and an email notification sent to our staff."
Else
Response.Write "Error by send mail: " & mail.ErrorString
End If
Set mail=Nothing
%>