Por favor ayuda con prueba de OLE

[Antonio Linares]

Puedes probar este código (sólo si tienes Outlook instalado en tu ordenador) ?

local oOutlook := CreateObject( "Outlook.Application" )
local oMailItem := oOutlook:CreateItem( 0 )

oMailItem:Subject = "Test"
oMailItem:Recipients:Add( "test@gmail.com" ) // esta fallando aqui

Me interesa que lo probemos con diferentes versiones de Harbour y xHarbour.

Parece un error de Harbour al usar OLE automation. Pero aún no estoy seguro y por eso necesitamos confirmarlo.

Muchas gracias!

[Antonio Linares]

Aqui tenemos una forma de evitar ese método (que debería funcionar):

oMailItem:To = "alinares@fivetechsoft.com; antonio.fivetech@gmail.com"

[Antonio Linares]

viewtopic.php?p=169031#p169031

[Armando]

Antonio:

Code: Select all  Expand view

local oOutlook := CreateObject( "Outlook.Application" )
local oMailItem := oOutlook:CreateItem( 0 )

oMailItem:Subject = "Test"
oMailItem:Recipients:Add( "test@gmail.com" ) // esta fallando aquí
 

Con estas herramientas no reclama nada

Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130705)
FiveWin Version: FWHX 13.11
Windows8 version: 6.2, Build 9200

Saludos

[Antonio Linares]

Armando,

Debe tratarse de la versión de Outlook.

Que versión usas ?

Con la versión 2007 falla. Yo no uso Outlook (sólo uso gmail) y tenía una versión antigua (2007) y de ahí debe vernir el error.

Pero usando oMailItem:To problema solucionado

gracias

[Armando]

Antonio:

Tengo la versión Microsoft Outlook 2007 (12.0.6691.5000) SP3 MSO(12.0.6683.5000)

Y ni pío dice.

Saludos

[Antonio Linares]

gracias Armando

[AngelSalom]

Con Outlook 2013 tampoco hace nada.

[Antonio Linares]

Por lo visto la diferencia esta en que Outlook esté ó no arrancado.

Si ya está funcionando, entonces el cñodigo funciona bien. Si no lo está, falla.