| JOSHE52 |  |
|
2011-05-31 01:20 - Respuestas: 0 - Tema nº: 2794172
.
tengo un problema , necesito mediante un programa en vb6 leer los archivos que vienen adjuntos en un correo, uso el mozilla thunderbird , puedo leer el mensaje, discriminar de quien proviene e incluso se que tiene archivos adjuntos pero al usar las propiedades de nombre de adjunto no muestra nada a pesar de usar bien la propieda, alguien puede decirme que es lo que sucede ?
paso el codigo que estoy usando:
mapisession1.newsession = true
mapisession1.downloadmail = true
mapisession1.signon
mapimessages1.sessionid = mapisession1.sessionid
mapimessages1.fetchunreadonly = true ' solo los no leidos
mapimessages1.fetchsorted = true ' ordenados segun llegada
mapimessages1.fetch ' obtiene el conjunto de mensajes
mruta = "d:\correos bajados" ' ruta donde dejaremos los archivos bajados del correo
ncanmsg = mapimessages1.msgcount - 1
for nx = 0 to ncanmsg
mapimessages1.msgindex = nx
' filtrado de los mensajes para seleccionar los deseados segun el asunto
if mapimessages1.msgsubject = "prueba" then
for ny = 0 to mapimessages1.attachmentcount - 1
mapimessages1.attachmentindex = ny
cnomfic = extraernombrearchivo(mapimessages1.attachmentname)
filecopy mapimessages1.attachmentpathname, mruta + "\" + cnomfic
next
end if
next
' cerrar las sesion
mapisession1.signoff
gracias de antemano
| |
|
|
