#define HKEY_CLASSES_ROOT -2147483648 && (( HKEY ) *0x80000000 ) #define HKEY_CURRENT_USER -2147483647 && (( HKEY ) *0x80000001 ) #define HKEY_LOCAL_MACHINE -2147483646 && (( HKEY ) *0x80000002 ) #define HKEY_USERS -2147483645 && (( HKEY ) *0x80000003 ) local oRegistry, lcMailClient oRegistry = newobject("Registry","Registry.prg") **** getting th default email client NAME! ********** lcMailClient = ; oRegistry.ReadRegistryString(HKEY_LOCAL_MACHINE,; "Software\Clients\Mail", ; "") if empty(m.lcMailClient) =messagebox("No email client installed") return "" endif return m.lcMailClientUnfortunately, I don't see any credit given in this code. I guess, I picked it from here and forgot to put proper credentials :(
>oOutlook=CREATEOBJECT("Outlook.Application") >oNewMail=oOutlook.CreateItem(0) && 0 = olMailItem >oNewMail.Recipients.Add(E_mail) >oNewMail.Subject="" >oNewMail.Body="" >oNewMail.display >>