Send Mail using JMail

Dim objJMail
Dim bSuccess
Dim Recipient
set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.Silent = True
objJMail.ServerAddress = ""
objJMail.ContentType = "text/plain"
objJMail.Sender = ""
Recipient = ""
objJMail.Priority = 3
objJMail.Subject =  "JMail Test"
objJMail.Body = "JMail is perfect"
bSuccess = objJMail.Execute()
If bSuccess = False Then
	Response.Write "An error occurred, the email was not sent." + objJMail.ErrorMessage
	Response.Write "Your message has been sent."
End If
Set objJMail = Nothing

You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.

AddThis Social Bookmark Button

Similar Posts

Comments are closed.