Dim WshShell, bKey, cn, p1, mybox

Set WshShell = WScript.CreateObject("WScript.Shell")



WshShell.RegWrite "HKCR\Directory\shell\Send E-Mail\", "Send E-Mail", "REG_SZ"

WshShell.RegWrite "HKCR\Directory\shell\Send E-Mail\command\", "c:\program files\outlook express\msimn.exe /mailurl: ", "REG_SZ" 



MsgBox "Send E-Mail has been added to your right click.  To test, right click the Start Button.",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://troubleshootingXP/xp_tweaks.htm"

	End If

End Sub