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.
-
- Publicidad
Envío de datos adjuntos en Perl
2 mensajes
• Página 1 de 1
Envío de datos adjuntos en Perl
por Richo » 2005-09-16 10:16 @469
- Richo
- Perlero nuevo
- Mensajes: 8
- Registrado: 2005-08-30 09:46 @448
Publicidad
por explorer39 » 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.
Using perl Syntax Highlighting
- use MIME::Entity;
- my $msg = MIME::Entity->build(
- Type => 'multipart/mixed',
- 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.003 segundos, usando GeSHi 1.0.8.4
- explorer39
2 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado