* mailto.prg 06-28-98 * this function initiates the default email client * 29-Jun-98 added clauses based on KB article about IE4 lparameters pcRecipient, pcSubject, pcBody, pcCC, pcBCC local oShell, lcRecipient, lcSubject, lcBody, lcCC, lcBCC if ( type( "pcRecipient" ) != "C" ) lcRecipient = "" else lcRecipient = alltrim( pcRecipient ) endif if ( type( "pcSubject" ) != "C" ) lcSubject = "" else lcSubject = "?subject=" + pcSubject endif if ( type( "pcBody" ) != "C" ) lcBody = "" else lcBody = "&body=" + strtran( alltrim( pcBody ), chr(13), "%0d" ) lcBody = strtran( lcBody, chr(10), "%0a" ) endif if ( type( "pcCC" ) != "C" ) lcCC = "" else lcCC = "&cc=" + alltrim( pcCC ) endif if ( type( "pcBCC" ) != "C" ) lcBCC = "" else lcBCC = "&bcc=" + alltrim( pcBCC ) endif set classlib to dfwinapi additive oShell = createobject( "ShellExecute" ) with oShell .mcDocApp = "mailto:" + lcRecipient + lcSubject + lcCC + lcBCC + lcBody .Execute() endwith>I want to have a button on a form that when clicked will launch the users default email program (Windows based) and enters the email address from a field in a table.