You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
76 lines
3.1 KiB
76 lines
3.1 KiB
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 |