leer adjuntos email
Publicado por Jesus (22 intervenciones) el 19/05/2010 09:11:53
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
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
Valora esta pregunta
0