Imprimir página | Cerrar ventana

Archivo corrupto al mover de Outlook a carpeta

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Otros Productos Microsoft
Descripción del foro: PowerPoint, Navision, Visio, FrontPage, InfoPath etc
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=82461
Fecha de impresión: 25/Abril/2019 a las 12:05


Tema: Archivo corrupto al mover de Outlook a carpeta
Publicado por: Planck
Asunto: Archivo corrupto al mover de Outlook a carpeta
Fecha de publicación: 20/Enero/2017 a las 11:23
Buenos días,

Teniendo esta macro en Outlook:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment
Dim saveFolder As String

saveFolder = "C:\Archivos Arbol\"
     For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & "Archivo.xls"
          Set objAtt = Nothing
     Next
End Sub

Para mover un archivo de excel de la bandeja de entrada a la carpeta que indico, al aplicar la regla que ejecuta la macro efectivamente se crea el archivo en la ubicación correspondiente y con el nombre correspondiente, pero al abrirlo resulta que está corrupto, todo lo que se ve son caracteres del tipo " $ &%# #"(-90(*" y cosas así, en lugar de los datos del original.

¿Alguno de vosotros sabe decirme por qué?

He probado con otros tipos de archivo (pdf, texto, imágenes) y siempre se corrompe.

Muchas gracias!!



Respuestas:
Publicado por: lbauluz
Fecha de publicación: 20/Enero/2017 a las 20:56
Hola Planck, bienvenido al foro


Mira a ver si esto te vale

http://stackoverflow.com/questions/15531093/save-attachments-to-a-folder-and-rename-them

Un saludo.

Luis


-------------
Those are my principles, and if you don't like them... well, I have others. Groucho Marx



Imprimir página | Cerrar ventana