Enviar y Recibir OutLook Office !!

[TrashAmbishion]

Chikos estoy tratando de enviar y recibir los correos de mi OutLook con el siguiente codigo

Código (vbnet) [Seleccionar] Expandir



Imports Microsoft.Office.Interop

Dim OutlookApp As New Outlook.Application()


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        OutlookApp = CreateObject("Outlook.Application")
        OutlookApp.Session.Logon("Outlook")
        OutlookApp.Session.SendAndReceive(False)
        OutlookApp = Nothing
        'End


    End Sub



Esto funciona super bien el tema es que necesito capturar el momento en que ya termino de enviar y recibir vi varios ejemplos pero no logro hacerlos echar andar, no se dispara el procedimiento SyncEnd cuando supuestamente termina...

Alguna idea

Trabajo con el Office 2103 y 2010