Send Mail using JMail


<%
Dim objJMail
Dim bSuccess
Dim Recipient
set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.Silent = True
objJMail.ServerAddress = "mail.justformspdf.com"
objJMail.ContentType = "text/plain"
objJMail.Sender = "muneebsa@yahoo.com"
Recipient = "muneebsa@yahoo.com"
objJMail.AddRecipient(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
Else
	Response.Write "Your message has been sent."
End If
objJMail.Close()
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.