Group:  Microsoft Outlook ยป microsoft.public.outlook
Thread: slideshow of attachments in OE6

DotNetBag
.NET Development Newsgroups

HTVi
TV Discussion Newsgroups

Our Hot Pick: Rising Antivirus 2006 - Certified by TUV & Checkmark! Get 10% discount by entering this coupon code: ONDISCOUNT10
Rising Antivirus 2006

slideshow of attachments in OE6
"Jeff" <jeff[ at ]naol.com> 30.08.2006 17:22:40
Using XP MCE SP-2 and OE6

I saw on Kelly's website http://www.kellys-korner-xp.com/xp_tweaks2.htm a
registry tweak (VB script) that would apparently allow OE to show
attachments as a slideshow. I ran it but nothing seems to have changed even
after I closed and reopened my OE6. Does anyone have any experience with
this?

The VBS text is below my signature.

Jeff
..................
Dim myShell, OE_ID, OE_ID2, OE_SS_Key

Set myShell = CreateObject("WScript.Shell")

On Error Resume Next
OE_ID = "HKEY_CURRENT_USER\Identities\Default User ID"
OE_ID2 = myShell.RegRead(OE_ID)

Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, p, itemtype, mybox

p =
"HKCU\Identities\{F68D6F5C-259A-4C69-8819-724671E4B46F}\Software\Microsoft\Outlook
Express\5.0\Autocatically Inline Images"
itemtype = "REG_DWORD"
n = "1"
WSHShell.RegWrite p, n, itemtype

p =
"HKCU\Identities\{F68D6F5C-259A-4C69-8819-724671E4B46F}\Software\Microsoft\Outlook
Express\5.0\Automatic Slide Show Delay"
itemtype = "REG_DWORD"
n = "2"
WSHShell.RegWrite p, n, itemtype

OE_SS_Key = "HKEY_CURRENT_USER\Identities\" & OE_ID2 &
"\Software\Microsoft\Outlook Express\5.0\"

myShell.RegWrite OE_SS_Key

MsgBox "Slide Show for OE in now enabled. You will need to restart OE for
the changes to take effect.", 64,"Finished"


VisitKelly's Korner

Sub VisitKelly's Korner
If MsgBox("This script came from the Tweaks Section of Kelly's Korner" &
vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?",
vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then
wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm"
End If
End Sub




Re: slideshow of attachments in OE6
"Brian Tillman" <tillman1952[ at ]yahoo.com> 30.08.2006 18:51:17
Jeff <jeff[ at ]naol.com> wrote:

[Quoted Text]
> Using XP MCE SP-2 and OE6

Ask in an Outlook Express newsgroup.
--
Brian Tillman
Re: slideshow of attachments in OE6
"Hal Hostetler [MVP P/I]" <hhh[ at ]kvoa.com> 13.09.2006 22:36:36
OE 6 does not support the slide show.

http://www.fjsmjs.com/OE/slideshow.htm
Slide Show

Hal
--
Hal Hostetler, CPBE -- hhh[ at ]kvoa.com
Senior Engineer/MIS -- MS MVP-Print/Imaging -- WA7BGX
http://www.kvoa.com -- "When News breaks, we fix it!"
KVOA Television, Tucson, AZ. NBC Channel 4
Still Cadillacin' - www.badnewsbluesband.com

"Jeff" <jeff[ at ]naol.com> wrote in message
news:uJwV2lFzGHA.2516[ at ]TK2MSFTNGP06.phx.gbl...
[Quoted Text]
> Using XP MCE SP-2 and OE6
>
> I saw on Kelly's website http://www.kellys-korner-xp.com/xp_tweaks2.htm a
> registry tweak (VB script) that would apparently allow OE to show
> attachments as a slideshow. I ran it but nothing seems to have changed
even
> after I closed and reopened my OE6. Does anyone have any experience with
> this?
>
> The VBS text is below my signature.
>
> Jeff
> .................
> Dim myShell, OE_ID, OE_ID2, OE_SS_Key
>
> Set myShell = CreateObject("WScript.Shell")
>
> On Error Resume Next
> OE_ID = "HKEY_CURRENT_USER\Identities\Default User ID"
> OE_ID2 = myShell.RegRead(OE_ID)
>
> Set WSHShell = WScript.CreateObject("WScript.Shell")
> Dim WSHShell, n, p, itemtype, mybox
>
> p =
>
"HKCU\Identities\{F68D6F5C-259A-4C69-8819-724671E4B46F}\Software\Microsoft\O
utlook
> Express\5.0\Autocatically Inline Images"
> itemtype = "REG_DWORD"
> n = "1"
> WSHShell.RegWrite p, n, itemtype
>
> p =
>
"HKCU\Identities\{F68D6F5C-259A-4C69-8819-724671E4B46F}\Software\Microsoft\O
utlook
> Express\5.0\Automatic Slide Show Delay"
> itemtype = "REG_DWORD"
> n = "2"
> WSHShell.RegWrite p, n, itemtype
>
> OE_SS_Key = "HKEY_CURRENT_USER\Identities\" & OE_ID2 &
> "\Software\Microsoft\Outlook Express\5.0\"
>
> myShell.RegWrite OE_SS_Key
>
> MsgBox "Slide Show for OE in now enabled. You will need to restart OE for
> the changes to take effect.", 64,"Finished"
>
>
> VisitKelly's Korner
>
> Sub VisitKelly's Korner
> If MsgBox("This script came from the Tweaks Section of Kelly's Korner" &
> vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?",
> vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then
> wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm"
> End If
> End Sub
>
>
>
>


Home | Search | Terms | Imprint | Contact
Newsgroups Reader - provided by WiredBox.Net