Visual Basic - leer adjuntos email

Life is soft - evento anual de software empresarial
   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder