Antes que nada los felicito por este sitio muy útil para los que no tenemos tanta experiencia con Perl
Les explico mi problema: estoy intentando hacer un formulario de contacto; el servidor es Windows; no hay sendmail pero vi que está instalado el módulo Net::SMTP; hasta el día de hoy no he podido hacer funcionar el script. El código es el siguiente:
Using perl Syntax Highlighting
#!C:\perl\bin\perl.exe
print "Content-type:text/html\n\n";
use Net::SMTP;
$ServerName="smtp.dominio1.com";
$from="cuenta\@dominio1.com";
$to="cuenta\@dominio2.com";
$subject="Prueba";
$smtp = Net::SMTP->new($ServerName) || die "No se puede conectar al servidor";
$smtp->mail( $from );
$smtp->to( $to );
$smtp->data();
$smtp->datasend("To: $to\r\n");
$smtp->datasend("From: $from\r\n");
$smtp->datasend("Subject: $subject\r\n");
$smtp->datasend("\n");
$smtp->datasend("Prueba de correo\n");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit; #
print "Mensaje enviado";
print "Content-type:text/html\n\n";
use Net::SMTP;
$ServerName="smtp.dominio1.com";
$from="cuenta\@dominio1.com";
$to="cuenta\@dominio2.com";
$subject="Prueba";
$smtp = Net::SMTP->new($ServerName) || die "No se puede conectar al servidor";
$smtp->mail( $from );
$smtp->to( $to );
$smtp->data();
$smtp->datasend("To: $to\r\n");
$smtp->datasend("From: $from\r\n");
$smtp->datasend("Subject: $subject\r\n");
$smtp->datasend("\n");
$smtp->datasend("Prueba de correo\n");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit; #
print "Mensaje enviado";
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
He cambiado "smtp.dominio1.com" por "mail.dominio1.com" pero no llega el correo. Lo interesante es que tampoco me marca error
¿Estoy haciendo algo mal?, ¿será algo del módulo?
He visto otros posts en donde se mencionan otros módulos como Mail::Sender o MIME::Lite pero desafortunadamente no están en el servidor y no hay mucho soporte por parte del hosting para ese asunto.
¡¡ Gracias de antemano por su respuesta !!
¡¡ Saludos !!
