_InetMail function does not work when Windows Live mail is default client

[Emiel Wieldraaijer]

The function _InetMail needs some improvements

Install Outlook 2007 and Windows Live Mail, make Windows Live Mail the default client.

If i take a look at the function _InetMail i see the line RegRead('HKCR\mailto\shell\open\command', "") This retrieves information about Outlook 2007 (in my case) but if i check RegRead('HKCU\Software\Clients\Mail', "") which retrieves the current user default email client i see that Windows Live Mail is default.

So when you use the function it will open outlook instead of Windows Live Mail

I changed the code to add support for Windows Live Mail (see below) but maybe there is a better way..

Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody)
	Local $prev = Opt("ExpandEnvStrings", 1)
	Local $dflt = RegRead($HKCU & '\Software\Clients\Mail', "")

	If $dflt = "Windows Live Mail" Then
		Local $var = RegRead($HKCR & '\WLMail.Url.Mailto\Shell\open\command', "")
	Else
		Local $var = RegRead($HKCR & '\mailto\shell\open\command', "")
	EndIf
	Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody)))
	Opt("ExpandEnvStrings", $prev)
	Return $ret
EndFunc   ;==>_INetMail

[Jpm]

Fixed by revision [5848] in version: 3.3.7.0