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