Correo con archivo adjunto

[Lind]

Hola!

Me gustaría saber dónde puedo encontrar un CGI en Perl para poder enviar un correo, en el que pueda adjuntar archivos.

Gracias a todos.

[kidd]

Hola:

Yo hace tiempo estuve buscando uno hasta que por fin me rendí y tuve que escribir el mio.

Ahorita no tengo mucho tiempo y no lo pude encontrar para pasartelo, pero al rato te pongo un post con el código que use...

SALUDOS

[xavigv]

A mi tambien me interesa...sabeis algo?

[kidd]

Les recomiendo que busquen la documentación del módulo MIME::Entity ya que con él pueden envíar mensajes con attachment tanto en UNIX como en Windows.

A continuacíon les pongo un ejemplo de un mensaje con un attachment de imagen usando el modulo que les indique:

Código:

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use MIME::Entity;

#Mensaje del texto
my @mensaje = "Hola:\n Este es un mensaje de prueba.\n\n Saludos";

#Ruta absolita a la imagen
my $imagen = "/ruta/absoluta/a/mi/imagen.jpg";

#Programa sendmail
my $mailprog = "/usr/sbin/sendmail/";


# Crear un nuevo objeto de mail
    my $mensaje = build MIME::Entity From => '[email protected]',
                                       To => '[email protected]',
                                  Subject => 'Mensaje de prueba',
                                     Data => \@mensaje;

      #agregar un attachment
       attach $mensaje Type => 'image/jpeg',
                   Encodign => 'base64',
                       Path => $imagen;

    # Enviar el mensaje
    open MAIL, "|$mailprog -t -i" or die "open: $!";
    $mensaje->print(\*MAIL);
    close MAIL;

SALUDOS

[Lind]

Gracias kidd