LOCAL lcserver, lcCLSID, oReg, lcfilename lcserver = "Outlook.Application" lcCLSID = "" lcfilename = "" SET CLASSLIB TO REGISTRY ADDITIVE oReg = CREATEOBJECT("Registry") IF oReg.IsKey(lcserver) IF oReg.OpenKey(lcserver + "\CLSID") = 0 IF oReg.GetKeyValue("", @lcCLSID) = 0 oReg.CloseKey() IF oReg.OpenKey("CLSID\" + lcCLSID + "\LocalServer32") = 0 IF oReg.GetKeyValue("", @lcfilename) = 0 ? lcfilename ELSE ? "No default value specified" ENDIF ELSE ? "Unable to open server path key" ENDIF ELSE ? "Unable to retrieve CLSID" ENDIF oReg.CloseKey() ELSE ? "Unable to open CLSID key" ENDIF ELSE ? "Outlook.Application not installed" ENDIF RELEASE CLASSLIB REGISTRYhth,