Buen día para todos...

Estoy tratando de abrir un correo desde power builder con el codigo siguiente que me funciona para word, excel, power point pero no para Outlook.. Alguien puede ayudarme para saber que me esta faltando aca para poder completar la instruccion?

Gracias,

                OLEObject ole_object3

                integer li_resultado3

                ole_object3 = CREATE OleObject

                li_resultado3 = ole_object3.ConnectToNewObject('Outlook.Application')

                If             li_resultado3 <> 0 then

                               DESTROY ole_object3

                               MessageBox ('error', 'NO PUEDE CONECTARSE A OUTLOOK')

                               RETURN

                end if

                fil = dw_10.GetRow()

                DOC = dw_10.GetItemString(fil, 'NOMALFDOC')

                DOCUMENTO1 = 'Q:\'+DOC+ ".msg"

                ole_object3.workbooks.Open(DOCUMENTO1)

                ole_object3.Visible=true

                ole_object3.DisconnectObject()

                DESTROY ole_object3