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!
This is a workaround:
oMailItem:To = "alinares@fivetechsoft.com; antonio.fivetech@gmail.com"
#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.
ENDRegards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
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!
Still errors out here. 
EMG
Enrico,
You can bypass it using oMailItem:To := ...
Enrico,
Please open outlook previously and once is shown, try your code again, thanks
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
Antonio Linares wrote:Enrico,
Please open outlook previously and once is shown, try your code again, thanks
TRY
GetActiveObject("Outlook.Application")
CATCH
ShellExecute(,"Open","Outlook",,,7)
ENDRegards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
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.
Thank you all for confirming it
