
SMTP svg
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "nagender"
Mailer.FromAddress= "nagender@websuvidha.com"
Mailer.RemoteHost = "smtp.websuvidha.com"
Mailer.AddRecipient "webmaster", "webmaster@websuvidha.com"
Mailer.Subject = "Testing component"
Mailer.BodyText = "Test Mail." & VbCrLf & "Your component is
working"
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail send failure. Error was " &
Mailer.Response
end if
%>
|