¿Cómo puedo crear un formulario para enviar correo desde mis páginas?
Para ello tendrás que usar lenguaje de programación de servidor. Aquí
explicaremos cómo usar PHP y ASP con los objetos CDonts o CDO.
PHP
Para usar php dentro de un servidor Windows tendrás que copiar este archivo
dentro del directorio principal de tus páginas.
PHP.INI. Dentro de tu página podrás usar
la función mail() con un código como este:
<?
$Body .= "Hola, este es un correo de prueba";
$Subject = "Correo de prueba usando php";
$cabeceras = 'MIME-Version: 1.0' . "\r\n";
$cabeceras .= 'Content-type: text/html; charset=iso-8859-1' . "\r\n";
$cabeceras .= 'To: Cliente Geniusys <cliente@hotmail.com>' . "\r\n";
$cabeceras .= 'From: Servicios Geniusys <servicios@geniusys.com>' . "\r\n";
$cabeceras .= 'Cc: ventas@geniusys.com' . "\r\n";
$cabeceras .= 'Bcc: chequeo@example.com' . "\r\n";
Mail($Correo,$Subject,$Body, $cabeceras);
?>
Podrás encontrar más información en la página:
http://mx.php.net/function.mail.
CDonts
Este objeto lo podrás usar siempre y cuando estés en un servidor Windows 2000
usando el lenguaje de programación ASP. Aquí te mostramos un ejemplo.
<body>
<%
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = "servicios@geniusys.com"
mailobj.to = "ventas@geniusys.com"
mailobj.subject = "Saludos"
mailobj.body = "Hola, este es un mensaje enviado desde una página ASP"
mailobj.send
%>
</body>
CDO
Finalmente, si estás en un servidor Windows 2003 podrás usar este objeto en
tus páginas ASP o ASP.Net
<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.hospedaje.com.mx"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "servicios@hospedaje.com.mx"
.To = "servicios@hospedaje.com.mx"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Podrás ver más información en la página donde tomamos este ejemplo:
http://www.w3schools.com/asp/asp_send_email.asp.
|
