 |
Isacc Garza No. 333,
Col. Centro
Monterrey, Nuevo León. México.
Tels. 4040 - 0345 |
 |
<%
'esta es la cuenta de "from" o "sender" y tambien es la que recibe el correo... cambiar para hacer pruebas
strtmpmailto = "carlos@phiproducciones.com.mx"
'es el servidor de correo saliente que se utilizara para enviar el correo
mailserver = "mail.phiproducciones.com.mx"
if request("action")="envia" then
contenido = vbcrlf&vbcrlf&"Nombre: " & request("Nombre") & vbcrlf & vbcrlf & _
"Email: " & request("Email") & vbcrlf & vbcrlf & _
"Telefono: " & request("Telefono") & vbcrlf & vbcrlf & _
"Empresa: " & request("Empresa") & vbcrlf & vbcrlf & _
"Asunto: " & request("Asunto") & vbcrlf & vbcrlf & _
"Mensaje: " & request("Mensaje") & vbcrlf & vbcrlf
response.write SendEmail(strtmpmailto,strtmpmailto,"Mensaje desde sitio web", contenido)
function SendEmail(mailfromaddress,mailtoaddress,titulo,mensaje)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress = mailfromaddress
Mailer.AddRecipient mailtoaddress, mailtoaddress
Mailer.RemoteHost = mailserver
Mailer.Subject = titulo
Mailer.BodyText = mensaje
if Mailer.SendMail then
SendEmail = "Su mensaje ha sido enviado.
Gracias por comunicarse con nosotros."
else
SendEmail = "Error.
Por favor reporte esta falla a: "&strtmpmailto &""
end if
Set Mailer = Nothing
end function
else
%>
<%
end if
%>
|
 |
