Extraer adjuntos de Outlook desde Excel

[Antoni]

Hola hijos míos:

El título lo dice todo.

En el adjunto encontrareis un módulo que permite:

Extraer archivos adjuntados en mensajes de correo electrónico.

Se puede seleccionar, la carpeta\subcarpeta de Outlook que queramos.

Se puede filtrar por archivo, remitente y destinatario.

Los mensajes una vez procesados se mueven a la subcarpeta especificada en B5.

El rango C:E admite el caracter comodín asterisco (*)

Se pueden repetir valores en distintas filas.

Y contiene un "planificador de trabajos" para ejecutar el proceso de forma periódica.

Eso es todo amigos, mañana mas y mejor.

ClockOutlook.xls

ClockOutlook.xls

[Toldeman]

Querido padre, estoy muy interesado en su aporte pero me arroja el siguiente error:

No se puede encontrar proyecto o biblioteca.

Me selecciona la funcion Trim

Un abrazo antoni.

[Antoni]

Es un problema de referencias.

[ATTACH]33156.vB[/ATTACH]

Y duerme bien hijo mío que mañana hay que ir al cole,....jajaja

[Toldeman]

Buenos dias.

Sigue dandome error, la referencia la tengo tildada.

Un saludo y gracias por el aporte.

[Antoni]

¿ El mismo error ?

[Toldeman]

Si querido, he probado el archivo en otra pc y sale el mismo error.

Haber si alguien lo puede probar y comenta.

Saludin.

[Potter08]

Hola, lo he probado y me da el mismo error.

Adjunto imagen del error.

[ATTACH]33179.vB[/ATTACH]

Por cierto el dato de las librerias lo tengo igual que la imagen que adjuntaste Macro Antonio.

Salu2.xlsx

[ioyama]

Salve Macro (toldeman)

No es por j....r pero a mí me da el mismito resultado que a toldeman. El mismo error y yo también tengo la citada referencia marcada.

Un saludo desde Vitoria

P.S. También saludos para Potter08 (hemos "casi" coincidido en el envío)

[Antoni]

Pues no se que pasa, he bajado el archivo y se me ejecuta sin problemas.

La referencia que aparece señalada no lo es es por nada especial, aparece señalada porqué sería la última que incluí den su día.

Es mas, yo consigo que me funcione simplemente con estas referencias:

[ATTACH]33181.vB[/ATTACH]

A ver si alguien mas comenta si le va bien o mal para poder identificar el problema.

- - - - - Mensaje combinado - - - - -

Por favor haced esta prueba:

Eliminar la función Trim de la instrucción:

If BuscarRemitente(Trim(Mensaje.SenderName)) = True Then[/CODE]

así,

[CODE]If BuscarRemitente(Mensaje.SenderName) = True Then[/CODE]

y volver a ejecutar a ver si sigue dando error.

[wallmaker]

Hola a todos.

Por aportar algo a este tema, a mí también me da el error el fichero cuando ejecuto la macro del botón extraer adjuntos, pero mi error parece indicar que me falta una librería de Outlook2010 que busca en la ruta D\Archivos de programa\......espero que se vea en el pantallazo adjunto.

Gracias por vuestros aportes.

Saludos,

[Antoni]

Hola WallMaker:

Desmarca la referencia Microsoft Outlook 14.0 Oblect Library y añade la de Office 2007 Microsoft Outlook 12.0 Object Library y prueba de nuevo.

Gracias por el interés.

[wallmaker]

Me dice el César que "Gracias por el interés", jajajaja, que bueno.

Hice lo que indicas y después de configurar correctamente los valores de las celdas con las carpetas, subcarpetas, etc. de outlook, ¡funciona perfectamente! Creo que a esta idea le daré alguna vuelta de tornillo....

Gracias, miles de gracias sin recortes.

[Antoni]

¡¡ Hombre, ya era hora de que le funcionara a alguien !!

[tese1969]

Yo creo que no le funciona..........que lo hace por no amargarte.......jejejejeje

[Antoni]

¡¡¡ Alfonso eres un pedazo de ca... !!!

Te dejo terminar, con brón o pullo, a tu elección,............jajaja

[tese1969]

Con un "OR" lo hubieras solucionado, maestro...........la vida es un código......jejejeje

Piensa que aquí en el foro se te tiene en un bien merecido pedestal........y claro, si presionas para que funcione, pues funciona!!!!........jejejeje.........no vaya a ser que vuelvas a cogerte unas "vacas".........jejejeje

Y sí, algo ******cete sí que soy.......:tyrannosaurus:..........

Chao,