Change Outlook Express Title Bar. (VBScript)
| Dim pmShell, oe_id, oe_id2, oe_tit_key, p1, m,
j, pm, pmbox Set ws = CreateObject("WScript.Shell") On Error Resume Next oe_id = "HKCU\Identities\Default User id" oe_id2 = ws.RegRead(oe_id) oe_tit_key = "HKCU\Identities\" & oe_id2 & "\Software\Microsoft\Outlook Express\5.0\" p1 = "HKCU\Identities\" & oe_id2 & "\Software\Microsoft\Outlook Express\5.0\" m = ws.RegRead(p1 & "Windowtitle") j = "Change Outlook Express Tile Bar" pm = InputBox("Type in new Title for Outlook Express.", j, m) If pm <> "" Then ws.RegWrite p1 & "Windowtitle", pm PmBox = MsgBox("Close and re-open Outlook Express to see New Title.", vb,"Finished!") End If |