Imports EnvDTE

Public Class Form1

    Dim dbconn As New DB_Connection
    Dim db As New DB
    Dim db1 As New DB

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        db.Get_Dokumente()
        Me.C1Dokumente.DataSource = db.dsDaten.Tables("Dokumente")
        For i As Integer = 0 To Me.C1Dokumente.Splits(0).DisplayColumns.Count - 1
            Me.C1Dokumente.Splits(0).DisplayColumns(i).AutoSize()
        Next i

    End Sub



    Private Sub MailSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailSendenToolStripMenuItem.Click
        Dim ds As New DataSet
        ds.ReadXml(ApplicationPath() + "\Plugin_Covid_config.xml")
        Dim absender As String = ds.Tables(0).Rows(0).Item(0)
        Dim empfaenger As String = ds.Tables(0).Rows(0).Item(1)
        Dim betreff As String = ds.Tables(0).Rows(0).Item(2)
        Dim inhalt As String = ds.Tables(0).Rows(0).Item(3)
        Dim temppath As String = ds.Tables(0).Rows(0).Item(4)
        'Dim x As New DataTable
        'x.Columns.Add("Absender")
        'x.Columns.Add("Empfaenger")
        'x.Columns.Add("Betreff")
        'x.Columns.Add("Inhalt")
        'x.Columns.Add("Temppath")
        'Dim r As DataRow = x.NewRow
        'r.Item(0) = "test@shub.ch"
        'r.Item(1) = "test2@shub.ch"
        'r.Item(2) = "#BPNR# #DOKID#"
        'r.Item(3) = "Gaga"
        'r.Item(4) = "K:\edoka\"
        'x.Rows.Add(r)
        'Dim ds As New DataSet
        'ds.Tables.Add(x.Copy)
        'ds.WriteXml(ApplicationPath() + "\Plugin_Covid_config.xml")
        'Exit Sub
        Dim filename As String
        filename = ""


        Dim extension As String
        extension = Me.C1Dokumente.Columns("extension").Value.ToString
        extension = extension
        If UCase(extension) <> ".PDF" Then
            MsgBox("Das Dateiformat " + extension + " kann nicht automatisch verarbeitet werden.")
            Exit Sub
        End If
        '        filename = temppath + Me.C1Dokumente.Columns("nrpar00").Value.ToString + "_" + Me.C1Dokumente.Columns("Dokumentid").Value + ".pdf"
        filename = temppath + Me.C1Dokumente.Columns("nrpar00").Value.ToString + "_" + Me.C1Dokumente.Columns("Dokumentid").Value + extension
        If db.Get_From_DB(Me.C1Dokumente.Columns("Dokumentid").Value, filename) = True Then
            Dim em As New clsMailClient
            betreff = betreff.Replace("#BPNR#", C1Dokumente.Columns("nrpar00").Value.ToString)
            betreff = betreff.Replace("#DOKID#", C1Dokumente.Columns("dokumentid").Value.ToString)
            em.CreateOutlookMail("OUTLOOK", absender, empfaenger, betreff, inhalt, filename)
        Else
            MsgBox("Das Dokument konnte nicht aus der Datenbank geladen werden.")
        End If
    End Sub

    Private Sub C1Dokumente_Click(sender As Object, e As EventArgs) Handles C1Dokumente.DoubleClick
        MailSendenToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub C1Dokumente_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles C1Dokumente.MouseDown
        Me.C1Dokumente.Bookmark = Me.C1Dokumente.RowContaining(e.Y)
    End Sub
End Class