How do I sort the blocked sender list in Outlook Express 6.0?

You don't. WYSIWYG.
--
Bruce Hagen
MS MVP - Outlook Express
~IB-CA~

"Nebo" wrote in message
...
How do I sort the blocked sender list in Outlook Express 6.0?

Bruce is right. It's stored in the Registry. If it ain't broke, don't fix
it.

"Nebo" wrote in message
...
How do I sort the blocked sender list in Outlook Express 6.0?

If you're trying to find a particular address to remove, and can't find it,
I can help with that.
--
Bruce Hagen
MS MVP - Outlook Express
~IB-CA~

"Nebo" wrote in message
...
How do I sort the blocked sender list in Outlook Express 6.0?

That would be a big help. Please tell me how.
Thanks

"Bruce Hagen" wrote:

If you're trying to find a particular address to remove, and can't find it,
I can help with that.
--
Bruce Hagen
MS MVP - Outlook Express
~IB-CA~

"Nebo" wrote in message
...
How do I sort the blocked sender list in Outlook Express 6.0?

Find and remove a Blocked Sender address:

OEToolsMessage RulesBlocked Senders ListHighlight the first address on
the listClick ModifyType in address you want to remove. "This address
already exists, are you sure you want to replace it?"Click Yes. Address
will now be at the top of the list. Now you can remove it.
--
Bruce Hagen
MS MVP - Outlook Express
~IB-CA~

"Nebo" wrote in message
...
That would be a big help. Please tell me how.
Thanks

"Bruce Hagen" wrote:

If you're trying to find a particular address to remove, and can't find
it,
I can help with that.
--
Bruce Hagen
MS MVP - Outlook Express
~IB-CA~

"Nebo" wrote in message
...
How do I sort the blocked sender list in Outlook Express 6.0?

"Nebo" wrote in message
How do I sort the blocked sender list in Outlook Express 6.0?

You can do that through the following script and Excel.
Please note the comments in the code and try this at your own risk.

' FileName : EditBSL.vbs
Option Explicit
Dim WS, FS, LUID, Target, aPath, TimeStamp
Const RootKey = "HKEY_CURRENT_USER\Identities\"
Const OEKey = "\Software\Microsoft\Outlook Express\5.0\"
'
Set WS = CreateObject("WScript.Shell")
Set FS = CreateObject("Scripting.FileSystemObject")
LUID = WS.RegRead(RootKey & "Last User ID")
If LUID = "{00000000-0000-0000-0000-000000000000}" Then _
MsgBox "Can't specify the Last User ID": WScript.Quit
Target = RootKey & LUID & OEkey
aPath = FS.BuildPath(WS.ExpandEnvironmentStrings( _
WS.RegRead(Target & "Store Root")), "BSList.csv")
Target = Target & "Block Senders\"
SaveList:' Export from registry to csv file
EditList:' Open csv file by Excel
'
' ## To enable updating, erase first apostrophe from the following line ##
'LoadList:' Import from csv file to registry
'
Sub SaveList
Dim Buf
Buf = MakeList("Mail")
Buf = Buf & MakeList("News")
With FS.CreateTextFile(aPath): .Write Buf: .Close: End With
TimeStamp = FS.GetFile(aPath).DateLastModified
End Sub
'
Function MakeList(MorN)
Dim Key, BS, I
MakeList = ""
Key = Target & MorN & "\Criteria\"
On Error Resume Next
BS = WS.RegRead(Key & "Order"): If Err Then Exit Function
On Error GoTo 0
BS = Split(BS, " ")
For I = 0 To UBound(BS)
MakeList = MakeList & MorN & "," & BS(I) & "," & _
WS.RegRead(Key & BS(I) & "\Value") & vbCrLf
Next
End Function
'
Sub EditList
With CreateObject("Excel.Application")
.Visible = True
.Workbooks.Open aPath
MsgBox "'Blocked Senders List' has been exported." & vbCrLf _
& "After editing, save the file, quit Excel"
On Error Resume Next
Do While .Visible
WScript.Sleep 100: If Err.Number = &h80010108 Then Exit Do
Loop
On Error GoTo 0
End With
WScript.Sleep 500
End Sub
'
Sub LoadList
Dim BS
If FS.GetFile(aPath).DateLastModified = TimeStamp Then
MsgBox "No change.": Exit Sub
End If
With FS.OpenTextFile(aPath)
Do Until .AtEndOfStream
BS = Split(.ReadLine, ",")
WS.RegWrite Target & BS(0) & "\Criteria\" & _
Right("00" & BS(1),3) & "\Value", BS(2)
Loop
End With
MsgBox "'Blocked Senders List' has been updated."
End Sub

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

"Miyahn" wrote

How do I sort the blocked sender list in Outlook Express 6.0?
You can do that through the following script and Excel.
Please note the comments in the code and try this at your own risk.
' FileName : EditBSL.vbs

Hmm... That looks very useful. But also very dangerous. Has anyone tried it?

--
Bob
http://www.kanyak.com

"Opinicus" wrote in message
Hmm... That looks very useful. But also very dangerous. Has anyone tried it?

dangerous? Where?