El código para el archivo index.html es el siguiente:

 
<HTML>
<HEAD>
<TITLE>Prueba PEAR para envio de Mails</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<center>
<h1>Prueba Envio de Mails HTML con PEAR con Autenticacion</h1>
</center>
<font size="4" style="arial"><u> Ingreso de Datos</font></u>
<form action="enviar.php" method="post">
<table>
<tr><td>From: </td><td> Tiene que estar configurado en el archivo que
envia el correojunto con el usuario y la clave</td><td>
<tr><td>To:</td><td><INPUT TYPE="text" NAME="para"></td></tr>
<tr><td>Subject:</td><td><INPUT TYPE="text" NAME="titulo"></td>
<tr><td>Comentario:</td><td><textarea cols="40" rows="5" NAME="com">
</textarea><br>
<tr><td></td><td><INPUT TYPE="submit" NAME="accion" VALUE="Enviar email">
</td>
</HTML>
 
Ahora, bien, una vez que se haya conformado el primer archivo pasamos a armar el segundo que llevara
el nombre enviar.php
El código sería el siguiente:
 
<?php
require_once "Mail.php";
require_once "Mail/mime.php";

$host = ""; # smtp del domino (smtp.domino.com)
$username = ""; # usuario del mail que va a autentificar (info@dominio.com)
$password = ""; # clave de dicha cuenta de correo
$port = "25";

$from = ""; # cuenta del remitente del correo
$to = $_POST["para"];
$subject = $_POST["titulo"];

$html = $_POST["com"];

$hdrs = array ('From' => $from,
'To' => $to,
'Subject' => $subject,
);

$mime = new Mail_mime();
$mime->setTXTBody(strip_tags($html));
$mime->setHTMLBody($html);

$body = $mime->get();
$hdrs = $mime->headers($hdrs);

$smtp = Mail::factory('smtp',
array ('host' => $host,
'port' => $port,
'auth' => true,
'username' => $username,
'password' => $password));

$mail = $smtp->send($to, $hdrs, $body);

if (PEAR::isError($mail)) {
echo("<p>" . $mail->getMessage() . "</p>");
} else {
echo("<p>Correo enviado!</p>");
}
?>
 
 
 
Rute path: FAQ NT / COMO ENVIAR UN MAIL CON HTML CON EL COMPONENTE PEAR CON AUTENTICACIÓN?
Home | Hosting | Housing | Revendedores | Soporte | Empresa | Mapa del Sitio | Contacto | FAQ | Blog Corporativo
Atención técnica y comercial: (54)-11-5031-1111 las 24 hs. los 365 días del año. ToWebs, (c) 2008
Virtucom Networks S.A Av. Belgrano 1586, piso 10 (C1093AAQ) Cap. Fed. Bs. As, Argentina.