I'm having eml issues and looking for some suggestions. I have new and
a bunch of previously saved eml files that when launched from IE will
only open in OE in read-only mode. None of the eml files have
read-only properties and when I create and save new eml files using OE
they also only open read-only. I'm open to any suggestions? It's me
against the computer and I seem to be losing....

thanks in advance for any suggestions.

Stan the Man

Your problem may be caused by the update KB911567 introduced on 4/11/06. Try
removing it as per this link and see if the problem persists:
http://www.oehelp.com/OETips.aspx#14

If that resolves it, for now, you may want to configure Automatic Updates to
either "Notify Only" or "Download but do not install". You can also choose
not to download or install 911567 and check: Do not tell me about it again.

How to configure and use Automatic Updates in Windows XP:
http://support.microsoft.com/?kbid=306525
--
Bruce Hagen
MS MVP - Outlook Express
~IB-CA~

"Stan" wrote in message
oups.com...
I'm having eml issues and looking for some suggestions. I have new and
a bunch of previously saved eml files that when launched from IE will
only open in OE in read-only mode. None of the eml files have
read-only properties and when I create and save new eml files using OE
they also only open read-only. I'm open to any suggestions? It's me
against the computer and I seem to be losing....

thanks in advance for any suggestions.

Stan the Man

Bruce,

very cool. that was the fix.

I owe you.... your the man....

Stan

Mr. Bruce Hagen,

I don't want to be critical, but how can opening up your system to
vulnerabilities that were patched by KB911567 ever be considered a "fix?"

MicroSoft broke something that many of us use virtually every day. I would
certainly hope that someone in your position would make sure that they get
the feedback so as to fix what they broke.

I'd like to thank you for posting information that showed WHY it was broken
though.


"Stan" wrote:

Bruce,

very cool. that was the fix.

I owe you.... your the man....

Stan

IMHO, MS felt the patch was a necessity while I do not. MS created this
patch with absolutely no input from any OE MVP. (Remember we don't work for
MS. We are only volunteers). I have templates of my own and had to uninstall
the patch. If you have been reading these posts, you will also note that
many people have lost their Address Books due to this patch.

MS is getting plenty of feedback and personal opinions from us on this
issue. How much they listen to us, and what they will do about it is an
uncertainty.
--
Bruce Hagen
MS MVP - Outlook Express
~IB-CA~

"JefeQuickTech" wrote in message
...
Mr. Bruce Hagen,

I don't want to be critical, but how can opening up your system to
vulnerabilities that were patched by KB911567 ever be considered a "fix?"

MicroSoft broke something that many of us use virtually every day. I would
certainly hope that someone in your position would make sure that they get
the feedback so as to fix what they broke.

I'd like to thank you for posting information that showed WHY it was
broken
though.


"Stan" wrote:

Bruce,

very cool. that was the fix.

I owe you.... your the man....

Stan

Well said. Wow. If they don't listen to us (the customer) nor to you (an OE
MVP), to whom do they listen?

Maybe it is better to run with a system that they consider slightly
vulnerable, but functional. Too bad we have to make a choice.

The breaking of the templates apparently is not 100% consistent. Nor is the
address book problem consistent. I sent an email notification to my staff
about this issue as a heads-up. One just told me that their system is working
the same as it always did...even with KB911567 installed. Any ideas of why
that would be?

One last thing: Thanks for volunteering your time to help.


"Bruce Hagen" wrote:

IMHO, MS felt the patch was a necessity while I do not. MS created this
patch with absolutely no input from any OE MVP. (Remember we don't work for
MS. We are only volunteers). I have templates of my own and had to uninstall
the patch. If you have been reading these posts, you will also note that
many people have lost their Address Books due to this patch.

MS is getting plenty of feedback and personal opinions from us on this
issue. How much they listen to us, and what they will do about it is an
uncertainty.
--
Bruce Hagen

Bruce,
You say that MS is getting plenty of feedback - where exactly are you
sending this feedback? I ask because I'd like to put my two cents in to
the folks at MS as well. This "fix" broke e-mail functionality in
several programs that create .eml files and then lauch them for users
to review and send.
Thanks,
CPB

"Stan" wrote in message oups.com
I'm having eml issues and looking for some suggestions. I have new and
a bunch of previously saved eml files that when launched from IE will
only open in OE in read-only mode. None of the eml files have
read-only properties and when I create and save new eml files using OE
they also only open read-only. I'm open to any suggestions? It's me
against the computer and I seem to be losing....

I created a HTA tool to use eml file as template in Japanese environment.

If you run the HTA by double clicking, the HTA register itself to the context
menu of eml files.
After that, if you double click the eml file which contains 'X-Unsent: 1',
new mail window will open.
The body content of eml file is copied to the clipboard by HTA, you can paste
it to the body area.

The HTA is for text format only, and does not support attachment file also.
Since I make this HTA for Japanese, decode function's are complicated.

! 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
Const B64Tbl = _
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw xyz0123456789+/"
Const P0 = "([\s\S]*?)", P1 = "\?b\?([a-z0-9\+/=]+)\?=", P2 = "(?==\?|$)"
Dim Arg, H, B, RE, ST, CC, BCC, SB, CMD, US
Arg = Mid(This.commandline, Len(document.urlunencoded) + 4)
If Arg = "" Then
Reg_UnReg
Else
ToText Arg, H, B
With New RegExp
.IgnoreCase = True: .Global = True: .Multiline = True
.Pattern = "^TO: ([^\r]*)"
If .Test(H) Then ST = .Execute(H)(0).SubMatches(0)
.Pattern = "^CC: ([^\r]*)"
If .Test(H) Then CC = .Execute(H)(0).SubMatches(0)
.Pattern = "^BCC: ([^\r]*)"
If .Test(H) Then BCC = .Execute(H)(0).SubMatches(0)
.Pattern = "^SUBJECT: ([^\r]*)"
If .Test(H) Then SB = .Execute(H)(0).SubMatches(0)
.Pattern = "^X-UNSENT: 1\r": US = .Test(H)
End With
If US Then
Me.clipboarddata.setdata "text", Mid(B, 3)
CMD = "mailto:" & ST & "?"
If CC "" Then CMD = CMD & "cc=" & CC & "&"
If BCC "" Then CMD = CMD & "bcc=" & BCC & "&"
CMD = Replace(CMD, """", "")
If SB "" Then CMD = CMD & "subject=" & SB
With CreateObject("WScript.Shell"): .SendKeys "%": End With
window.open CMD
Else
With CreateObject("WScript.Shell")
.SendKeys "%": .Run Chr(34) & Arg & Chr(34)
End With
End If
End If
me.close
'
Sub ToText(inF, H, B)
Dim Bf, nH
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(inF, 1): Bf = .ReadAll: .Close: End With
nH = Instr(Bf, vbCrLf & vbCrLf) + 1
If InstrRev(Bf, "charset=""utf-8""", nH, 1) 0 Then
With .OpenTextFile(inF, 1, , -1): Bf = .ReadAll: .Close: End With
Bf = U2S(Bf): nH = Instr(Bf, vbCrLf & vbCrLf) + 1
End If
End With
H = Left(Bf, nH): B = Mid(Bf, nH + 1)
H = DC(H, "I"): H = DC(H, "U"): H = Replace(H, vbCrLf & vbTab, "")
If Instr(1, H, "quoted-printable", 1) 0 Then B = DC(B, "Q")
If Instr(H, Chr(27)) 0 Then H = DC(H, "J")
If Instr(B, Chr(27)) 0 Then B = DC(B, "J")
End Sub
'
Function DC(S, M)
Dim RE, Rs, aR, T, PT
Set RE = New RegExp: RE.Global = True: RE.IgnoreCase = True
Select Case M
Case "I": PT = "=\?iso-2022-jp" & P1 & P0 & P2
Case "U": PT = "=\?utf-8" & P1 & P0 & P2
Case "J": RE.IgnoreCase = False: _
PT ="(?:\x1b\$[@B])" & P0 & "(?:\x1B\([BJ])" & P0 & "(?=\x1b|$)"
Case "Q": S = Replace(S, "=" & vbCrLf, ""): _
PT ="(?:=)([\da-f]{2})" & P0 & "(?==|$)"
End Select
RE.Pattern = P0 & PT: Set Rs = RE.Execute(S)
If Rs.Count = 0 Then DC = S: Exit Function
For Each aR In Rs
With aR.SubMatches
DC = DC & .Item(0)
Select Case M
Case "I": DC = DC & D64(.Item(1))
Case "U": DC = DC & U2S(D64(.Item(1)))
Case "J": DC = DC & J2S(.Item(1))
Case "Q": DC = DC & Chr("&h" & .Item(1))
End Select
DC = DC & .Item(2)
End With
Next
End Function
'
Function D64(S)
Dim I, T
For I = 1 To Len(S): T = T & S2B(Mid(S, I, 1)): Next
For I = 1 To Len(T) / 8: D64 = D64 & B2S(Mid(T, I * 8 - 7, 8)): Next
End Function
'
Function S2B(C)
Dim P, V, I
P = Instr(B64Tbl, C): If P = 0 Then Exit Function
P = P - 1: V = 1
For I = 0 To 5: S2B = (P And V) / V & S2B: V = V * 2: Next
End Function
'
Function B2S(B)
Dim V, I, T
V = 128
For I = 1 To 8: T = T + V * Mid(B, I, 1): V = V \ 2 : Next
If T 128 Then B2S = Chr(T) Else B2S = ChrB(T)
End Function
'
Function J2S(S)
Dim I, U, L
S = Replace(Replace(S, vbCrLf, ""), vbTab, "")
For I = 1 To Len(S) Step 2
U = Asc(Mid(S, I, 1)): L = Asc(Mid(S, I + 1, 1)) + 31
L = L - 94 * (U Mod 2 = 0): L = L - (L = 127)
U = (U - 33) \ 2 + 129: U = U - 64 * (U = 160)
J2S = J2S & Chr(U * 256 + L)
Next
End Function
'
Function U2S(S)
Dim I, U, M, L
For I = 1 To LenB(S)
U = AscB(MidB(S, I, 1))
If U = 0 Then
ElseIf U &h80 Then
If U = 10 And Right(U2S, 1) vbCr Then U2S = U2S & vbCr
U2S = U2S & Chr(U)
ElseIf U &hE0 And I LenB(S) Then
U = U And &h1F: L = AscB(MidB(S, I + 1, 1)) And &h3F: I = I + 1
U2S = U2S & ChrW((U \ 4) * 256 + (U Mod 4) * 64 + L)
ElseIf U &hF0 And I LenB(S) - 1 Then
U = U And &h0F: M = AscB(MidB(S, I + 1, 1)) And &h3F
L = AscB(MidB(S, I + 2, 1)) And &h3F: I = I + 2
U2S = U2S & ChrW((U * 16 + M \ 4) * 256 +(M Mod 4) * 64 + L)
End If
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 CreateObject("WScript.Shell")
.SendKeys "%"
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
End Sub
/script/head/html

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

Simpler version only for
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: 7bit

I am not sure mail-compose window's default title in English environment,
so It may be necessary to change the code setting the Title's initial value.

! 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
Const RKey = "HKCU\Identities\", SKey = "Last User ID"
Const TValue = "\Software\Microsoft\Outlook Express\5.0\Mail\Show Adv Mail Send"
Dim Arg, Buf, Pos, Header, Body, SendTo, CC, BCC, Subject, Command, Unsent
Dim WS, LUID, AdvHead, tId, Title, Keys
Arg = Mid(This.commandline, Len(document.urlunencoded) + 4)
Set WS = CreateObject("WScript.Shell")
WS.SendKeys "%"
If Arg = "" Then Call Reg_UnReg() Else Call Main()
'
Sub Main
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\r": Unsent = .Test(Header)
End With
If Unsent Then
Title = "Compose Message" ' I am not sure this title
Me.clipboarddata.setdata "text", Body
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", 500)
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: window.close
End Sub
'
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/head/html

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

More reliable version on Body-content pasting.

! 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
Const RKey = "HKCU\Identities\", SKey = "Last User ID"
Const TValue = "\Software\Microsoft\Outlook Express\5.0\Mail\Show Adv Mail Send"
Dim Arg, Buf, Pos, Header, Body, SendTo, CC, BCC, Subject, Command, Unsent
Dim WS, LUID, AdvHead, 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
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\r": Unsent = .Test(Header)
End With
If Unsent Then
Title = "Compose Message" ' I am not sure this title
Me.clipboarddata.setdata "text", Body
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", 500)
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: window.close
End Sub
'
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

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