Bugfix Öffnen von Msg in Anhänge (Sendungsdetails).

This commit is contained in:
2024-10-11 12:11:40 +02:00
parent f12c20c800
commit 0074a9c748
3 changed files with 18 additions and 9 deletions

View File

@@ -606,9 +606,13 @@ Public Class usrcntlAktDetailsATILLANeu
MsgBox("Die Datei existiert nicht!")
Else
If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet)
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Try
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Catch ex As Exception
Process.Start(docPath)
End Try
Else
Process.Start(docPath)
End If