Mailenable Component - Mail Code Print

Mailenable Component - Mail Code

<%@ Language=VBScript %>
<%

Dim oMail

Set oMail = server.CreateObject("MEMail.Message")

oMail.MailFrom = "yourmail@yourdomain.com"
oMail.MailFromDisplayName = "DisplayName"
oMail.ContentType = "text/html;"
oMail.MailTo ="mail@anydomain.com"
oMail.Subject = "SubjectName"
oMail.MessageBody = "Hello there,Welcome to our new service."

oMail.SendMessage

Set oMail = Nothing

Response.Write "success"
%>