Problem with OLE and Outlook

[driessen]

Hello,

On a computer of one of my costumers, something very strange happens.

I try to send an email from my FWH-application through Outlook 2003.

To start my email, I use this code :

Code: Select all

TRY
    oMail  := oOutLook:CreateItem(olMailItem)
    EmSend := .T.
CATCH
    TRY
       oMail  := oOutLook:CreateItem(olMailItem)
       EmSend := .T.
    CATCH
       EmSend := .F.
    END
END

Whatever I try, EmSend is always .F.

What can be the reason for this behaviour ? I have several hundreds of other PC's who don't have this problem.

Thank you very much in advance.