Thank you very much, Cetin.
>>The following line of code
>>
>>
>>oOutlook = CreateObject("Outlook.Application")
>>>>
>>generates and error, if Outlook is not installed. Is there a way to check if Outlook is installed?
>>
>>Thank you.
>
>
>? _IsClassRegistered("Outlook.application")
>
>function _IsClassRegistered
>lparameters tcClass
>#DEFINE HKEY_CLASSES_ROOT -2147483648
>#DEFINE ERROR_SUCCESS 0
>
>DECLARE Integer RegOpenKey IN Win32API ;
> Integer nHKey, String @cSubKey, Integer @nResult
>
>DECLARE Integer RegCloseKey IN Win32API ;
> Integer nHKey
>
>local lnKey
>lnKey = 0
>llRetVal = ( RegOpenKey(HKEY_CLASSES_ROOT, tcClass, @lnKey) = ERROR_SUCCESS )
>if llRetVal
> RegCloseKey(lnKey)
>endif
>*vfp7
>*CLEAR DLLS 'RegOpenKey', 'RegCloseKey'
>return llRetVal
>Cetin
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
