Copy "link" to current Outlook message for use in emacs org-mode

gistfile1.vb

Dim oe 
Dim mi 
Dim strMH 

Set myOlApp = WScript.CreateObject("Outlook.Application")

Set oe = myOlApp.ActiveExplorer
If oe.Selection.Count = 1 And oe.CurrentFolder.DefaultItemType = olMailItem Then
  Set mi = oe.Selection.Item(1)    
  Set objMail = mi
  Set objIE = CreateObject("InternetExplorer.Application")
  objIE.Navigate("about:blank")
  objIE.document.parentwindow.clipboardData.SetData "text", "[[outlook:" + objMail.EntryID + "][" + objMail.Subject + " (" + objMail.SenderName + ")]]"
  objIE.Quit
  WScript.echo "Mail-Link kopiert: " & mi.subject 
Else
  WScript.echo "Select one and ONLY one message."      
End If