Am I going crackers or has something change with the way OE handles .eml
files. I collect stationery and would save it in .eml format so that I
could go to my stationery folder and double click on the .eml and it would
open ready for use.

But now I double click and it opens but I have to forward it and then remove
the header before I can type in a new message. I don't even know what to
look for on google to address this problem. I hope someone will understand
what I mean and be able to help me fix this. I guess it's not so bad having
to forward the message to use the stationery but I would like to know if
there is a simple solution to make things go back to the way they were. I
have my settings correct as given by http://www.lettermanstationery.com and
all the scrolling and scripts appear to work.

Any help appreciated

Joosie

joosie wrote:

Am I going crackers or has something change with the way OE handles .eml
files. I collect stationery and would save it in .eml format so that I
could go to my stationery folder and double click on the .eml and it would
open ready for use.

But now I double click and it opens but I have to forward it and then
remove the header before I can type in a new message. I don't even know
what to look for on google to address this problem. I hope someone will
understand what I mean and be able to help me fix this. I guess it's not
so bad having to forward the message to use the stationery but I would
like to know if there is a simple solution to make things go back to the
way they were. I have my settings correct as given by
http://www.lettermanstationery.com and all the scrolling and scripts
appear to work.

Any help appreciated

Joosie

See he http://www.oehelp.com/OETips.aspx#14

--
Vincenzo Di Russo
Microsoft® MVP - Most Valuable Professional
Windows - Internet Explorer since 2003
My home: http://mvp.support.microsoft.com/
My Blog: http://blogs.dotnethell.it/vincent/

Thank you very much. At least I know what is going on. I wonder if they
will "fix" this side effect. I don't feel like uninstalling a patch.
Thanks again
Joosie

"Vincenzo Di Russo [MVP]" wrote in message
...
joosie wrote:

Am I going crackers or has something change with the way OE handles .eml
files. I collect stationery and would save it in .eml format so that I
could go to my stationery folder and double click on the .eml and it
would
open ready for use.

But now I double click and it opens but I have to forward it and then
remove the header before I can type in a new message. I don't even know
what to look for on google to address this problem. I hope someone will
understand what I mean and be able to help me fix this. I guess it's not
so bad having to forward the message to use the stationery but I would
like to know if there is a simple solution to make things go back to the
way they were. I have my settings correct as given by
http://www.lettermanstationery.com and all the scrolling and scripts
appear to work.

Any help appreciated

Joosie

See he http://www.oehelp.com/OETips.aspx#14

--
Vincenzo Di Russo
Microsoft® MVP - Most Valuable Professional
Windows - Internet Explorer since 2003
My home: http://mvp.support.microsoft.com/
My Blog: http://blogs.dotnethell.it/vincent/

joosie wrote:

Thank you very much. At least I know what is going on. I wonder if they
will "fix" this side effect. I don't feel like uninstalling a patch.
Thanks again
Joosie

YW.

--
Vincenzo Di Russo
Microsoft® MVP - Most Valuable Professional
Windows - Internet Explorer since 2003
My Blog: http://blogs.dotnethell.it/vincent/
My Home: http://mvp.support.microsoft.com/

"Vincenzo Di Russo [MVP]" wrote in message
...
joosie wrote:

Am I going crackers or has something change with the way OE handles .eml
files. I collect stationery and would save it in .eml format so that I
could go to my stationery folder and double click on the .eml and it
would
open ready for use.

But now I double click and it opens but I have to forward it and then
remove the header before I can type in a new message. I don't even know
what to look for on google to address this problem. I hope someone will
understand what I mean and be able to help me fix this. I guess it's
not so bad having to forward the message to use the stationery but I
would like to know if there is a simple solution to make things go back
to the way they were. I have my settings correct as given by
http://www.lettermanstationery.com and all the scrolling and scripts
appear to work.

Any help appreciated

Joosie

See he http://www.oehelp.com/OETips.aspx#14

--
Vincenzo Di Russo
Microsoft® MVP - Most Valuable Professional
Windows - Internet Explorer since 2003
My home: http://mvp.support.microsoft.com/
My Blog: http://blogs.dotnethell.it/vincent/

They did it deliberately, so we don't know if they will fix it.

steve

"joosie" wrote in message
...
Thank you very much. At least I know what is going on. I wonder if they
will "fix" this side effect. I don't feel like uninstalling a patch.
Thanks again
Joosie

"Vincenzo Di Russo [MVP]" wrote in message
...
joosie wrote:

Am I going crackers or has something change with the way OE handles .eml
files. I collect stationery and would save it in .eml format so that I
could go to my stationery folder and double click on the .eml and it
would
open ready for use.

But now I double click and it opens but I have to forward it and then
remove the header before I can type in a new message. I don't even know
what to look for on google to address this problem. I hope someone will
understand what I mean and be able to help me fix this. I guess it's
not
so bad having to forward the message to use the stationery but I would
like to know if there is a simple solution to make things go back to the
way they were. I have my settings correct as given by
http://www.lettermanstationery.com and all the scrolling and scripts
appear to work.

Any help appreciated

Joosie

See he http://www.oehelp.com/OETips.aspx#14

--
Vincenzo Di Russo
Microsoft® MVP - Most Valuable Professional
Windows - Internet Explorer since 2003
My home: http://mvp.support.microsoft.com/
My Blog: http://blogs.dotnethell.it/vincent/

"joosie" wrote in message
Thank you very much. At least I know what is going on. I wonder if they
will "fix" this side effect. I don't feel like uninstalling a patch.
Thanks again

Here is a limited workaround for html-format mail.
This HTA does not support attachment file.
You should set the default mail format to html.

If you run the HTA by double clicking, the HTA register itself to
the context menu of eml files and set the menu as default.
After that, if you double click the eml file which contains 'X-Unsent: 1',
"Compose Message" window will open as before.

! FileName : MakeMail.hta
htmlhead
meta http-equiv=Content-Type content="text/html; charset=us-ascii"
hta:application applicationname="MakeMail" id="This"
windowstate="minimize" singleinstance="yes"
script language=vbs
Option Explicit
Dim Arg, WS, tId, Title, Keys
Arg = Mid(This.commandline, Len(document.urlunencoded) + 4)
Set WS = CreateObject("WScript.Shell")
WS.SendKeys "%"
If Arg = "" Then Reg_UnReg
'
Sub Main
Const RKey = "HKCU\Identities\", SKey = "Last User ID"
Const TValue = _
"\Software\Microsoft\Outlook Express\5.0\Mail\Show Adv Mail Send"
Const HtmlPat = "HTML[\s\S]+/HTML"
Dim Buf, Pos, Header, Body, SendTo, CC, BCC, Subject, Command, Unsent
Dim LUID, AdvHead
LUID = WS.RegRead(RKey & SKey)
If LUID = "" Or LUID = "{00000000-0000-0000-0000-000000000000}" Then
WS.PopUp "Can't specify the user ID !!", 1, "Error"
window.close: Exit Sub
End If
AdvHead = WS.RegRead(RKey & LUID & TValue)
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(Arg, 1): Buf = .ReadAll: .Close: End With
End With
Pos = Instr(Buf, vbCrLf & vbCrLf) + 1
Header = Left(Buf, Pos): Body = Mid(Buf, Pos + 3)
With New RegExp
.IgnoreCase = True: .Global = True: .Multiline = True
.Pattern = "^TO: ([^\r]*)"
If .Test(Header) Then SendTo = .Execute(Header)(0).SubMatches(0)
.Pattern = "^CC: ([^\r]*)"
If .Test(Header) Then CC = .Execute(Header)(0).SubMatches(0)
.Pattern = "^BCC: ([^\r]*)"
If .Test(Header) Then _
BCC = .Execute(Header)(0).SubMatches(0): AdvHead = True
.Pattern = "^SUBJECT: ([^\r]*)"
If .Test(Header) Then Subject = .Execute(Header)(0).SubMatches(0)
.Pattern = "^X-UNSENT: 1": Unsent = .Test(Header)
End With
If Unsent Then
Title = "Compose Message" ' I am not sure this title
With New RegExp
.IgnoreCase = True: .Pattern = HtmlPat
If .Test(Body) Then
Body = Decode(.Execute(Body)(0))
End If
End With
document.body.innerhtml = Body
document.execCommand "SelectAll"
document.execCommand "Copy"
Command = "mailto:" & SendTo & "?"
If CC "" Then Command = Command & "cc=" & CC & "&"
If BCC "" Then Command = Command & "bcc=" & BCC & "&"
Command = Replace(Command, """", "")
If Subject "" Then _
Command = Command & "subject=" & Subject: Title = Subject
If AdvHead Then Keys = "{TAB 4}^v" Else Keys = "{TAB 3}^v"
tId = window.SetInterval("PasteBody", 100)
window.open Command
Else
WS.Run Chr(34) & Arg & Chr(34): window.close
End If
End Sub
'
Sub PasteBody
If WS.AppActivate(Title) Then _
WS.SendKeys Keys: ClearInterval tId: window.close
End Sub
'
Function Decode(Src)
Const P0 = "([\s\S]*?)"
Dim RE, cResult, aResult
Set RE = New RegExp: RE.Global = True: RE.IgnoreCase = True
Src = Replace(Src, "=" & vbCrLf, "")
RE.Pattern =P0 & "(?:=)([\da-f]{2})" & P0 & "(?==|$)"
Set cResult = RE.Execute(Src)
If cResult.Count = 0 Then DC = Src: Exit Function
For Each aResult In cResult
With aResult.SubMatches
Decode = Decode & .Item(0) & Chr("&h" & .Item(1)) & .Item(2)
End With
Next
End Function
'
Sub Reg_UnReg
Const TKey = "HKCR\Microsoft Internet Mail Message\shell\"
Const SKey = "MakeMail", sMenu = "MakeMail(&M)"
Dim sCmd, EN
sCmd = "mshta """ & document.urlunencoded & """ %L"
With WS
On Error Resume Next
.RegRead TKey & SKey & "\": EN = Err.Number
On Error GoTo 0
If EN Then
.RegWrite TKey, SKey
.RegWrite Tkey & SKey & "\", sMenu
.RegWrite Tkey & SKey & "\command\", sCmd
.PopUp "Added to context menu.", 1,"Message"
Else
.RegDelete Tkey & SKey & "\command\"
.RegDelete Tkey & SKey & "\"
.RegWrite TKey, ""
.PopUp "Deleted from context menu.", 1,"Message"
End If
End With
window.close
End Sub
/script/headbody onload=Main/body/html

For plain text format, see this post.
" eml files read-only"


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

Miyahn wrote in message
Function Decode(Src)
Const P0 = "([\s\S]*?)"
Dim RE, cResult, aResult
Set RE = New RegExp: RE.Global = True: RE.IgnoreCase = True
Src = Replace(Src, "=" & vbCrLf, "")
RE.Pattern =P0 & "(?:=)([\da-f]{2})" & P0 & "(?==|$)"
Set cResult = RE.Execute(Src)
If cResult.Count = 0 Then DC = Src: Exit Function

Correction.
If cResult.Count = 0 Then Decode = Src: Exit Function

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

Miyahn I would like to give this a try but I don't understand what I need to
do. Would you be able to explain a bit further. I am fairly good with
computers but I don't know what the HTA register is or what you mean in this
paragraph:

If you run the HTA by double clicking, the HTA register itself to
the context menu of eml files and set the menu as default.
After that, if you double click the eml file which contains 'X-Unsent: 1',
"Compose Message" window will open as before.

Joosie
"Miyahn" wrote in message
...
"joosie" wrote in message
Thank you very much. At least I know what is going on. I wonder if they
will "fix" this side effect. I don't feel like uninstalling a patch.
Thanks again

Here is a limited workaround for html-format mail.
This HTA does not support attachment file.
You should set the default mail format to html.

If you run the HTA by double clicking, the HTA register itself to
the context menu of eml files and set the menu as default.
After that, if you double click the eml file which contains 'X-Unsent: 1',
"Compose Message" window will open as before.

! FileName : MakeMail.hta
htmlhead
meta http-equiv=Content-Type content="text/html; charset=us-ascii"
hta:application applicationname="MakeMail" id="This"
windowstate="minimize" singleinstance="yes"
script language=vbs
Option Explicit
Dim Arg, WS, tId, Title, Keys
Arg = Mid(This.commandline, Len(document.urlunencoded) + 4)
Set WS = CreateObject("WScript.Shell")
WS.SendKeys "%"
If Arg = "" Then Reg_UnReg
'
Sub Main
Const RKey = "HKCU\Identities\", SKey = "Last User ID"
Const TValue = _
"\Software\Microsoft\Outlook Express\5.0\Mail\Show Adv Mail Send"
Const HtmlPat = "HTML[\s\S]+/HTML"
Dim Buf, Pos, Header, Body, SendTo, CC, BCC, Subject, Command, Unsent
Dim LUID, AdvHead
LUID = WS.RegRead(RKey & SKey)
If LUID = "" Or LUID = "{00000000-0000-0000-0000-000000000000}" Then
WS.PopUp "Can't specify the user ID !!", 1, "Error"
window.close: Exit Sub
End If
AdvHead = WS.RegRead(RKey & LUID & TValue)
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(Arg, 1): Buf = .ReadAll: .Close: End With
End With
Pos = Instr(Buf, vbCrLf & vbCrLf) + 1
Header = Left(Buf, Pos): Body = Mid(Buf, Pos + 3)
With New RegExp
.IgnoreCase = True: .Global = True: .Multiline = True
.Pattern = "^TO: ([^\r]*)"
If .Test(Header) Then SendTo = .Execute(Header)(0).SubMatches(0)
.Pattern = "^CC: ([^\r]*)"
If .Test(Header) Then CC = .Execute(Header)(0).SubMatches(0)
.Pattern = "^BCC: ([^\r]*)"
If .Test(Header) Then _
BCC = .Execute(Header)(0).SubMatches(0): AdvHead = True
.Pattern = "^SUBJECT: ([^\r]*)"
If .Test(Header) Then Subject = .Execute(Header)(0).SubMatches(0)
.Pattern = "^X-UNSENT: 1": Unsent = .Test(Header)
End With
If Unsent Then
Title = "Compose Message" ' I am not sure this title
With New RegExp
.IgnoreCase = True: .Pattern = HtmlPat
If .Test(Body) Then
Body = Decode(.Execute(Body)(0))
End If
End With
document.body.innerhtml = Body
document.execCommand "SelectAll"
document.execCommand "Copy"
Command = "mailto:" & SendTo & "?"
If CC "" Then Command = Command & "cc=" & CC & "&"
If BCC "" Then Command = Command & "bcc=" & BCC & "&"
Command = Replace(Command, """", "")
If Subject "" Then _
Command = Command & "subject=" & Subject: Title = Subject
If AdvHead Then Keys = "{TAB 4}^v" Else Keys = "{TAB 3}^v"
tId = window.SetInterval("PasteBody", 100)
window.open Command
Else
WS.Run Chr(34) & Arg & Chr(34): window.close
End If
End Sub
'
Sub PasteBody
If WS.AppActivate(Title) Then _
WS.SendKeys Keys: ClearInterval tId: window.close
End Sub
'
Function Decode(Src)
Const P0 = "([\s\S]*?)"
Dim RE, cResult, aResult
Set RE = New RegExp: RE.Global = True: RE.IgnoreCase = True
Src = Replace(Src, "=" & vbCrLf, "")
RE.Pattern =P0 & "(?:=)([\da-f]{2})" & P0 & "(?==|$)"
Set cResult = RE.Execute(Src)
If cResult.Count = 0 Then DC = Src: Exit Function
For Each aResult In cResult
With aResult.SubMatches
Decode = Decode & .Item(0) & Chr("&h" & .Item(1)) & .Item(2)
End With
Next
End Function
'
Sub Reg_UnReg
Const TKey = "HKCR\Microsoft Internet Mail Message\shell\"
Const SKey = "MakeMail", sMenu = "MakeMail(&M)"
Dim sCmd, EN
sCmd = "mshta """ & document.urlunencoded & """ %L"
With WS
On Error Resume Next
.RegRead TKey & SKey & "\": EN = Err.Number
On Error GoTo 0
If EN Then
.RegWrite TKey, SKey
.RegWrite Tkey & SKey & "\", sMenu
.RegWrite Tkey & SKey & "\command\", sCmd
.PopUp "Added to context menu.", 1,"Message"
Else
.RegDelete Tkey & SKey & "\command\"
.RegDelete Tkey & SKey & "\"
.RegWrite TKey, ""
.PopUp "Deleted from context menu.", 1,"Message"
End If
End With
window.close
End Sub
/script/headbody onload=Main/body/html

For plain text format, see this post.
" eml files read-only"


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

"joosie" wrote in message
Miyahn I would like to give this a try but I don't understand what I need to
do. Would you be able to explain a bit further. I am fairly good with
computers but I don't know what the HTA register is or what you mean in this
paragraph:

If you run the HTA by double clicking, the HTA register itself to
the context menu of eml files and set the menu as default.
After that, if you double click the eml file which contains 'X-Unsent: 1',
"Compose Message" window will open as before.

The HTAs are 'HTML Applications' hosted by mshta.exe .
See this MSDN article.
"Introduction to HTML Applications (HTAs)"
http://msdn.microsoft.com/library/de...taoverview.asp

My HTA add new context menu to *.eml files and set the menu
as default when invoked without parameter(run through double
clicking).
So after that if you double click any eml file, this new menu
will be invoked and run my HTA with the path of the eml file as
a parameter.

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

This works wonderfully but when I envoke the HTA all my stationery
dissappears :-( I guess this is what you mean by it not supporting
attachements. Thanks for trying a really appreciate it... and WoW! you gave
me something to play with... I'm going to read up on HTAs now.
Thanks
Joosie

The HTAs are 'HTML Applications' hosted by mshta.exe .
See this MSDN article.
"Introduction to HTML Applications (HTAs)"
http://msdn.microsoft.com/library/de...taoverview.asp

My HTA add new context menu to *.eml files and set the menu
as default when invoked without parameter(run through double
clicking).
So after that if you double click any eml file, this new menu
will be invoked and run my HTA with the path of the eml file as
a parameter.

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