>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	
>

>

No idea whether this will make a difference, but my experience is that you should always instantiate the MAPI object before instantiating any of its members. So maybe try:

oMapi = oOutlook.GetNamespace("MAPI")
outlookAccounts = oMapi.Accounts

Tamar