Externe MSG Datei schreibgeschützt öffnen

Hallo ich öffne per Klich in Access eine MSG Datei, diese ist dann aber editierbar und kann verändert werden.
In diesem Fall soll diese nur als Vorschau geöffnet werden und darf nicht editierbar sein

im Moment rufe ich diese wie folgt auf

Private Sub Betreff_Click()
EMailID = Me!ID
End Sub

Private Sub Betreff_DblClick(Cancel As Integer)
Dim path As String

path = GetIniString("Smtp", "Gesendete Mails", "") & "\"  
path = path & Me!ID & ".msg"  
If Dir(path) <> "" Then  
Set WshShell = CreateObject("WScript.Shell")  
 rc = WshShell.Run(path, 1, True)
Else
End If
End Sub