Hi Tore,

Thanks for the reply but I still have the same problem

Here is the revised code

lcontinue = .F.
oOutlook = CREATEOBJECT("Outlook.Application")
IF VARTYPE( oOutlook) = "U"
	Messagebox( "Outlook must be running")
	oOutlook = null
	RELEASE oOutlook	
	QUIT 
ELSE 
	outlookAccounts = oOutlook.GetNamespace("MAPI").Accounts
	FOR i = 1 TO outlookAccounts.Count
	    IF outlookAccounts.Item(i).DisplayName = "SomeEmail@mybusiness.com" THEN
			lcontinue = .T.
	        EXIT
	    ENDIF
	ENDFOR
	outlookAccounts = null
	RELEASE outlookAccounts

	IF !lcontinue
		Messagebox( "You can't use the application.")
		oOutlook = null
		RELEASE oOutlook	
		quit
	ENDIF 
ENDIF 
oOutlook = null
RELEASE oOutlook	

>http://www.baiyujia.com/vfpcompiler/ works for me!
>
>>Hi Borislav,
>>
>>Would you happen to have his email address? I have an error 530 when I try to go to his site.
>>
>>>>Hello all,
>>>>
>>>>Where can I get the VFP9 compiler?
>>>>
>>>>I tried http://www.baiyujia.com/vfpcompiler/
>>>>
>>>>But it doesn't look like it's the right URL.
>>>
>>>Write to Cheng, He will answer.