John,
Here's ShellExecute compatible code:
* 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
But I think when I was testing this as a link on a page it didn't work quite the same. Anyway here is the tag I was playing with:
>a href=mailto:x@y?subject=test%20subject&body=this%20is%20the%20body%20of%20the%20message%0d%0aI%20sure%20hope%20that%20it%20works&cc=cc@cc.com&bcc=bcc@bcc.com>click it>/a>
>Sorry about that! Anyway does anyone know what the html tag is to populate the cc: for email in IE 4?