thomas1972
Goto Top

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

Content-ID: 262784

Url: https://administrator.de/forum/externe-msg-datei-schreibgeschuetzt-oeffnen-262784.html

Ausgedruckt am: 07.04.2025 um 08:04 Uhr

114757
114757 08.02.2015 aktualisiert um 16:00:59 Uhr
Goto Top
Geht so nicht, du könntest höchstens der MSG-Datei das Readonly-Flag verpassen ...
http://ss64.com/access/setattr.html

Gruß jodel32
thomas1972
thomas1972 09.02.2015 um 10:50:30 Uhr
Goto Top
Hallo Jodel32,

Danke, das wars gewesen..

Gruß Christian