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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 262784
Url: https://administrator.de/contentid/262784
Printed on: April 25, 2024 at 06:04 o'clock
2 Comments
Latest comment
Geht so nicht, du könntest höchstens der MSG-Datei das Readonly-Flag verpassen ...
http://ss64.com/access/setattr.html
Gruß jodel32
http://ss64.com/access/setattr.html
Gruß jodel32