| Pregunta: | 7335 - MONITOREAR DESDE VB (MAPI) CUANDO LLEGUE UN MAIL EN OUTLOOK |
| Autor: | Joel Ruiz Rosas |
| Hola:
Deseo saber como monitorear un mail que llega a Outlook desde una aplicacion que se esta ejecutando en VB | |
| Respuesta: | Xavi |
| Este es un codigo que yo utilice de prueba para ello...
MAPISession1.SignOn MAPIMessages1.SessionID = MAPISession1.SessionID call Mostrar Private Sub Mostrar() Dim i As Integer Dim ii As Integer MAPIMessages1.FetchUnreadOnly = True MAPIMessages1.Fetch For i = ii To MAPIMessages1.MsgCount - 1 MAPIMessages1.MsgIndex = i ListaCorreos.AddItem MAPIMessages1.MsgSubject Next i If ListaCorreos.ListCount > 0 Then Label6.Caption = "Hay " & ListaCorreos.ListCount & " correos pendientes de leer." Else Label6.Caption = "No hay correos pendientes de leer." End If End Sub ListaCorreos es un Listbox... Espero que te sirva. | |