This launches your email program, but adds a quote mark at the end of the
Address. Why? Can someone PLEASE tell me why??
on mailto tAddress,tSubject
put word 1 to -2 of queryRegistry
("hkey_local_machine\software\classes\mailto\shell\open\command\") into
tBrowserPath
if tBrowserPath is not empty then
if tSubject <> "" then
launch "mailto:"&tAddress & "?subject=" & tSubject with tBrowserPath
else launch "mailto:"&tAddress with tBrowserPath
if the result <>"" then
get smartAnswer("Process already open","Please close your eMail
program, then try again.","OK")
end if
else get smartAnswer("E-mail to"&&tAddress,"Sorry, I cannot identify your
default e-mail program. Please send e-mail manually.","OK")
end mailto
/H
Hugh Senior
The Flexible Learning Company
Consultant Programming & Software Solutions
Fax/Voice: +44 (0)1483.27 87 27
Email: [EMAIL PROTECTED]
Web: www.flexibleLearning.com
Archives: http://www.mail-archive.com/[email protected]/
Info: http://www.xworlds.com/metacard/mailinglist.htm
Please send bug reports to <[EMAIL PROTECTED]>, not this list.
