Guardar un mail desde una macro

avela
30 de Junio del 2004
Hola a todos.

Quiero guardar un mail de outlook desde una macro. Encontré este código en la ayuda pero funciona solamente si esta abierto el mensaje. Lo que quiero es almacenarlo solo con seleccionarlo y ejecutar la macro. Gracia

Este es el código

Sub Almacenar()

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
End Sub