Hello all contributors,

Stop the presses ;-)

This problem was too weird, so I decided to test that code elsewhere.

Conclussion...

My windows 11 is sick. I tested the code on Windows server 2016 and on an old windows 10 computer. Everything wen through practically smoothly. Perfect on WIndows Server 1016 but Slooooower on windows 10.

So...

I really appreciate your involvment because in the process you all heped me to write better code

Many thanks.

8-< Now I'm wondering if there is a way to install a fix for that error without having to reinstall windows 11.


Regards.



>Hello all,
>
>I execute this code. First time I execute everything's fine. Second time my application hangs and I have to reboot my computer. I guess that there could be something related to outlook still in memory. But I don't understand.
>
>
>

>lContinue = .F.
>
>oOutlook = CREATEOBJECT("Outlook.Application")
>outlookAccounts = oOutlook.GetNamespace("MAPI").Accounts
>FOR i = 1 TO outlookAccounts.Count
>    IF outlookAccounts.Item(i).DisplayName = "myemail@mycompany.com" THEN
>		lContinue = .T.
>        EXIT
>    ENDIF
>ENDFOR
>oOutlook = null 
>outlookAccounts = null
>
>IF !lContinue
>	Messagebox( "You can't use that application.")
>	QUIT
>ENDIF 
>