Please help with OLE test

[Antonio Linares]

Could you please test this code (only if you have Outlook installed on your computer) ?

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

oMailItem:Subject = "Test"
oMailItem:Recipients:Add( "test@gmail.com" ) // it is failing here

I am interested in different Harbour and xHarbour versions.

It seems to me as a Harbour OLE automation error. But I am not sure yet, thats why we need to confirm it

Many thanks!

[Antonio Linares]

This is a workaround:

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

[Antonio Linares]

viewtopic.php?p=169031#p169031

[driessen]

Antonio,

Very strange. I always use this code :

Code: Select all  Expand view

#INCLUDE "MAIL.CH"

..................

local EmSend    := .T.
local ErOutlook,ErMail,ErNameSpace

..................

TRY
   GetActiveObject("Outlook.Application")
CATCH
   ShellExecute(,"Open","Outlook",,,7)
END
TRY
   ErOutLook   := TOleAuto():New("Outlook.Application")
   ErNameSpace := ErOutLook:GetNameSpace("MAPI")
   EmSend      := .T.
CATCH
   EmSend      := .F.
END
TRY
   IF EmSend
      ErMail         := ErOutlook:CreateItem(olMailItem)
      ErMail:Subject := ALLTRIM("Juda(32)-foutmelding - " + ALLTRIM(PAR->GKANTOOR))
      ErMail:Body    := "Klant : " + ALLTRIM(PAR->GKANTOOR) + CRLF + "Gebruiker : " + ALLTRIM(US->USERNAAM) + CRLF + "Datum : " + DTOC(DATE()) + CRLF + "Uur : " + TIME() + CRLF + CRLF + "Juda(32)-foutmelding : zie bijlage !!!"
      ErMail:Recipients:Add("michel.driessen@ma-consult.be")
      ErMail:Attachments:Add(EmFile)
      ErMail:Display()
   ENDIF
CATCH
    EmSend := .F.
END

This code is working just fine in Harbour as well as in xHarbour, with different versions of Outlook starting 2007.

[Antonio Linares]

Michel,

Don't know why but now it is working fine. I have just tested it again.

Really strange but now is working. Outlook mistery ?

many thanks!

[Enrico Maria Giordano]

Still errors out here.

EMG

[Antonio Linares]

Enrico,

You can bypass it using oMailItem:To := ...

[Antonio Linares]

Enrico,

Please open outlook previously and once is shown, try your code again, thanks

[hmpaquito]

Antonio,

Outlook y Excel para mi tambien son un misterio. Muchas veces he tenido errores que he podido sortear buscando un rodeo con metodos alternativos.

Una buena manera de controlar como hacer las cosas o dejar de hacer algunas, sino hay alternativa, es mirando la version de excel / outlook

De esta manera tenemos que outlook (o excel) son version-dependientes... algo que facilita que en el futuro, con las actualizacion de outlook nuestro software haga crash.

Solucion radical: no usarlos.

Saludos

[Enrico Maria Giordano]

Antonio,

Enrico,

Please open outlook previously and once is shown, try your code again, thanks

Yes, it works fine if I open Outlook before running my sample.

EMG

[driessen]

Antonio,

You are right. Outlook has to be opened.

That's why I start with :

Code: Select all  Expand view

TRY
   GetActiveObject("Outlook.Application")
CATCH
   ShellExecute(,"Open","Outlook",,,7)
END

[TimStone]

That is not unusual. Other programs also require Outlook to be open. Outlook runs 24/7 on my computers so of course it would already be open anyway.

[Antonio Linares]

Thank you all for confirming it