Tema: Enviar E-Mails
Pregunta: Como puedo en enviar un mail con windows?
Respuesta: Es muy común que los formularios web se envíen a una casilla de mail, para ello necesitamos instalar el módulo Mail::Sendmail...
use Mail::Sendmail;
Código:
# Creamos el hash con nuestro mensajes
my %mail = (
To => '[email protected]',
From => '[email protected]',
Subject => 'Asunto del mensaje',
Message => "mensaje",
Smtp => 'www.misitio.com'
);
# Envíar el mensaje
unless (sendmail(%mail)) {
# Error!
print "Content-type: text/html\n\n";
print "ERROR\n";
exit(1);
}
# Envío correcto.
print "Location: http://www.misitio.com/gracias.html \n\n";
exit(1);
Para más información, checkeen el tutorial que escribio kidd en
http://perlenespanol.baboonsoftware....ut/000050.html
Gracias kidd !!!