• Publicidad

Descargar archivo adjunto de correo

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Descargar archivo adjunto de correo

Notapor jomarq » 2015-06-09 12:31 @563

Buenas tardes.

Me conecto al servidor de correo con normalidad y puedo ver los mensajes de determinada cuenta (correo1). Lo que deseo es poder guardar los adjuntos en una carpeta determinada. Por favor, si alguien tuviera algún enlace. Abajo muestro código de conexión y lectura de correos.

#!/usr/bin/perl -w
use strict;
use Net::POP3;

my $pop = Net::POP3->new('miempresa.pe', Timeout => 10) || die "No se pudo abrir conexión: $!";

$pop->login("correo1", "pwd") or die("No se pudo hacer login: $!");

my $msgnums = $pop->list;

foreach my $msgnum (keys %$msgnums) {
my $msg = $pop->get($msgnum);
print @$msg;
}

$pop->quit;
jomarq
Perlero nuevo
Perlero nuevo
 
Mensajes: 8
Registrado: 2015-01-13 12:31 @563

Publicidad

Re: Descargar archivo adjunto de correo

Notapor explorer » 2015-06-09 16:43 @738

JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14476
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados

cron