I have OE OK in IE, but still when I right click and 'send to' mail
recipient it opens in outlook!
"Alias" wrote in message
...
maeve wrote:
I have OE as my default mail client but when I right click and 'send to'
mail recipient it opens as outlook and I don't have my addresses there,
so I now open OE and attach what I want to send. I used to be able to do
it but it has changed since my son reinstalled windows! How do I change
it to open OE? Thanks

Make sure it's the default in Internet Explorer. Open IE/Tools/Internet
Options/Programs.

Alias

"maeve" wrote in message
I have OE OK in IE, but still when I right click and 'send to' mail
recipient it opens in outlook!

How about the following HTA?

!-- FileName : MyMailerEn.hta --
htmlhead
meta http-equiv=Content-Type content="text/html; charset=en-us"
titleSelection of Mail Client/title
hta:application scroll="no"/
script language=vbs
Option Explicit
Const ClientKey = "Software\clients\mail\"
Const W = 300, H = 200: Dim Form
With window
.resizeTo W, H
.moveTo (screen.availWidth - W) \ 2, (screen.availHeight - H) \ 2
End With
'
Sub Initialize()
Dim Client, SubKeys, aSubKey, aOption
Set Form = document.all
With CreateObject("WScript.Shell")
On Error Resume Next
Client = .RegRead("HKCU\" & ClientKey)
If Err Then Client = .RegRead("HKLM\" & ClientKey)
On Error GoTo 0
End With
If EnumKey("HKLM\" & ClientKey, SubKeys) 0 Then Me.Close
For Each aSubKey In SubKeys
Set aOption = document.createElement("option")
Form.Clients.options.add(aOption)
aOption.innertext = aSubKey: aOption.value = aSubKey
If aSubKey = Client Then aOption.selected = True
Next
End Sub
'
Sub SetClient
With CreateObject("WScript.Shell")
.RegWrite "HKCU\" & ClientKey, Form.Clients.value
If Form.CB1.Checked Then _
.RegWrite "HKLM\" & ClientKey, Form.Clients.value
End With
End Sub
'
Function EnumKey(ByVal MainKey, SubKeys)
Const HKCR = "HKEY_CLASSES_ROOT", HKCU = "HKEY_CURRENT_USER"
Const HKLM = "HKEY_LOCAL_MACHINE", Tmp = "Temp.reg"
Dim Buf, Pat, cRes, aRes, aKey
Select Case Left(MainKey, 4)
Case "HKCR": MainKey = HKCR & Mid(Mainkey, 5)
Case "HKCU": MainKey = HKCU & Mid(Mainkey, 5)
Case "HKLM": MainKey = HKLM & Mid(Mainkey, 5)
End Select
With CreateObject("WScript.Shell")
.Run "Regedit /e " & Tmp & " """ & MainKey & """", 0, True
End With
With CreateObject("Scripting.FileSystemObject")
If Not .FileExists(Tmp) Then EnumKey = 1: Exit Function
With .OpenTextFile(Tmp, 1, False, -2)
Buf = .ReadAll: .Close
End With
.DeleteFile Tmp
End With
Pat = "\[" & Replace(MainKey, "\", "\\") & "\\([^\]\\]+)"
With New RegExp
.IgnoreCase = True: .Global = True
.Pattern = Pat: Set cRes = .Execute(Buf)
End With
If cRes.Count = 0 Then EnumKey = 1: Exit Function
With CreateObject("Scripting.Dictionary")
For Each aRes In cRes
aKey = aRes.SubMatches(0)
If Not .Exists(aKey) Then .Add aKey, ""
Next
SubKeys = .Keys(): EnumKey = 0
End With
End Function
'
/script/headbody onload=Initializeform
pChange Mail Client invoked by br
   'SendTo - MailRecipient'br/p
pClient : select id=Clients/selectbr
input type=checkbox id=CB1Change also Default Client/p
p align=centerinput type=button value=Set onclick=SetClient
    input type=button value=Quit onclick=close/p
/form/body/html

--
Miyahn (Masataka Miya****a) JPN
Microsoft MVP for Microsoft Office - Excel(Jan 2006 - Dec 2006)

Sorry for mistake.

meta http-equiv=Content-Type content="text/html; charset=en-us"

Should be,
meta http-equiv=Content-Type content="text/html; charset=us-ascii"

--
Miyahn (Masataka Miya****a) JPN
Microsoft MVP for Microsoft Office - Excel(Jan 2006 - Dec 2006)

maeve wrote:
I have OE OK in IE, but still when I right click and 'send to' mail
recipient it opens in outlook!

Have you checked in OE to see if OE thinks it is the default program?

Alias
"Alias" wrote in message
...
maeve wrote:
I have OE as my default mail client but when I right click and 'send to'
mail recipient it opens as outlook and I don't have my addresses there,
so I now open OE and attach what I want to send. I used to be able to do
it but it has changed since my son reinstalled windows! How do I change
it to open OE? Thanks
Make sure it's the default in Internet Explorer. Open IE/Tools/Internet
Options/Programs.

Alias