FiveTech Support Forums

      TRY
         oOutLook := CreateObject("Outlook.Application")
         EmSend := .T.
      CATCH
         TRY
            oOutLook := CreateObject("Outlook.Application")
            EmSend := .T.
         CATCH
            EmSend := .F.
         END
      END

		TRY
         IF EmSend
            oMail         := oOutLook:CreateItem(olMailItem)
            oMail:Subject := ALLTRIM("Juda(32)-foutmelding - " + ALLTRIM(PAR->GKANTOOR))
            oMail:Body    := "Datum : " + DTOC(DATE()) + CRLF + "Uur : " + TIME()
            oMail:Recipients:Add("info@ma-consult.be")
            oMail:Attachments:Add("Error.log")
            oMail:Send()
            MsgAlert("Error.log has been send !!!","Error")
         ENDIF
      CATCH
      	EmSend := .F.
      END

      CLOSE ALL

      SET RESOURCES TO
      ErrorLevel( 1 )
      QUIT

Premature Array/Object Release detected 013440ec (the closing number changes each time)

Michel,

Try putting a sysrefresh() in after oMail:send(). If that doesn't solve it, add a delay after oMail:send().

waitSeconds(3)

Regards,
James

Michel,

Try these lines before calling QUIT:

oMail = nil
oOutLook = nil

Thanks, guys, for your help.

Antonio, your suggestion solved my problem.

Have a nice day.

Driessen:
Is the code you posted the full code for the errsys email function. I think its a great idea and i will be trying it in my app. If its not the complete code please post the entire code or email it to me. I'm using harbour will it work in harbour.

Thanks

Apart from the remarks by Antonio, that is indeed the source I added to the errorsysw.prg.

Good luck.

Thanks I'll let you know how it works.

A program is trying to access e-mail addresses stored in Outlook. Do you want to do allow this?

Driessen
Its stops running at oMail:Attachments:Add("Error.log"). If I remove this line it works.

Any suggestions?

Harvey,

Maybe you need to add the full pathname of error.log ?

It's working fine here.

Driessen:

Path worked. Thanks for the help.

Harvey,

This will automatically get you the current path of the EXE so you don't have to hard code the path.

cPath:= cFilePath( GetModuleFileName( GetInstance() ) )

Regards,
James

Thanks James.

James,

Indeed, you are right but only if the data-files and the EXE-files are in the same directory.

In my case, they aren't.

Michel,

Then just add your data directory name to the path, something like this:

cPath:= cFilePath( GetModuleFileName( GetInstance() ) ) + "\data"

But I am not sure where the error.log is going to be written--in the default directory or in the EXE's directory.

James