La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  739 - EL CONTROL MAPI EN VB6 NO BAJA LOS MENSAJES
Autor:  emanuel areias
No puedo lograr en VB6 bajar el correo al iniciar una sesion en el sistema de correo. La sesion se inicia perfectamente ya que puedo enviar mensajes, pero no funciona el download mail. Obviamente tengo activada la opción del mismo nombre. Socorro !!
  Respuesta:  Sergio
H5>Sesion.LogonUI = True
Sesion.SignOn

Mensaje.SessionID = Sesion.SessionID

´mensajes no leidos
Mensaje.FetchUnreadOnly = True

´Crea un conjunto de mensajes a partir de los mensajes seleccionados en la Bandeja de entrada.
Mensaje.Fetch
If Mensaje.MsgCount 0 Then
For i = 0 To Mensaje.MsgCount - 1
Mensaje.MsgIndex = i
If Mensaje.AttachmentCount 0 Then
For X = 0 To Mensaje.AttachmentCount - 1
Mensaje.AttachmentIndex = X
FileCopy Mensaje.AttachmentPathName, App.Path ...
Next
End If
Next
´ borro el mensaje
Mensaje.Delete
End If