Enviar Mail con archivo adjunto
Publicado: 2006-06-23 12:49 @576
Hola a todos. Soy algo nuevo en Perl y la vez pasada pude programar un envío de correo en Perl y la verdad me causó muchos problemas pero finalmente me funcionó. El problema es que ahora necesito que ese mismo código me sirva para enviar correos pero con archivos adjuntos.
Quisiera que me ayuden a ver cómo lo puedo hacer ya que no tengo idea y los ejemplos que encontré no son muy claros. Gracias de antemano. Acá les pego el código que uso para envío de correo.
Quisiera que me ayuden a ver cómo lo puedo hacer ya que no tengo idea y los ejemplos que encontré no son muy claros. Gracias de antemano. Acá les pego el código que uso para envío de correo.
Using perl Syntax Highlighting
- #!C:\perl\bin\perl.exe -w
- use strict;
- use Mail::Sendmail;
- use CGI qw(:standard);
- my $nombre = param('textnombre');
- my $file = param('file');
- my $mensaje =param('todo');
- # Creamos el hash con nuestro mensajes
- my %mail = (
- From => 'Web',
- Subject => 'Consultas',
- Message => $mensaje,
- file => $file,
- Smtp => 'smtpserver'
- );
- # Enviar el mensaje
- unless (sendmail(%mail)) {
- print "Location: http://localhost/noenvio.htm \n\n";
- # Error!
- exit(1);
- }
- # Envío correcto.
- print "Location: http://localhost/envio.htm \n\n";
- exit(1);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4