Anhänge öffnen

VERAGAddIn/frmAvisoAnfügen.vb

@@ -1,4 +1,5 @@
-Imports System.Windows.Forms
+Imports System.Diagnostics
+Imports System.Windows.Forms
 
 Public Class frmAvisoAnfuegen
 
@@ -232,4 +233,21 @@ Public Class frmAvisoAnfuegen
             btnSaveAttachments.Enabled = False
         End If
     End Sub
+
+    Private Sub dgvAnhaenge_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellContentDoubleClick, dgvAnhaenge.CellDoubleClick
+
+        Try
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                If dgvAnhaenge.SelectedRows(0).Cells(0).Value <> "" Then
+
+                    Dim strTmpPath As String = System.IO.Path.GetTempPath()
+                    Process.Start(strTmpPath & dgvAnhaenge.SelectedRows(0).Cells(0).Value)
+
+                End If
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
 End Class