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