Send Email using SmartMail


<%
On error resume next

Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
mySmartMail.Server = "mail.pakreal.com"
mySmartMail.SenderName = "Your Name"
mySmartMail.SenderAddress = "youremail@yourdomain.com"
mySmartMail.Recipients.Add "muneebsa@yahoo.com", "Muneeb Ahmad"
mySmartMail.Subject = "aspSmartMail Sample 1"
mySmartMail.Body = "This mail has been sent with aspSmartMail."
mySmartMail.SendMail
if Err.Number<>0 then
	Response.write "Error: " & Err.description
else
	Response.write "An e-mail has just been sent to " & mySmartMail.Recipients.Item(1).Name & "."
end if
%>

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.