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"

VisitMarv's Windows Tips & Tricks

Sub VisitMarv's Windows Tips & Tricks
	If MsgBox("This script came from Marv's Windows Tips & Tricks" & vbCRLF & vbCRLF & "Would you like to visit Marv's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Marv's Windows Tips & Tricks") =6 Then
		wshshell.Run "http://www.marvswindowstips.com"
	End If
End Sub