m.haase/DVAG_Mailverteiler
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Finale anpassungen

Browse Source
This commit is contained in:
m.haase 2023-01-16 15:58:17 +01:00
parent 1bccf4291c
commit edbd4c8bb7
5 changed files with 26 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
DVAG - Mailverteiler.vbproj
View File

@ -8,7 +8,7 @@
<OutputType>WinExe</OutputType>
<StartupObject>DVAG___Mailverteiler.My.MyApplication</StartupObject>
<RootNamespace>DVAG___Mailverteiler</RootNamespace>
<AssemblyName>DVAG - Mailverteiler</AssemblyName>
<AssemblyName>anpassungen</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
@ -26,7 +26,7 @@
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.1.2.%2a</ApplicationVersion>
<ApplicationVersion>1.1.7.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
@ -37,7 +37,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DVAG - Mailverteiler.xml</DocumentationFile>
<DocumentationFile>anpassungen.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@ -47,7 +47,7 @@
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DVAG - Mailverteiler.xml</DocumentationFile>
<DocumentationFile>anpassungen.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
@ -67,7 +67,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\Debug\</OutputPath>
<DocumentationFile>DVAG - Mailverteiler.xml</DocumentationFile>
<DocumentationFile>anpassungen.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
@ -76,7 +76,7 @@
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\Release\</OutputPath>
<DocumentationFile>DVAG - Mailverteiler.xml</DocumentationFile>
<DocumentationFile>anpassungen.xml</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>

4
My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.1.2.0")>
<Assembly: AssemblyFileVersion("1.1.2.0")>
<Assembly: AssemblyVersion("1.1.7.0")>
<Assembly: AssemblyFileVersion("1.1.7.0")>

2
mail_auslesen.Designer.vb generated
View File

@ -179,7 +179,7 @@ Partial Class mail_auslesen
Me.Controls.Add(Me.bt_start)
Me.Name = "mail_auslesen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Form1"
Me.Text = "Form"
Me.ResumeLayout(False)
Me.PerformLayout()

8
mail_auslesen.vb
View File

@ -197,7 +197,10 @@ Public Class mail_auslesen
End While
mail_sending.Show()
mail_sending.bt_start.PerformClick()
Me.Hide()
@ -214,6 +217,7 @@ Public Class mail_auslesen
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles bt_stop.Click
Timer_mail_auslesen.Stop()
Me.Text = "Dienst ist gestoppt"
My.Settings.mail_auslesen = "0"
End Sub
@ -226,13 +230,11 @@ Public Class mail_auslesen
End Function
Private Sub Timer_mail_auslesen_Tick(sender As Object, e As EventArgs) Handles Timer_mail_auslesen.Tick
Me.Text = "Dienst läuft"
einlesen()
End Sub
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
einlesen()
End Sub
End Class

20
mail_sending.vb
View File

@ -171,9 +171,10 @@ Public Class mail_sending
sqlcmd = New MySqlCommand("select email from newsletter union select email from dvag.tl.member where disable = ''", conn)
'Test
ElseIf tb_ak_gruppe.Text Like "Test" Then
ElseIf tb_ak_gruppe.Text Like "TEST" Then
sqlcmd = New MySqlCommand("SELECT `email` FROM `test`", conn)
Else
@ -181,7 +182,7 @@ Public Class mail_sending
End If
rtb_log.Text = rtb_log.Text & DateTime.Now & ": Empfänger SQL gesetzt" & vbNewLine
MsgBox(sqlcmd.ToString)
'MsgBox(sqlcmd.ToString)
rtb_log.ScrollToCaret()
Try
@ -195,12 +196,13 @@ Public Class mail_sending
For Each row As DataRow In chemicalInventory.Rows
' MsgBox(row.Item("email"))
dr = (row.Item("email"))
rtb_empfaengergruppe.Text = rtb_empfaengergruppe.Text & dr & vbNewLine
Next
Dim last = rtb_empfaengergruppe.Text.LastIndexOf("")
If last > 0 Then
@ -244,13 +246,13 @@ Public Class mail_sending
System.Windows.Forms.Application.DoEvents()
save_log()
'save_log()
mail_versenden()
save_log()
'save_log()
update_sql_gesendete_mails()
save_log()
'save_log()
felder_leeren()
save_log()
'save_log()
@ -329,9 +331,11 @@ Public Class mail_sending
tb_betreff.Clear()
rtb_mail_body.Clear()
lb_id.Text = ""
rtb_log.Text = ""
If My.Settings.mail_auslesen = "1" Then mail_auslesen.Timer_mail_auslesen.Start()
mail_auslesen.Show()
If My.Settings.mail_auslesen = "1" Then mail_auslesen.Timer_mail_auslesen.Start()
Me.Hide()
End Sub