
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
'anexo codigo de ejemplo
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''
<%
Dim Mail
set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host = "www.inmobiliariatlaxcala.com.mx"
Mail.From = "[email protected]"
Mail.FromName = "Carlos"
Mail.AddAddress “[email protected]"
Mail.Subject = "Prueba ASPEmail"
Mail.Body = "Hola mundo!"
On Error Resume Next
Mail.Send
if Err <> 0 Then
Response.Write ( "Error: " & Err.Description )
else
Response.Write ( "Mail enviado." )
end if
%>
de antemano gracias por tomar su tiempo en leer el mensaje
