Como abrir un fichero MSG

Susan
25 de Noviembre del 2003
Me gustaria abrir un fichero MSG. El problema que tengo es que cada vez que lo intento abrir con el Shell me lo abre como si fuera un correo nuevo.

sdemingo
25 de Noviembre del 2003
Hola,
prueba con los objetos de Outlook,

El siguiente ejemeplo te abre el primer mensaje que tengas en la bandeja de entrada. Yo que tu lo intentaría por ahí en lugar de con Shell.

Private Sub Muestra_Correo_Click()

On Error GoTo Error1

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
On Error GoTo ErrorHandler
myFolder.Items(1).Display
Exit Sub
Error1:
MsgBox "No hay elementos para mostrar"
End Sub


Saludos
sdemingo