Error al leer un archivo .msg
Publicado: 2020-04-28 14:42 @654Buenas tardes.
Estoy intentando leer un archivo .msg que me compartió mi jefe para su posterior migración y que tenga la codificación bien y demás.
Al intentar leer los archivos hay unos cuantos que me generan el siguiente error:
mientras que el resto sí me los procesa de manera correcta.
Comparto el código con el que los estoy leyendo:
De ante mano les doy gracias porque ya llevo varios días y no encuentro el problema.
Estoy intentando leer un archivo .msg que me compartió mi jefe para su posterior migración y que tenga la codificación bien y demás.
Al intentar leer los archivos hay unos cuantos que me generan el siguiente error:
Using text Syntax Highlighting
Multiple properties not implemented at C:/Perl64/site/lib/Mail/Exchange/PropertyContainer.pm line 192.
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
mientras que el resto sí me los procesa de manera correcta.
Comparto el código con el que los estoy leyendo:
Using perl Syntax Highlighting
- use Mail::Exchange::Message;
- use Mail::Exchange::Message::MessageFlags;
- use Mail::Exchange::Recipient;
- use Mail::Exchange::Attachment;
- use Mail::Exchange::PidTagIDs;
- open(archivo,"C:\\Users\\contrdgt1\\Desktop\\corregir mail\\entrada.csv");
- my @rows=<archivo>;
- close(archivo);
- foreach $row (@rows){
- chomp $row;
- @matrix = split /;/, $row;
- my $rutaArchivo = $matrix[0];
- my $rutaDestino = $matrix[1];
- my $nombre = "";
- if($rutaArchivo =~ /.+\\.+\\(.+$)/){
- $nombre = $1;
- }
- elsif($rutaArchivo =~ /.+\/.+\/(.+$)/){
- $nombre = $1;
- }
- # print $rutaArchivo."\n";
- my $msg = Mail::Exchange::Message->new($rutaArchivo);
- $msg->setUnicode(1);
- $msg->setBody(PidTagBody);
- $msg->setSubject($msg->get(PidTagSubject));
- unlink($rutaArchivo);
- $msg->save($rutaDestino.$nombre);
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
De ante mano les doy gracias porque ya llevo varios días y no encuentro el problema.