Abrir ficheros MSG como lo hace el Explorador

Susan
25 de Noviembre del 2003
Gracias por tu contestación sdemingo.
Pero lo que necesito es abrir el archivo como lo hacer el explorador. Ya que el programa que estoy haciendo es un buscador parecido al que tiene el explorador.
otra vez gracias por todo..
SOS

Juan
25 de Noviembre del 2003
¿Has probado con la función API ShellExecute?.
Por si acaso te pongo un ejemplo, Pon un CommandButton
y este código:

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
Dim rutaynombre As String
Do
rutaynombre = InputBox("Introduce la ruta y nombre del archivo a abrir", "abrir archivo")
Loop While Dir(rutaynombre) = "" 'Pregunta hasta que el archivo existe
ShellExecute Me.hwnd, "open", rutaynombre, "", "", SW_SHOWNORMAL
End Sub