| Pregunta: | 18963 - GUARDAR ARCHIVOS ANEXOX EN DISCO UTILIZANZO "MAPI CONTROLS" |
| Autor: | Nestor Rojas Asencio |
| ojala y me puedan ayudar, lo que pasa es que estado travajando los mapicontrols y ya logre mandar correctamente un e-mail, pero ahora queiro bajarlo y guardar los archivos adjuntos de estos correos.
no es necesario que sea con los mapicontrols pero que se pueda hacer. de antemano gracias por su ayuda.... | |
| Respuesta: | alice queen |
| Nestor:
Este es el código que uso yo para bajar archivos adjuntos Public Sub BajarDatos() Dim ArchivoDestino, ArchOrigen As String Dim Indice As Integer On Error GoTo errorhandler LblMsgDateReceived.Text = MAPIMessages1.MsgDateReceived LblMsgOrigDisplayName.Text = MAPIMessages1.MsgOrigDisplayName TxtAttachment = MAPIMessages1.AttachmentName ArchOrigen = MAPIMessages1.AttachmentPathName ArchDestino = MiDatabase ChDir MiRuta FileCopy ArchOrigen, ArchDestino MsgBox "El adjunto ha sido recibido correctamente", vbInformation, "MENSAJE" MAPIMessages1.Delete MAPISession1.SignOff errorhandler: Select Case Err.Number Case Is = 0 ' Resume Next Case Else MsgBox Err.Number & " " & Err.Description End Select End Sub espero que te sirva, saludos | |