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