edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
d.breimaier
2024-10-11 12:11:40 +02:00
parent f12c20c800
commit 0074a9c748
3 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.3.8")> <Assembly: AssemblyVersion("4.0.3.9")>
<Assembly: AssemblyFileVersion("4.0.3.8")> <Assembly: AssemblyFileVersion("4.0.3.9")>

13
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4154,13 +4154,18 @@ Public Class frmSendungsdetailsNEU
Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value) Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
If Not IO.File.Exists(docPath) Then If Not File.Exists(docPath) Then
MsgBox("Die Datei existiert nicht!") MsgBox("Die Datei existiert nicht!")
Else Else
If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet) 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() Try
System.IO.File.Copy(docPath, docPathTMP) Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
Process.Start(docPathTMP) File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Catch ex As Exception
'wenn fehler, soll versucht werden, das oríginal zu öffnen.
Process.Start(docPath)
End Try
Else Else
Process.Start(docPath) Process.Start(docPath)
End If End If

10
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

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