Foro - Perl en Español

Publicado: **2005-09-16 10:16 @469**

Hola, ¿cómo les va?

¿Alguien podría ayudarme en la manera de cómo puedo enviar un archivo adjunto en Perl? Ya sé cómo enviar correo y lo que pasa es que tengo un programa en Perl que genera archivos.doc (Word) y quiero que esos archivos se envíen mediante correo sin usar cgi. Es un simple script, muchas gracias.

Publicado: **2005-09-16 11:16 @511**

Suponiendo que el fichero archivo.doc está grabado a disco, una forma de hacerlo es creando un mensaje de tipo MIME multiparte, adjuntar el archivo a una parte y, opcionalmente, poner algo de texto en la parte principal.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use MIME::Entity;
 
my $msg = MIME::Entity->build(
    Type     => 'multipart/mixed',
    From     => '[email protected]',
    To       => '[email protected]',
    Bcc      => '[email protected]',
    Subject  => "Archivo DOC",
);
 
$msg->attach(
    Path     => 'archivo.doc',
    Type     => 'application/msword',
    Encoding => 'base64',
);
$msg->smtpsend(
    Host     => 'servidor.de.correo.com',
    Hello    => 'nuestro.ordenador.com',
);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Envío de datos adjuntos en Perl

Envío de datos adjuntos en Perl