en Passant not letting life just pass on by

During my work day, I probably send a 20-30 email messages. Each time I typically look up someone's email address, copy it to the (keyboard) buffer (CTRL+C), click on a shortcut I have to open a new email, then paste the email address into the new message. I thought, what if my new email shortcut, would test the keyboard buffer and then automatically paste the address for me?

Save the following VBS to your local computer. Drag it into your quick launch bar, then change the icon to something useful (like Outlook's new message icon)! One click new emails that will be pre-populated with the last email address you copied.


'==========================================================================
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
'
' NAME: Send_Email.VBS - Read the keyboard buffer (aka clipboard)
' and send an email if read email address.
'
' AUTHOR: eric Woodford
' DATE : 2/13/2008
'
' COMMENT:
' clipboard idea: http://forums.vandyke.com/showthread.php?t=597
' mailto: http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2149800&SiteID=1
'==========================================================================

Set objHTML = CreateObject("htmlfile")
ClipboardText = trim(objHTML.ParentWindow.ClipboardData.GetData("text"))
Set objHTML = Nothing
if instr(ClipboardText,"@") and instr(clipboardtext," ")=0 Then 'possibly a email address
Set objShell = WScript.CreateObject("shell.application")
str = "mailto:" & ClipboardText
objShell.ShellExecute str, "", "", "open", 1
Else
Set objShell = WScript.CreateObject("shell.application")
str = "mailto:"
objShell.ShellExecute str, "", "", "open", 1
End If
set objshell = nothing