<%@ IMPORT namespace="System.Net.Mail"
%>
<%
'Instanciamos el nuevo objeto MailMessage
Dim mMailMessage As New MailMessage()
'Colocamos la cuenta de correo desde donde
se enviara
mMailMessage.From = New MailAddress("correo@sudominio")
'Esto llega como parametro desde el formulario
html
mMailMessage.To.Add(New MailAddress(Request.form("para")))
mMailMessage.Subject = Request.form("asunto")
mMailMessage.Body = Request.form("mensaje")
' True es que vamos a enviar el correo en
formato HTML
mMailMessage.IsBodyHtml = True
'Colocamos como servidor smtp localhost
Dim mSmtpClient As New SmtpClient("localhost")
'Enviamos el correo
mSmtpClient.Send(mMailMessage)
if (err.number = 0) then
Response.Write ("Se envio el correo por
System.Net.Mail")
else
Response.Write ("Error al enviar: "
& err.description)
end if
%>
|