Sending mail on Windows?

[Ken Ray]

Magnus,

Here's the code I use (the Windows part):

on SendMail tMailTo
  put queryRegistry("HKEY_CLASSES_ROOT\mailto\shell\open\command\" into
tMailApp
  if tMailApp = "" then exit SendMail
  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
  open process tMailApp for neither
end SendMail

Called by something like:

on mouseUp
  SendMail "ken at sonsothunder.com"
end mouseUp

The funky "%1" situations are based on experience. Sometimes the registry
key will just have an Application, like:

  "c:\program files\myMailApp\myMailApp.exe"

Other times it will be quoted, like:

  "c:\program files\my mail app\myMailApp.exe" "%1"

And occasionally like this:

  "c:\program files\my mail app\my MailApp.exe %1"

This code takes care of all those situations.

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


----- Original Message -----
From: "Magnus von Brmsen" <webmaster at studioalice.se>
To: <use-revolution at lists.runrev.com>
Sent: Wednesday, March 27, 2002 9:37 AM
Subject: Sending mail on Windows?


> Hello
>
> Om macintosh you can use:
> revGoURL "mailto:webmaster at studioalice.se"
>
> But, how do you do it on Windows? In the Transcript Dictionary it says
> that "mailto" is mac-only.
>
> (Mr. Cozens, thanks for the tip about file extension.)
>
> /magnus von brmsen
>
>
> --------------------------------------------------------------------------
> "Man skall inte ropa hej frrn pc'n r skjuten"
> --------------------------------------------------------------------------
> Studio Alice
> Magnus von Brmsen
> 0702-212 495
> 0322-633 833
> www.studioalice.se
>
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/use-revolution
>