Almacenar un mensaje de outlook

[avela]

Hola a todos.

Quiero por medio de una Macro o un programa en cualquier lenguaje, almacenar el mail seleccionado en OutLook.

Vi esto en la ayuda de VB y lo puse en una macro, funciona si tengo el mail abierto, no he podido hacer que funcione solo seleccionandolo desde Outlook. Alguien me puede ayudar.

Muchas gracias

Código:

Dim myItem As Inspector
 Dim objItem As Object
 Set myolapp = CreateObject("Outlook.Application")
 Set myItem = myolapp.ActiveInspector
  If Not TypeName(myItem) = "Nothing" Then
      Set objItem = myItem.CurrentItem
      strname = objItem.Subject
      objItem.SaveAs "C:\" & " & strname & .msg", olMSG
  Else
      MsgBox "There is no current active Inspector."
  End If