Hola. Estoy intentando leer adjunto de un correo electronico. Tengo un problema, si utilizo MAPI, solo me lee los primeros 8 caracteres mas extension.
For nY = 0 To MAPIMessages1.AttachmentCount - 1
MAPIMessages1.AttachmentIndex = nY
cNomFic = ExtraerNombreArchivo(MAPIMessages1.AttachmentName)
FileCopy MAPIMessages1.AttachmentPathName, "C:\" & cNomFic
Next
No se como hacer para conseguir todos los caracteres. El fichero se lama: 'Alta20100518_inicial.pdf', pero me guarda : 'Alta2010.pdf'
Si alguien puede ayudarme.
Si con MAPI no se puede hacer, ¿Puede alguien decirme como lo haria con Outlook?

Muchas gracias.
Un saludo