| Pregunta: | 2146 - ABRIR ARCHIVOS ADJUNTOS UTILIZANDO CONTROLES MAPI |
| Autor: | alice queen |
| He enviar y recibir archivos adjuntos en el correo, pero el problema que tengo, es que no se como abrir los archivos recibidos en el correo. Desde ya muchas gracias. | |
| Respuesta: | José Miguel Diaz |
| Aunque no explicas muy bien hasta que punto has llegado, asumo que al menos sabrás como enviar los mensajes adjuntos y me imagino que sabras determinar los nombres de estos mensajes que te acaban de llegar (si no es asim mándame un correo y te doy una explicación mas específica), bueno si sabes como hacerlo, entonces coloca los nombres de los archivos en una lista y en evento doble clic de la misma coloca For i = 0 To MAPIMessages1.AttachmentCount - 1 MAPIMessages1.AttachmentIndex = i If MAPIMessages1.AttachmentPathName = List2.Text Then J = 1 Exit For End If Next i If J = 1 Then ´ se definen variables para copiar el attachments a un directorio en específico ´ que no sea temporal (en caso que se requiera para su procesamiento) ArchOrigen = MAPIMessages1.AttachmentPathName ´ Se define el nombre del archivo de origen. ArchDestino = App.Path & "\" & MAPIMessages1.AttachmentName ´ Se define el nombre del archivo de origen. ´ copia el archivo (esto es opcional en caso de que lo quieras guardar en un directorio específico) FileCopy ArchOrigen, ArchDestino Dim eje ArchOrigen = UCase$(ArchOrigen) ´ Se determina si el archivo es ejecutable por sí solo o si necesita ´ de la sentencia Start para ejecutarce If Right(ArchOrigen, 3) = "EXE" Then eje = Shell(ArchOrigen, 1) Else Dim ret As Long ret = Shell("start " & ArchOrigen) End If Else MsgBox "Existen problemas de Ubicación del Archivo", vbCritical + vbOKOnly End If Espero que te funcione, de no ser asi, Escríbeme | |