mailTo problems

[Ken Ray]

Hugh,

I don't know if this works on XP, but here's my handler... perhaps you could
try it and see if it worked?

on GoMail tMailTo
  switch (the platform)
  case "MacOS"
    send "mailto:"&tMailTo to program "Finder" with "GURLGURL"
    break
  case "Win32"
    -- First, read the WIndows registry to get the default calling command
for HTML files
    put queryRegistry("HKEY_CLASSES_ROOT\mailto\shell\open\command\") into
tMailApp
    if tMailApp = "" then exit STS_GoMail
    if (quote & "%1" & quote) is in tMailApp then replace quote & "%1" &
quote with tMailTo in tMailApp
    if "%1" is in tMailApp then replace "%1" with tMailTo in tMailApp
    set cursor to watch
    open process tMailApp for neither
    break
  end switch
end GoMail

Let us know how it went...

Ken Ray
Sons of Thunder Software
Email: kray at sonsothunder.com
Web Site: http://www.sonsothunder.com/

----- Original Message -----
From: "Hugh Senior" <H at flexibleLearning.com>
To: <metacard at lists.runrev.com>
Sent: Friday, December 14, 2001 6:05 AM
Subject: mailTo problems


> This standard mailTo handler is meant to launch the user's default email
> program and open a new email with the recipient's address under 95, 98,
> Millennium, NT, XP and 2000. It is causing problems as mc complains about
> 'process already open' with no email program on screen, or in XP something
> about wrong params.
>
> on mailto tAddress,tSubject
>    put word 1 to -2 of
>
queryRegistry("hkey_local_machine\software\classes\mailto\shell\open\command
\")
> into tEmailPath
>    if tEmailPath is not empty then
>       if tSubject <> "" then launch "mailto:" &tAddress & "?subject=" &
> tSubject with tEmailPath
>       else launch "mailto:" &quote& "<" &tAddress& ">" with tEmailPath
>      if the result <>"" then
>        get smartAnswer("Mailto",the result &cr& "Please close your eMail
> program, then try again.","OK")
>      end if
>    else get smartAnswer("E-mail to"&&tAddress,"Sorry, I cannot find your
> e-mail program. Please send e-mail manually.","OK")
> end mailto
>
> It was working fine, but as the CDROM is due for release in a couple of
> weeks time, this is urgent!
>
> Does ANYONE have a handler that works reliably across these operating
systems?
> PLEASE do mail me off list if you have something /anything to help us out!
> Many, many thanks in advance.
>
> Aaaargh!
>
> /H
>


----------------------------------------------------------------------------
----


>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.306 / Virus Database: 166 - Release Date: 04/12/2001
>