AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Email-Sending Errors

Browse Source
This commit is contained in:
SchreiberM 2023-05-10 11:59:39 +02:00
parent ab99d5bb6a
commit 7bcf839cb3
17 changed files with 197 additions and 1206 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/ToolCollection/FileContentIndex/e4418cd1-2e7b-4685-90ad-dc7e260c2c68.vsidx
View File

Binary file not shown.

68
ToolCollection/ClassDI_Email.vb
View File

@ -1,68 +0,0 @@
Imports System.Net.Mail
Public Class ClassDI_Email
Public Sub Send_EMail(ByVal vBody As String, Optional ByVal Test As Boolean = False)
'#### E-MAIL NACHRICHT VERSENDEN
Try
'######
Dim empfaenger As String()
If My.Settings.vDIMailEmpf <> "" Then
If My.Settings.vDIMailEmpf.Contains(";") Then
empfaenger = My.Settings.vDIMailEmpf.Split(";")
Else
ReDim Preserve empfaenger(0)
empfaenger(0) = My.Settings.vDIMailEmpf
End If
'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger
' Neue Nachricht erzeugen:
Dim message As New MailMessage(My.Settings.vDIMailFrom, _mailempfaenger, My.Settings.vDIMailBetreff & " Domain: " & Environment.UserDomainName, _
"<font face=""Arial"">" & My.Settings.vDIMailBody & vBody & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" & _
"<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
' create and add the attachment(s) */
'Dim logfile As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
'If logfile.Contains("\\") Then
' logfile = logfile.Replace("\\", "\")
'End If
'Dim Attachment As Attachment = New Attachment(logfile)
'message.Attachments.Add(Attachment)
With message
.IsBodyHtml = True
End With
'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
Dim emailClient As New SmtpClient(My.Settings.vSMTP)
'Email mit Authentifizierung
Dim SMTPUserInfo As New System.Net.NetworkCredential(My.Settings.vMailUser.Trim, My.Settings.vMailPW.Trim) ', My.Settings.vDomain)
emailClient.UseDefaultCredentials = False
emailClient.Credentials = SMTPUserInfo
emailClient.Port = My.Settings.vemailPort
emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
'*Send the message */
emailClient.Send(message)
ClassLoggerDI.Add("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!", False)
ClassLoggerDI.Add("==> Text: " & vBody, False)
If Test = True Then
MsgBox("Email an " & _mailempfaenger & "erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
End If
Next
End If
'######
Catch ex As Exception
If Test = True Then
MsgBox("Fehler im Mailversand:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler im Mailversand DI:")
Else
ClassLoggerDI.Add(">> Achtung: Fehler in Mailversand: " & ex.Message, False)
End If
End Try
End Sub
End Class

101
ToolCollection/ClassNIDatenbankzugriff.vb
View File

@ -15,12 +15,15 @@ Public Class ClassNIDatenbankzugriff
Private Shared aTimer As System.Timers.Timer
Private Shared Oracle_Conn As New OracleConnection
Private _firebird As Firebird
Sub New(LogConf As DigitalData.Modules.Logging.LogConfig)
_Logger = LogConf.GetLogger()
If My.Settings.FB_DATASOURCE <> String.Empty Then
_firebird = New Firebird(LogConf, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
End If
'Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd
End Sub
''' <summary>
@ -61,7 +64,6 @@ Public Class ClassNIDatenbankzugriff
' End If
End If
End Sub
Private email As New ClassNIEmail
' führt eine SQL-Anweisung auf der DB aus
Public Function GetValueFromOracleDb(Profilname As String, ByVal selectAnweisung As String, ByVal host As String, ByVal servicename As String, ByVal User As String, ByVal pw As String, ByVal myDS As DataSet, Optional ByVal Indexname As String = "", Optional ByVal QuellVektor As Boolean = False)
Dim swGvfO As New ClassStopwatch("GetValueFromOracleDb")
@ -108,9 +110,7 @@ Public Class ClassNIDatenbankzugriff
_LastStep = "OracleCon.State: " & Oracle_Conn.State.ToString
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseOracleDb(Oracle_Conn)
Return Nothing
@ -124,9 +124,7 @@ Public Class ClassNIDatenbankzugriff
_LastStep = "ORACLE Command definiert"
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - SQL-Abfrage definieren: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseOracleDb(Oracle_Conn)
Return Nothing
@ -196,9 +194,6 @@ Public Class ClassNIDatenbankzugriff
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
_Logger.Error(ex)
_Logger.Warn($"Unexpected error in GetValueFromOracleDB - Oracle-Command: {selectAnweisung}")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Daten auslesen => SQL-Anweisungen prüfen: <br>" & selectAnweisung & " <br>Fehler: <br>" & ex.Message)
End If
' DB-Connection schliessen
Oracle_Conn.Close()
Dim msg = swGvfO.Done
@ -210,9 +205,6 @@ Public Class ClassNIDatenbankzugriff
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
_Logger.Warn("ClassNIDatenbankzugriff.GetValueFromOracleDb", "SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. ")
End If
Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return Nothing
@ -223,9 +215,6 @@ Public Class ClassNIDatenbankzugriff
_Logger.Error(ex)
_Logger.Warn($"Unexpected error in GetValueFromOracleDB: [{ex.Message}] -Oracle-Command: " & selectAnweisung)
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Ein unbekannter Fehler: " & ex.Message)
End If
Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return Nothing
@ -263,9 +252,6 @@ Public Class ClassNIDatenbankzugriff
Oracle_Conn.Open()
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseOracleDb(Oracle_Conn)
Return 0
@ -279,9 +265,6 @@ Public Class ClassNIDatenbankzugriff
_Logger.Debug(">> Oracle-Command: " & plsqlcommand)
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - plsqlcommand definieren: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseOracleDb(Oracle_Conn)
Return 0
@ -300,9 +283,6 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Execute Command => (" & plsqlcommand & "): " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseOracleDb(Oracle_Conn)
Return 0
@ -320,9 +300,9 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Ein unbekannter Fehler in ExecuteonOracleDb: " & ex.Message)
End If
'If My.Settings.vMailsenden = True Then
' email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Ein unbekannter Fehler in ExecuteonOracleDb: " & ex.Message)
'End If
Timer_Stop()
Return 0
End Try
@ -356,9 +336,7 @@ Public Class ClassNIDatenbankzugriff
Oracle_Conn.Open()
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
' DB-Connection schliessen
Oracle_Conn.Close()
Timer_Stop()
@ -373,9 +351,7 @@ Public Class ClassNIDatenbankzugriff
_Logger.Debug(">> Oracle-Command: " & plsqlcommand)
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - plsqlcommand definieren: " & ex.Message)
End If
' DB-Connection schliessen
Oracle_Conn.Close()
Timer_Stop()
@ -407,9 +383,6 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Execute Command => (" & plsqlcommand & "): " & ex.Message)
End If
' DB-Connection schliessen
Oracle_Conn.Close()
Timer_Stop()
@ -428,9 +401,6 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Ein unbekannter Fehler in ExecuteonOracleClient: " & ex.Message)
End If
Timer_Stop()
Return 0
End Try
@ -500,9 +470,6 @@ Public Class ClassNIDatenbankzugriff
Connection.Open()
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.CheckIndex_mssql - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return Nothing
@ -562,9 +529,6 @@ Public Class ClassNIDatenbankzugriff
SQLconnect.Open()
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
' DB-Connection schliessen
Return Nothing
End Try
@ -574,9 +538,9 @@ Public Class ClassNIDatenbankzugriff
SQLcommand.CommandText = selectAnweisung
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - SQL-Abfrage definieren: " & ex.Message)
End If
EMAIL_DD.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - SQL-Abfrage definieren: " & ex.Message, "NIDB_GetValueFromMssqlDb")
' DB-Connection schliessen
SQLconnect.Close()
Return Nothing
@ -661,9 +625,6 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
_Logger.Warn("ClassNIDatenbankzugriff.GetValueFromMssqlDb" & ex.Message)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Datatable durchlaufen: " & ex.Message)
End If
' DB-Connection schliessen
SQLconnect.Close()
Return Nothing
@ -671,9 +632,6 @@ Public Class ClassNIDatenbankzugriff
Else
'Eintrag in Logdatei machen
_Logger.Warn("Die Datatable ist unerwartet nothing. (SQL: " & selectAnweisung & ")")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Die Datatable ist unerwartet nothing. (SQL: " & selectAnweisung & ")")
End If
SQLconnect.Close()
Return Nothing
End If
@ -681,9 +639,7 @@ Public Class ClassNIDatenbankzugriff
'kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
'Eintrag in Logdatei machen
_Logger.Warn("SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
End If
SQLconnect.Close()
Return Nothing
End If
@ -693,9 +649,6 @@ Public Class ClassNIDatenbankzugriff
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
_Logger.Error(ex)
_Logger.Warn($"SQL-Command [{selectAnweisung}]")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Build Datenadapter => SQL-Anweisungen prüfen (" & selectAnweisung & "): " & ex.Message)
End If
' DB-Connection schliessen
SQLconnect.Close()
Return Nothing
@ -708,9 +661,6 @@ Public Class ClassNIDatenbankzugriff
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Ein unbekannter Fehler: " & ex.Message)
End If
Return Nothing
End Try
End Function
@ -766,10 +716,6 @@ Public Class ClassNIDatenbankzugriff
Connection.Open()
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return 0
@ -781,9 +727,6 @@ Public Class ClassNIDatenbankzugriff
Command = New SqlCommand(sqlcommand, Connection)
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - sqlcommand definieren: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return 0
@ -800,9 +743,6 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Execute Command => SQL-Anweisungen prüfen (" & sqlcommand & "): " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return 0
@ -811,18 +751,11 @@ Public Class ClassNIDatenbankzugriff
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
_Logger.Warn("Unexpected error in Execute on MSSQL Row 774")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden.")
End If
Return 0
End If
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Ein unbekannter Fehler in ExecuteonMSSQL: " & ex.Message)
End If
Return 0
End Try
@ -870,9 +803,6 @@ Public Class ClassNIDatenbankzugriff
Connection.Open()
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>CheckIndex_MSSSQL - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return Nothing
@ -883,9 +813,6 @@ Public Class ClassNIDatenbankzugriff
Command = New SqlCommand(scalar_select, Connection)
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>CheckIndex_MSSSQL - sqlcommand definieren: " & ex.Message)
End If
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return Nothing

156
ToolCollection/ClassNIEmail.vb
View File

@ -1,153 +1,39 @@
Imports System.Net.Mail
Imports System.IO
Imports DigitalData.Modules.Logging
Public Class ClassNIEmail
Public Class ClassEmail
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared err_message As String
Public Shared Sub Add(ByVal errmsg As String)
err_message &= vbNewLine & errmsg
End Sub
Public Shared Sub Send_EMail(ByVal vBody As String, Optional ByVal Test As Boolean = False)
Public Sub New(pLogConf As DigitalData.Modules.Logging.LogConfig)
_Logger = pLogConf.GetLogger()
End Sub
Public Sub Send_EMail(ByVal vBody As String, ByVal pRefString As String)
'#### E-MAIL NACHRICHT VERSENDEN
Try
'#########
Dim empfaenger As String()
If My.Settings.vNIEmailEmpf <> "" Then
If My.Settings.vNIEmailEmpf.Contains(";") Then
empfaenger = My.Settings.vNIEmailEmpf.Split(";")
Else
ReDim Preserve empfaenger(0)
empfaenger(0) = My.Settings.vNIEmailEmpf
If My.Settings.vMailRecipient <> "" And My.Settings.vMailsenden = True Then
If My.Settings.vMailRecipient.Contains(";") Then
Dim oPROC As String
Dim oBody As String = ""
If My.Settings.vMailBodyPraefix <> String.Empty Then
oBody = My.Settings.vMailBodyPraefix
End If
'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger
' Neue Nachricht erzeugen:
Dim message As New MailMessage(My.Settings.vNIMailfrom, _mailempfaenger, My.Settings.vNIMailBetreff & " Domain: " & Environment.UserDomainName, _
"<font face=""Arial"">" & My.Settings.vNIMailBody & vBody & "<br>>> Maschine: " & Environment.MachineName & _
"<br>Kunde: " & frmStart._company & "<br>" & _
"<br>Domain-Name: " & Environment.UserDomainName & "<br>" & _
"<br>Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
' create and add the attachment(s) */
'Dim logfile As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
'If logfile.Contains("\\") Then
' logfile = logfile.Replace("\\", "\")
'End If
'Dim Attachment As Attachment = New Attachment(logfile)
'message.Attachments.Add(Attachment)
With message
.IsBodyHtml = True
End With
'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
Dim emailClient As New SmtpClient(My.Settings.vSMTP)
'Email mit Authentifizierung
Dim SMTPUserInfo As New System.Net.NetworkCredential(My.Settings.vMailUser.Trim, My.Settings.vMailPW.Trim) ', My.Settings.vDomain)
emailClient.UseDefaultCredentials = False
emailClient.Credentials = SMTPUserInfo
emailClient.Port = My.Settings.vemailPort
emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
'*Send the message */
emailClient.Send(message)
_Logger.Info("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!")
_Logger.Info("==> Text: " & vBody)
If Test = True Then
MsgBox("Email an " & _mailempfaenger & " erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
oBody += "<br>>> machinename: " & Environment.MachineName
oBody += "<br>>> Domain-Name: " & Environment.UserDomainName
oPROC = $"EXEC PREMAIL_NEW_EMAIL {My.Settings.vMailProfilID},'{My.Settings.vMailRecipient}','{My.Settings.vMailSubject}','{oBody}','{pRefString}',9999,8888,'ToolCollection'"
If Not IsNothing(DB_ECM) Then
If DB_ECM.DBInitialized Then
DB_ECM.ExecuteNonQuery(oPROC)
End If
End If
End If
Next
End If
'########
Catch ex As Exception
If Test = True Then
MsgBox("Fehler im Mailversand:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler im Mailversand NI:")
Else
_Logger.Warn(">> Achtung: Fehler in Mailversand: " & ex.Message)
End If
End Try
End Sub
Public Shared Sub Send_Urgent(ByVal vBody As String, Optional ByVal Test As Boolean = False)
'#### E-MAIL NACHRICHT VERSENDEN
Try
Dim tempFilename = My.Computer.FileSystem.GetTempFileName()
Try
'Eine tempfile generieren
Dim name = Path.GetFileNameWithoutExtension(tempFilename)
tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".log")
' File.Copy(Logger.LogDateiname, tempFilename)
' create and add the attachment(s) */
'If logfile.Contains("\\") Then
' logfile = logfile.Replace("\\", "\")
'End If
Catch ex As Exception
MsgBox("Fehler im Mailversand Urgent - Add LogFile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
_Logger.Warn(">> Achtung: Fehler in Mailversand Urgent - Add LogFile: " & ex.Message)
End Try
'#########
Dim empfaenger As String()
Dim EMAIL_EMP As String = "support-flow@digitaldata.works"
'If EMAIL_EMP.Contains(";") Then
empfaenger = EMAIL_EMP.Split(";")
'Else
'ReDim Preserve empfaenger(0)
'empfaenger(0) = EMAIL_EMP
' End If
'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger
' Neue Nachricht erzeugen:
Dim message As New MailMessage("support-flow@digitaldata.works", _mailempfaenger, "Tool Collection - Urgent Error - Domain: " & Environment.UserDomainName,
"<font face=""Arial"">" & vBody & "<br>>> Machine: " & Environment.MachineName &
"<br>Kunde: " & frmStart._company & "<br>" &
"<br>Domain: " & Environment.UserDomainName & "<br>" &
"<br>Send-Time: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" &
My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
With message
.IsBodyHtml = True
End With
Dim Attachment As Attachment = New Attachment(tempFilename)
message.Attachments.Add(Attachment)
'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
Dim emailClient As New SmtpClient("mail.triplew.de")
'Email mit Authentifizierung
Dim SMTPUserInfo As New System.Net.NetworkCredential("support-flow@digitaldata.works", "ddemail105")
emailClient.UseDefaultCredentials = False
emailClient.Credentials = SMTPUserInfo
emailClient.Port = My.Settings.vemailPort
emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
'*Send the message */
emailClient.Send(message)
'tempfile löschen
If My.Computer.FileSystem.FileExists(tempFilename) Then
'My.Computer.FileSystem.DeleteFile(tempFilename)
End If
_Logger.Info(">> Urgent Email erfolgreich an " & _mailempfaenger & " versendet!")
If Test = True Then
MsgBox("Email an " & _mailempfaenger & " erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
End If
Next
'########
Catch ex As Exception
If Test = True Then
MsgBox("Fehler im Mailversand Urgent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Else
_Logger.Warn(">> Achtung: Fehler in Mailversand Urgent: " & ex.Message)
End If
End Try
End Sub
End Class

5
ToolCollection/ClassNIWindream.vb
View File

@ -684,7 +684,7 @@ Public Class ClassNIWindream
i1 += 1
Next
End If
If My.Settings.vNIMailsenden = True Then
If My.Settings.vMailsenden = True Then
'email.Send_EMail("Fehler bei RunIndexing - Datei: " & oDocument.aName.ToString & "<br>Profilname: " & Profil & "<br>Fehler: " & ex.Message)
End If
oDocument.Save()
@ -908,7 +908,7 @@ Public Class ClassNIWindream
Catch ex As Exception
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
If My.Settings.vMailsenden = True Then
'email.Send_EMail("Fehler bei SetfinalIndex - Datei: " & oDocument.aName.ToString & " - Fehler: " & ex.Message)
End If
oDocument.Save()
@ -1038,6 +1038,7 @@ Public Class ClassNIWindream
Const WMEntityDocument = 1
Dim IndexwertAusWindream As Object = Nothing
_Logger.Debug($"NEW_MOVE_FILE getting WMObject for: {sourcepath}")
oWMFile = oWMSession.GetWMObjectByPath(WMEntityDocument, sourcepath)
If oWMFile.lock Then
oWMFile.aPath = targetpath

8
ToolCollection/ClassxmlZugriff.vb
View File

@ -1,7 +1,6 @@
Imports System.Xml
Imports DigitalData.Modules.Logging
Public Class ClassxmlZugriff
Private email As New ClassNIEmail
Private Shared _Logger As DigitalData.Modules.Logging.Logger
'führt eine SQL-Anweisung auf der DB aus
Public Function GetValueFromLuratechxml(ByVal vfilename As String, ByVal vfullfilepath As String, ByVal KnotenString As String, ByVal Profil As String) '
@ -69,9 +68,7 @@ Public Class ClassxmlZugriff
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("ClassxmlZugriff.GetValueFromLuratechxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message)
End If
Return Nothing
End Try
End Function
@ -114,9 +111,6 @@ Public Class ClassxmlZugriff
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("ClassxmlZugriff.GetValueFromZugFerdxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message)
End If
Return Nothing
End Try
End Function

4
ToolCollection/ModuleCURRENT.vb
View File

@ -1,5 +1,5 @@
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
Module ModuleCURRENT
Public CURRENT_START_DATETIME As Date
Public NI_Restart As Boolean = False
@ -31,5 +31,7 @@ Module ModuleCURRENT
Public CURRENT_UNTERV As List(Of String)
Public CURRENT_DOCID As Int64
Public WMSearchIsSQL As Boolean = False
Public DB_ECM As MSSQLServer
Public EMAIL_DD As ClassEmail
End Module

165
ToolCollection/My Project/Settings.Designer.vb generated
View File

@ -106,42 +106,34 @@ Namespace My
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("absender@IhrServer.de"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vNIMailfrom() As String
Global.System.Configuration.DefaultSettingValueAttribute("1")> _
Public ReadOnly Property vMailProfilID() As Integer
Get
Return CType(Me("vNIMailfrom"),String)
Return CType(Me("vMailProfilID"),Integer)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("support-flow@digitaldata.works")> _
Public ReadOnly Property vMailRecipient() As String
Get
Return CType(Me("vMailRecipient"),String)
End Get
Set
Me("vNIMailfrom") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.DefaultSettingValueAttribute("Fehler in Modul ToolCollection"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vNIEmailEmpf() As String
Public Property vMailSubject() As String
Get
Return CType(Me("vNIEmailEmpf"),String)
Return CType(Me("vMailSubject"),String)
End Get
Set
Me("vNIEmailEmpf") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Fehler im Modul Nachindexierung"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vNIMailBetreff() As String
Get
Return CType(Me("vNIMailBetreff"),String)
End Get
Set
Me("vNIMailBetreff") = value
Me("vMailSubject") = value
End Set
End Property
@ -150,65 +142,22 @@ Namespace My
Global.System.Configuration.DefaultSettingValueAttribute("<p>__________________<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <b><font face=""Arial"">Achtung Fehler:</font></b><fon"& _
"t face=""Arial""><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Folgender Fehler wurde festgestellt:</font> </p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vNIMailBody() As String
Public Property vMailBodyPraefix() As String
Get
Return CType(Me("vNIMailBody"),String)
Return CType(Me("vMailBodyPraefix"),String)
End Get
Set
Me("vNIMailBody") = value
Me("vMailBodyPraefix") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("mailODERpop.smtp.de"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vSMTP() As String
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public ReadOnly Property vMailsenden() As Boolean
Get
Return CType(Me("vSMTP"),String)
Return CType(Me("vMailsenden"),Boolean)
End Get
Set
Me("vSMTP") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Ihr User"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vMailUser() As String
Get
Return CType(Me("vMailUser"),String)
End Get
Set
Me("vMailUser") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vMailPW() As String
Get
Return CType(Me("vMailPW"),String)
End Get
Set
Me("vMailPW") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vNIMailsenden() As Boolean
Get
Return CType(Me("vNIMailsenden"),Boolean)
End Get
Set
Me("vNIMailsenden") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
@ -250,59 +199,6 @@ Namespace My
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("absender@IhrServer.de"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vDIMailFrom() As String
Get
Return CType(Me("vDIMailFrom"),String)
End Get
Set
Me("vDIMailFrom") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vDIMailEmpf() As String
Get
Return CType(Me("vDIMailEmpf"),String)
End Get
Set
Me("vDIMailEmpf") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Fehler im Modul Dateiimporter"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vDIMailBetreff() As String
Get
Return CType(Me("vDIMailBetreff"),String)
End Get
Set
Me("vDIMailBetreff") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("<p>__________________<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <b><font face=""Arial"">Achtung Fehler:</font></b><fon"& _
"t face=""Arial""><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Folgender Fehler wurde festgestellt:</font> </p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vDIMailBody() As String
Get
Return CType(Me("vDIMailBody"),String)
End Get
Set
Me("vDIMailBody") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
@ -316,19 +212,6 @@ Namespace My
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property vDIMailSenden() As Boolean
Get
Return CType(Me("vDIMailSenden"),Boolean)
End Get
Set
Me("vDIMailSenden") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0"), _

46
ToolCollection/My Project/Settings.settings
View File

@ -14,32 +14,23 @@
<Setting Name="vDIConfigDatei" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">modDateiimportConfig.xml</Value>
</Setting>
<Setting Name="vNIMailfrom" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">absender@IhrServer.de</Value>
<Setting Name="vMailProfilID" Roaming="true" Type="System.Int32" Scope="Application">
<Value Profile="(Default)">1</Value>
</Setting>
<Setting Name="vNIEmailEmpf" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)" />
<Setting Name="vMailRecipient" Roaming="true" Type="System.String" Scope="Application">
<Value Profile="(Default)">support-flow@digitaldata.works</Value>
</Setting>
<Setting Name="vNIMailBetreff" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">Fehler im Modul Nachindexierung</Value>
<Setting Name="vMailSubject" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">Fehler in Modul ToolCollection</Value>
</Setting>
<Setting Name="vNIMailBody" Roaming="true" Type="System.String" Scope="User">
<Setting Name="vMailBodyPraefix" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">&lt;p&gt;__________________&lt;br&gt;
&lt;b&gt;&lt;font face="Arial"&gt;Achtung Fehler:&lt;/font&gt;&lt;/b&gt;&lt;font face="Arial"&gt;&lt;br&gt;
&lt;br&gt;
Folgender Fehler wurde festgestellt:&lt;/font&gt; &lt;/p&gt;
</Value>
</Setting>
<Setting Name="vSMTP" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">mailODERpop.smtp.de</Value>
</Setting>
<Setting Name="vMailUser" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">Ihr User</Value>
</Setting>
<Setting Name="vMailPW" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="vNIMailsenden" Roaming="true" Type="System.Boolean" Scope="User">
<Setting Name="vMailsenden" Roaming="true" Type="System.Boolean" Scope="Application">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="frmNI_SQL_Loc" Roaming="true" Type="System.Drawing.Point" Scope="User">
@ -51,28 +42,9 @@
<Setting Name="NIDurchlauf_Intervall" Roaming="true" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="vDIMailFrom" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">absender@IhrServer.de</Value>
</Setting>
<Setting Name="vDIMailEmpf" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="vDIMailBetreff" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">Fehler im Modul Dateiimporter</Value>
</Setting>
<Setting Name="vDIMailBody" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">&lt;p&gt;__________________&lt;br&gt;
&lt;b&gt;&lt;font face="Arial"&gt;Achtung Fehler:&lt;/font&gt;&lt;/b&gt;&lt;font face="Arial"&gt;&lt;br&gt;
&lt;br&gt;
Folgender Fehler wurde festgestellt:&lt;/font&gt; &lt;/p&gt;
</Value>
</Setting>
<Setting Name="vDIDurchlaufRunning" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="vDIMailSenden" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="frmNIHauptseite_Loc" Roaming="true" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
@ -222,7 +194,7 @@
</Setting>
<Setting Name="DDECMConString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>

1
ToolCollection/ToolCollection.vbproj
View File

@ -190,7 +190,6 @@
<Compile Include="ClassDIProfile.vb" />
<Compile Include="ClassDIRegel.vb" />
<Compile Include="ClassDIRegeln.vb" />
<Compile Include="ClassDI_Email.vb" />
<Compile Include="ClassLDAP.vb" />
<Compile Include="ClassLicense.vb" />
<Compile Include="ClassLicenseManager.vb" />

55
ToolCollection/app.config
View File

@ -11,7 +11,8 @@
<section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</configSections>
<connectionStrings>
<add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
<add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<system.diagnostics>
<sources>
@ -47,34 +48,16 @@
<setting name="vDIConfigDatei" serializeAs="String">
<value>modDateiimportConfig.xml</value>
</setting>
<setting name="vNIMailfrom" serializeAs="String">
<value>absender@IhrServer.de</value>
<setting name="vMailSubject" serializeAs="String">
<value>Fehler in Modul ToolCollection</value>
</setting>
<setting name="vNIEmailEmpf" serializeAs="String">
<value />
</setting>
<setting name="vNIMailBetreff" serializeAs="String">
<value>Fehler im Modul Nachindexierung</value>
</setting>
<setting name="vNIMailBody" serializeAs="String">
<setting name="vMailBodyPraefix" serializeAs="String">
<value>&lt;p&gt;__________________&lt;br&gt;
&lt;b&gt;&lt;font face="Arial"&gt;Achtung Fehler:&lt;/font&gt;&lt;/b&gt;&lt;font face="Arial"&gt;&lt;br&gt;
&lt;br&gt;
Folgender Fehler wurde festgestellt:&lt;/font&gt; &lt;/p&gt;
</value>
</setting>
<setting name="vSMTP" serializeAs="String">
<value>mailODERpop.smtp.de</value>
</setting>
<setting name="vMailUser" serializeAs="String">
<value>Ihr User</value>
</setting>
<setting name="vMailPW" serializeAs="String">
<value />
</setting>
<setting name="vNIMailsenden" serializeAs="String">
<value>False</value>
</setting>
<setting name="frmNI_SQL_Loc" serializeAs="String">
<value>0, 0</value>
</setting>
@ -84,28 +67,9 @@
<setting name="NIDurchlauf_Intervall" serializeAs="String">
<value>0</value>
</setting>
<setting name="vDIMailFrom" serializeAs="String">
<value>absender@IhrServer.de</value>
</setting>
<setting name="vDIMailEmpf" serializeAs="String">
<value />
</setting>
<setting name="vDIMailBetreff" serializeAs="String">
<value>Fehler im Modul Dateiimporter</value>
</setting>
<setting name="vDIMailBody" serializeAs="String">
<value>&lt;p&gt;__________________&lt;br&gt;
&lt;b&gt;&lt;font face="Arial"&gt;Achtung Fehler:&lt;/font&gt;&lt;/b&gt;&lt;font face="Arial"&gt;&lt;br&gt;
&lt;br&gt;
Folgender Fehler wurde festgestellt:&lt;/font&gt; &lt;/p&gt;
</value>
</setting>
<setting name="vDIDurchlaufRunning" serializeAs="String">
<value>False</value>
</setting>
<setting name="vDIMailSenden" serializeAs="String">
<value>False</value>
</setting>
<setting name="frmNIHauptseite_Loc" serializeAs="String">
<value>0, 0</value>
</setting>
@ -212,6 +176,15 @@
</userSettings>
<applicationSettings>
<ToolCollection.My.MySettings>
<setting name="vMailProfilID" serializeAs="String">
<value>1</value>
</setting>
<setting name="vMailRecipient" serializeAs="String">
<value>support-flow@digitaldata.works</value>
</setting>
<setting name="vMailsenden" serializeAs="String">
<value>False</value>
</setting>
<setting name="MRWD_Laufwerk" serializeAs="String">
<value>W</value>
</setting>

9
ToolCollection/clsNI_WorkFile.vb
View File

@ -62,9 +62,9 @@ Public Class clsNI_WorkFile
Catch ex As Exception
'bei einem Fehler einen Eintrag in der Logdatei machen
_Logger.Warn("ACHTUNG Schwerwiegender Fehler in Work_File: " & ex.Message)
If My.Settings.vNIMailsenden = True Then
ClassNIEmail.Add("Schwerwiegender Fehler bei Work_File - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message)
End If
EMAIL_DD.Send_EMail("Schwerwiegender Fehler bei Work_File - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message, "clsNIWorkFileWorkFile")
Return False
End Try
End Function
@ -174,9 +174,6 @@ Public Class clsNI_WorkFile
Catch ex As Exception
Dim errormsg As String = "UNVORHERGESEHENER FEHLER in bei Get_Desk_index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message
_Logger.Warn(errormsg)
If My.Settings.vNIMailsenden = True Then
ClassNIEmail.Add(errormsg)
End If
End Try
If _file_DeskriptiverWert Is Nothing Then
_Logger.Warn("- ACHTUNG: Deskriptiver Indexwert ist NOTHING", False)

262
ToolCollection/frmDIHauptseite.Designer.vb generated
View File

@ -59,26 +59,6 @@ Partial Class frmDIHauptseite
Me.tvLog = New System.Windows.Forms.TreeView()
Me.Label5 = New System.Windows.Forms.Label()
Me.tpKonfiguration = New System.Windows.Forms.TabPage()
Me.gbEmail = New System.Windows.Forms.GroupBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtBody = New System.Windows.Forms.TextBox()
Me.btntestmail = New System.Windows.Forms.Button()
Me.txtEmpfaenger = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtBetreff = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtUser = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtSMTP = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtMail_from = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtAusschluss = New System.Windows.Forms.TextBox()
Me.chkbEmail = New System.Windows.Forms.CheckBox()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TableAdapterManager = New ToolCollection.MyDatasetTableAdapters.TableAdapterManager()
Me.TBTC_DI_REGEX_MATCHTableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_DI_REGEX_MATCHTableAdapter()
@ -89,9 +69,6 @@ Partial Class frmDIHauptseite
CType(Me.numIntervallDurchlauf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBTC_DI_REGEX_MATCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tpKonfiguration.SuspendLayout()
Me.gbEmail.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.SuspendLayout()
'
'timRun_Dateiimport
@ -430,8 +407,6 @@ Partial Class frmDIHauptseite
'
'tpKonfiguration
'
Me.tpKonfiguration.Controls.Add(Me.gbEmail)
Me.tpKonfiguration.Controls.Add(Me.GroupBox3)
Me.tpKonfiguration.Location = New System.Drawing.Point(4, 22)
Me.tpKonfiguration.Name = "tpKonfiguration"
Me.tpKonfiguration.Padding = New System.Windows.Forms.Padding(3)
@ -440,218 +415,6 @@ Partial Class frmDIHauptseite
Me.tpKonfiguration.Text = "Einstellungen"
Me.tpKonfiguration.UseVisualStyleBackColor = True
'
'gbEmail
'
Me.gbEmail.Controls.Add(Me.Label16)
Me.gbEmail.Controls.Add(Me.txtBody)
Me.gbEmail.Controls.Add(Me.btntestmail)
Me.gbEmail.Controls.Add(Me.txtEmpfaenger)
Me.gbEmail.Controls.Add(Me.Label13)
Me.gbEmail.Controls.Add(Me.txtBetreff)
Me.gbEmail.Controls.Add(Me.Label12)
Me.gbEmail.Controls.Add(Me.txtPasswort)
Me.gbEmail.Controls.Add(Me.Label11)
Me.gbEmail.Controls.Add(Me.txtUser)
Me.gbEmail.Controls.Add(Me.Label8)
Me.gbEmail.Controls.Add(Me.txtSMTP)
Me.gbEmail.Controls.Add(Me.Label7)
Me.gbEmail.Controls.Add(Me.txtMail_from)
Me.gbEmail.Controls.Add(Me.Label4)
Me.gbEmail.Dock = System.Windows.Forms.DockStyle.Fill
Me.gbEmail.Enabled = False
Me.gbEmail.Location = New System.Drawing.Point(3, 83)
Me.gbEmail.Name = "gbEmail"
Me.gbEmail.Size = New System.Drawing.Size(708, 401)
Me.gbEmail.TabIndex = 1
Me.gbEmail.TabStop = False
Me.gbEmail.Text = "E-Mail Konfiguration"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(6, 237)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(503, 13)
Me.Label16.TabIndex = 16
Me.Label16.Text = "Standard Einleitungstext: (HTML fähig: <br> = Zeilenwechsel;<b>= Fett Formatiert;" &
"</b>= Ende)"
'
'txtBody
'
Me.txtBody.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIMailBody", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtBody.Location = New System.Drawing.Point(9, 253)
Me.txtBody.Multiline = True
Me.txtBody.Name = "txtBody"
Me.txtBody.Size = New System.Drawing.Size(699, 64)
Me.txtBody.TabIndex = 15
Me.txtBody.Text = Global.ToolCollection.My.MySettings.Default.vDIMailBody
'
'btntestmail
'
Me.btntestmail.Image = Global.ToolCollection.My.Resources.Resources.mail_write
Me.btntestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btntestmail.Location = New System.Drawing.Point(9, 323)
Me.btntestmail.Name = "btntestmail"
Me.btntestmail.Size = New System.Drawing.Size(96, 37)
Me.btntestmail.TabIndex = 12
Me.btntestmail.Text = "Test-Mail"
Me.btntestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btntestmail.UseVisualStyleBackColor = True
'
'txtEmpfaenger
'
Me.txtEmpfaenger.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIMailEmpf", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtEmpfaenger.Location = New System.Drawing.Point(9, 211)
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.Size = New System.Drawing.Size(699, 22)
Me.txtEmpfaenger.TabIndex = 11
Me.txtEmpfaenger.Text = Global.ToolCollection.My.MySettings.Default.vDIMailEmpf
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(6, 195)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(298, 13)
Me.Label13.TabIndex = 10
Me.Label13.Text = "Empfänger: (Mehrere Empfänger bitte durch "";"" trennen )"
'
'txtBetreff
'
Me.txtBetreff.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIMailBetreff", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtBetreff.Location = New System.Drawing.Point(9, 166)
Me.txtBetreff.Name = "txtBetreff"
Me.txtBetreff.Size = New System.Drawing.Size(344, 22)
Me.txtBetreff.TabIndex = 9
Me.txtBetreff.Text = Global.ToolCollection.My.MySettings.Default.vDIMailBetreff
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(6, 150)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(238, 13)
Me.Label12.TabIndex = 8
Me.Label12.Text = "Betreff: (Text für den Betreff der Fehler-Email)"
'
'txtPasswort
'
Me.txtPasswort.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vMailPW", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtPasswort.Location = New System.Drawing.Point(364, 120)
Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.Size = New System.Drawing.Size(189, 22)
Me.txtPasswort.TabIndex = 7
Me.txtPasswort.Text = Global.ToolCollection.My.MySettings.Default.vMailPW
Me.txtPasswort.UseSystemPasswordChar = True
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(361, 104)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(86, 13)
Me.Label11.TabIndex = 6
Me.Label11.Text = "User-Passwort: "
'
'txtUser
'
Me.txtUser.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vMailUser", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtUser.Location = New System.Drawing.Point(364, 78)
Me.txtUser.Name = "txtUser"
Me.txtUser.Size = New System.Drawing.Size(344, 22)
Me.txtUser.TabIndex = 5
Me.txtUser.Text = Global.ToolCollection.My.MySettings.Default.vMailUser
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(361, 62)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(133, 13)
Me.Label8.TabIndex = 4
Me.Label8.Text = "User: (Authentifizierung)"
'
'txtSMTP
'
Me.txtSMTP.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vSMTP", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtSMTP.Location = New System.Drawing.Point(9, 78)
Me.txtSMTP.Name = "txtSMTP"
Me.txtSMTP.Size = New System.Drawing.Size(344, 22)
Me.txtSMTP.TabIndex = 3
Me.txtSMTP.Text = Global.ToolCollection.My.MySettings.Default.vSMTP
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(6, 62)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(138, 13)
Me.Label7.TabIndex = 2
Me.Label7.Text = "SMTP-Server: (Mail-Server)"
'
'txtMail_from
'
Me.txtMail_from.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIMailfrom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtMail_from.Location = New System.Drawing.Point(9, 34)
Me.txtMail_from.Name = "txtMail_from"
Me.txtMail_from.Size = New System.Drawing.Size(344, 22)
Me.txtMail_from.TabIndex = 1
Me.txtMail_from.Text = Global.ToolCollection.My.MySettings.Default.vDIMailFrom
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(6, 18)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(139, 13)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Absender: (Email-Adresse)"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Label3)
Me.GroupBox3.Controls.Add(Me.txtAusschluss)
Me.GroupBox3.Controls.Add(Me.chkbEmail)
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(708, 80)
Me.GroupBox3.TabIndex = 0
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Allgemeine Einstellungen:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(6, 40)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(431, 13)
Me.Label3.TabIndex = 8
Me.Label3.Text = "Dateien ausschließen die folgende Zeichen in Namen enthalten (Trennen mit ""/""):"
'
'txtAusschluss
'
Me.txtAusschluss.BackColor = System.Drawing.SystemColors.Window
Me.txtAusschluss.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIAusschluss", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtAusschluss.Location = New System.Drawing.Point(9, 58)
Me.txtAusschluss.Name = "txtAusschluss"
Me.txtAusschluss.Size = New System.Drawing.Size(687, 22)
Me.txtAusschluss.TabIndex = 7
Me.txtAusschluss.Text = Global.ToolCollection.My.MySettings.Default.vDIAusschluss
'
'chkbEmail
'
Me.chkbEmail.AutoSize = True
Me.chkbEmail.Checked = Global.ToolCollection.My.MySettings.Default.vDIMailSenden
Me.chkbEmail.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.ToolCollection.My.MySettings.Default, "vDIMailSenden", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.chkbEmail.Location = New System.Drawing.Point(9, 21)
Me.chkbEmail.Name = "chkbEmail"
Me.chkbEmail.Size = New System.Drawing.Size(146, 17)
Me.chkbEmail.TabIndex = 0
Me.chkbEmail.Text = "Fehler E-Mail aktivieren"
Me.chkbEmail.UseVisualStyleBackColor = True
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
@ -691,11 +454,6 @@ Partial Class frmDIHauptseite
CType(Me.numIntervallDurchlauf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBTC_DI_REGEX_MATCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
Me.tpKonfiguration.ResumeLayout(False)
Me.gbEmail.ResumeLayout(False)
Me.gbEmail.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.ResumeLayout(False)
End Sub
@ -728,31 +486,11 @@ Partial Class frmDIHauptseite
Friend WithEvents tvLog As System.Windows.Forms.TreeView
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents tpKonfiguration As System.Windows.Forms.TabPage
Friend WithEvents gbEmail As System.Windows.Forms.GroupBox
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents txtBody As System.Windows.Forms.TextBox
Friend WithEvents btntestmail As System.Windows.Forms.Button
Friend WithEvents txtEmpfaenger As System.Windows.Forms.TextBox
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents txtBetreff As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtPasswort As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txtUser As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtSMTP As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtMail_from As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents chkbEmail As System.Windows.Forms.CheckBox
Friend WithEvents rbAutomatisch As System.Windows.Forms.RadioButton
Friend WithEvents rbManuell As System.Windows.Forms.RadioButton
Friend WithEvents lblLetzter_Durchlauf As System.Windows.Forms.Label
Friend WithEvents lblmanuell_letzterDurchlauf As System.Windows.Forms.Label
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtAusschluss As System.Windows.Forms.TextBox
Friend WithEvents MyDataset As ToolCollection.MyDataset
Friend WithEvents TableAdapterManager As ToolCollection.MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents TBTC_DI_REGEX_MATCHBindingSource As BindingSource

45
ToolCollection/frmDIHauptseite.vb
View File

@ -14,7 +14,6 @@ Public Class frmDIHauptseite
Private Shared _Instance As frmDIHauptseite = Nothing
Private _running As Boolean = False
Dim In_Use As Boolean
Private email As New ClassDI_Email
Public Shared _windream As ClassWindream_allgemein
Public Shared _Link2NavDokumentart, _Link2NavIndexwert As String
Private Shared _Logger As DigitalData.Modules.Logging.Logger
@ -723,17 +722,15 @@ Public Class frmDIHauptseite
'DAS Windream-Laufwerk ist nicht verfügbar!
CriticalErrorInBackgroundWorker = True
Import_Abbrechen()
If My.Settings.vDIMailSenden = True Then
email.Send_EMail("ESKALATIONSTUFE 1: Schwerwiegender Fehler in Dateiimporter windream <br>ERROR: " & Err.Description & "<br> DAS WINDREAM-LAUFWERK oder der Netzwerkname IST NICHT VERFÜGBAR!<br>" &
"Der Importvorgang wurde abgebrochen!<br>Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!")
End If
EMAIL_DD.Send_EMail("ESKALATIONSTUFE 1: Schwerwiegender Fehler in Dateiimporter windream <br>ERROR: " & Err.Description & "<br> DAS WINDREAM-LAUFWERK oder der Netzwerkname IST NICHT VERFÜGBAR!<br>" &
"Der Importvorgang wurde abgebrochen!<br>Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!", "DI_WMNOTACCESSIBLE")
MsgBox("Schwerwiegender Fehler in Dateiimporter windream!" & vbNewLine & "ERROR: " & Err.Description & vbNewLine & "DAS WINDREAM-LAUFWERK IST NICHT VERFÜGBAR!" & vbNewLine &
"Der Importvorgang wurde abgebrochen!" & vbNewLine & "Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!")
Exit Sub
Else
If My.Settings.vDIMailSenden = True Then
email.Send_EMail("Fehler bei Datei: " & oFilenameQuelle & " <br\>ERROR: " & Err.Description)
End If
EMAIL_DD.Send_EMail("Fehler bei Datei: " & oFilenameQuelle & " <br\>ERROR: " & Err.Description, "DI_WMFILEACCESS")
End If
@ -2370,41 +2367,11 @@ Public Class frmDIHauptseite
Me.startBackgroundTask()
End Sub
Private Sub chkbEmail_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkbEmail.CheckedChanged
If chkbEmail.Checked Then
gbEmail.Enabled = True
Else
gbEmail.Enabled = False
End If
End Sub
Private Sub btntestmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntestmail.Click
My.Settings.Save()
If Me.txtBetreff.Text = "" Or Me.txtEmpfaenger.Text = "" Or Me.txtMail_from.Text = "" Or Me.txtUser.Text = "" Or Me.txtPasswort.Text = "" Or
Me.txtSMTP.Text = "" Then
MsgBox("Bitte achten sie darauf alle Konfigurationsfelder für die Fehler-Email auszufüllen!", MsgBoxStyle.Critical, "Fehlende Eingaben:")
Else
email.Send_EMail("TEST-EMAIL", True) ' Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & My.Computer.Clock.LocalTime.ToLongTimeString
End If
End Sub
Private Sub frmDIHauptseite_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
End Sub
Private Sub TextBoxen_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
_
txtUser.LostFocus, txtSMTP.LostFocus, txtPasswort.LostFocus,
txtMail_from.LostFocus, txtEmpfaenger.LostFocus, txtBody.LostFocus, txtBetreff.LostFocus
CType(sender, TextBox).BackColor = Color.White
My.Settings.Save()
End Sub
Private Sub TextBoxen_gotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
_
txtUser.GotFocus, txtSMTP.GotFocus, txtPasswort.GotFocus,
txtMail_from.GotFocus, txtEmpfaenger.GotFocus, txtBody.GotFocus, txtBetreff.GotFocus
CType(sender, TextBox).BackColor = Color.Lime
End Sub
Private Sub tcMain_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles tcMain.SelectedIndexChanged
My.Settings.Save()

270
ToolCollection/frmNIHauptseite.Designer.vb generated
View File

@ -49,27 +49,6 @@ Partial Class frmNIHauptseite
Me.Label4 = New System.Windows.Forms.Label()
Me.numIntervall = New System.Windows.Forms.NumericUpDown()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.gbEmail = New System.Windows.Forms.GroupBox()
Me.txtPort = New System.Windows.Forms.TextBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtBody = New System.Windows.Forms.TextBox()
Me.btntestmail = New System.Windows.Forms.Button()
Me.txtEmpfaenger = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtBetreff = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtUser = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtSMTP = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtMail_from = New System.Windows.Forms.TextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.chkbEmail = New System.Windows.Forms.CheckBox()
Me.timRun = New System.Windows.Forms.Timer(Me.components)
Me.DS_More = New ToolCollection.DS_More()
Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -88,9 +67,6 @@ Partial Class frmNIHauptseite
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlInfos.SuspendLayout()
CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
Me.gbEmail.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.DS_More, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -358,8 +334,6 @@ Partial Class frmNIHauptseite
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.gbEmail)
Me.TabPage2.Controls.Add(Me.GroupBox3)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
@ -368,224 +342,6 @@ Partial Class frmNIHauptseite
Me.TabPage2.Text = "Konfigurationen"
Me.TabPage2.UseVisualStyleBackColor = True
'
'gbEmail
'
Me.gbEmail.Controls.Add(Me.txtPort)
Me.gbEmail.Controls.Add(Me.Label17)
Me.gbEmail.Controls.Add(Me.Label16)
Me.gbEmail.Controls.Add(Me.txtBody)
Me.gbEmail.Controls.Add(Me.btntestmail)
Me.gbEmail.Controls.Add(Me.txtEmpfaenger)
Me.gbEmail.Controls.Add(Me.Label13)
Me.gbEmail.Controls.Add(Me.txtBetreff)
Me.gbEmail.Controls.Add(Me.Label12)
Me.gbEmail.Controls.Add(Me.txtPasswort)
Me.gbEmail.Controls.Add(Me.Label11)
Me.gbEmail.Controls.Add(Me.txtUser)
Me.gbEmail.Controls.Add(Me.Label10)
Me.gbEmail.Controls.Add(Me.txtSMTP)
Me.gbEmail.Controls.Add(Me.Label14)
Me.gbEmail.Controls.Add(Me.txtMail_from)
Me.gbEmail.Controls.Add(Me.Label15)
Me.gbEmail.Dock = System.Windows.Forms.DockStyle.Fill
Me.gbEmail.Enabled = False
Me.gbEmail.Location = New System.Drawing.Point(3, 44)
Me.gbEmail.Name = "gbEmail"
Me.gbEmail.Size = New System.Drawing.Size(760, 474)
Me.gbEmail.TabIndex = 2
Me.gbEmail.TabStop = False
Me.gbEmail.Text = "E-Mail Konfiguration"
'
'txtPort
'
Me.txtPort.Location = New System.Drawing.Point(367, 34)
Me.txtPort.Name = "txtPort"
Me.txtPort.Size = New System.Drawing.Size(100, 22)
Me.txtPort.TabIndex = 16
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(364, 18)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(31, 13)
Me.Label17.TabIndex = 15
Me.Label17.Text = "Port:"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(6, 236)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(504, 13)
Me.Label16.TabIndex = 14
Me.Label16.Text = "Standard Einleitungstext: (HTML fähig: <br> = Zeilenwechsel;<b>= Fett Formatiert;" &
"</b>= Ende)"
'
'txtBody
'
Me.txtBody.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIMailBody", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtBody.Location = New System.Drawing.Point(9, 252)
Me.txtBody.Multiline = True
Me.txtBody.Name = "txtBody"
Me.txtBody.Size = New System.Drawing.Size(699, 64)
Me.txtBody.TabIndex = 13
Me.txtBody.Text = Global.ToolCollection.My.MySettings.Default.vNIMailBody
'
'btntestmail
'
Me.btntestmail.Image = Global.ToolCollection.My.Resources.Resources.mail_write
Me.btntestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btntestmail.Location = New System.Drawing.Point(9, 322)
Me.btntestmail.Name = "btntestmail"
Me.btntestmail.Size = New System.Drawing.Size(99, 34)
Me.btntestmail.TabIndex = 12
Me.btntestmail.Text = "Test-Mail"
Me.btntestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btntestmail.UseVisualStyleBackColor = True
'
'txtEmpfaenger
'
Me.txtEmpfaenger.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIEmailEmpf", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtEmpfaenger.Location = New System.Drawing.Point(9, 211)
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.Size = New System.Drawing.Size(699, 22)
Me.txtEmpfaenger.TabIndex = 11
Me.txtEmpfaenger.Text = Global.ToolCollection.My.MySettings.Default.vNIEmailEmpf
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(6, 195)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(298, 13)
Me.Label13.TabIndex = 10
Me.Label13.Text = "Empfänger: (Mehrere Empfänger bitte durch "";"" trennen )"
'
'txtBetreff
'
Me.txtBetreff.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIMailBetreff", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtBetreff.Location = New System.Drawing.Point(9, 166)
Me.txtBetreff.Name = "txtBetreff"
Me.txtBetreff.Size = New System.Drawing.Size(344, 22)
Me.txtBetreff.TabIndex = 9
Me.txtBetreff.Text = Global.ToolCollection.My.MySettings.Default.vNIMailBetreff
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(6, 150)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(237, 13)
Me.Label12.TabIndex = 8
Me.Label12.Text = "Betreff: (Text für den Betreff der Fehler-Email)"
'
'txtPasswort
'
Me.txtPasswort.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vMailPW", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtPasswort.Location = New System.Drawing.Point(364, 120)
Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.Size = New System.Drawing.Size(219, 22)
Me.txtPasswort.TabIndex = 7
Me.txtPasswort.Text = Global.ToolCollection.My.MySettings.Default.vMailPW
Me.txtPasswort.UseSystemPasswordChar = True
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(361, 104)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(86, 13)
Me.Label11.TabIndex = 6
Me.Label11.Text = "User-Passwort: "
'
'txtUser
'
Me.txtUser.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vMailUser", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtUser.Location = New System.Drawing.Point(364, 78)
Me.txtUser.Name = "txtUser"
Me.txtUser.Size = New System.Drawing.Size(344, 22)
Me.txtUser.TabIndex = 5
Me.txtUser.Text = Global.ToolCollection.My.MySettings.Default.vMailUser
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(361, 62)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(133, 13)
Me.Label10.TabIndex = 4
Me.Label10.Text = "User: (Authentifizierung)"
'
'txtSMTP
'
Me.txtSMTP.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vSMTP", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtSMTP.Location = New System.Drawing.Point(9, 78)
Me.txtSMTP.Name = "txtSMTP"
Me.txtSMTP.Size = New System.Drawing.Size(344, 22)
Me.txtSMTP.TabIndex = 3
Me.txtSMTP.Text = Global.ToolCollection.My.MySettings.Default.vSMTP
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(6, 62)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(139, 13)
Me.Label14.TabIndex = 2
Me.Label14.Text = "SMTP-Server: (Mail-Server)"
'
'txtMail_from
'
Me.txtMail_from.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIMailfrom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtMail_from.Location = New System.Drawing.Point(9, 34)
Me.txtMail_from.Name = "txtMail_from"
Me.txtMail_from.Size = New System.Drawing.Size(344, 22)
Me.txtMail_from.TabIndex = 1
Me.txtMail_from.Text = Global.ToolCollection.My.MySettings.Default.vNIMailfrom
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(6, 18)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(139, 13)
Me.Label15.TabIndex = 0
Me.Label15.Text = "Absender: (Email-Adresse)"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Button1)
Me.GroupBox3.Controls.Add(Me.chkbEmail)
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(760, 41)
Me.GroupBox3.TabIndex = 1
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Allgemeine Einstellungen:"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(535, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'chkbEmail
'
Me.chkbEmail.AutoSize = True
Me.chkbEmail.Checked = Global.ToolCollection.My.MySettings.Default.vNIMailsenden
Me.chkbEmail.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.ToolCollection.My.MySettings.Default, "vNIMailsenden", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.chkbEmail.Location = New System.Drawing.Point(6, 20)
Me.chkbEmail.Name = "chkbEmail"
Me.chkbEmail.Size = New System.Drawing.Size(146, 17)
Me.chkbEmail.TabIndex = 0
Me.chkbEmail.Text = "Fehler E-Mail aktivieren"
Me.chkbEmail.UseVisualStyleBackColor = True
'
'timRun
'
Me.timRun.Interval = 60
@ -670,11 +426,6 @@ Partial Class frmNIHauptseite
Me.pnlInfos.ResumeLayout(False)
Me.pnlInfos.PerformLayout()
CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.gbEmail.ResumeLayout(False)
Me.gbEmail.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
CType(Me.DS_More, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -703,24 +454,6 @@ Partial Class frmNIHauptseite
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents numIntervall As System.Windows.Forms.NumericUpDown
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents gbEmail As System.Windows.Forms.GroupBox
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents txtBody As System.Windows.Forms.TextBox
Friend WithEvents btntestmail As System.Windows.Forms.Button
Friend WithEvents txtEmpfaenger As System.Windows.Forms.TextBox
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents txtBetreff As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtPasswort As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txtUser As System.Windows.Forms.TextBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtSMTP As System.Windows.Forms.TextBox
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents txtMail_from As System.Windows.Forms.TextBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents chkbEmail As System.Windows.Forms.CheckBox
Friend WithEvents timRun As System.Windows.Forms.Timer
Friend WithEvents MyDataset As ToolCollection.MyDataset
Friend WithEvents lblDatei As System.Windows.Forms.Label
@ -732,9 +465,6 @@ Partial Class frmNIHauptseite
Friend WithEvents TableAdapterManager As ToolCollection.DS_MoreTableAdapters.TableAdapterManager
Friend WithEvents TBMO_RE_HISTORYBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBMO_RE_HISTORYTableAdapter As ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter
Friend WithEvents txtPort As System.Windows.Forms.TextBox
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents tslblStatus As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents TimerRefresh As System.Windows.Forms.Timer

89
ToolCollection/frmNIHauptseite.vb
View File

@ -18,7 +18,6 @@ Public Class frmNIHauptseite
Private bwDatei As New BackgroundWorker
Private bwsearch As New BackgroundWorker
Private email As New ClassNIEmail
Private database As ClassNIDatenbankzugriff
Private xml As New ClassxmlZugriff
@ -64,9 +63,11 @@ Public Class frmNIHauptseite
' 3a. Windream instanziieren
_windreamNI = New ClassNIWindream(_MyLogger)
database = New ClassNIDatenbankzugriff(_MyLogger)
' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
If _windreamNI.Init() = False Then
email.Send_EMail("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.")
EMAIL_DD.Send_EMail("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.", "windreamNI.Init()")
End If
'ClassMoveRenameLogger.Init("", "MoveRename_", True)
@ -338,9 +339,9 @@ Public Class frmNIHauptseite
If clsHelper.file_exists(Me.aktivesProfil.WindreamSuche, "NI") = False AndAlso Me.aktivesProfil.WindreamSuche.ToLower.Contains("select") = False Then
_Logger.Warn("Windream Suche für Profil: " & profil.Profilname & " konnte nicht ausgeführt werden! Die Datei " & Me.aktivesProfil.WindreamSuche & " existiert nicht!")
' wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Fehler bei Nachindexierung: <br> >> Profil: " & Me.aktivesProfil.Profilname & "<br> >> die windream-Suche : " & Me.aktivesProfil.WindreamSuche & " konnte nicht gefunden werden!" &
"<br> >> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!")
If My.Settings.vMailsenden = True Then
EMAIL_DD.Send_EMail("Fehler bei Nachindexierung: <br> >> Profil: " & Me.aktivesProfil.Profilname & "<br> >> Die windream-Suche : " & Me.aktivesProfil.WindreamSuche & " konnte nicht gefunden werden!" &
"<br> >> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!", "WMissing")
End If
Abbruch_NI("Windream-Suche konnte nicht gefunden werden!", True, False)
clsHelper.Add_Application_log("Nachindexierung wurde abgebrochen, da eine Windream-Suche (" & Me.aktivesProfil.WindreamSuche & ") nicht gefunden werden konnte")
@ -472,7 +473,7 @@ Public Class frmNIHauptseite
Else
Try
Dim oDTResults As DataTable
oDTResults = database.Return_Datatable(aktivesProfil.WindreamSuche)
oDTResults = DB_ECM.GetDatatable(aktivesProfil.WindreamSuche)
If Not IsNothing(oDTResults) Then
If oDTResults.Rows.Count > 0 Then
@ -547,6 +548,8 @@ Public Class frmNIHauptseite
End If
Else
_Logger.Warn($"ATTENTION: The datatable for WMResults is nothing")
_Logger.Warn($"SQL WMResults: {aktivesProfil.WindreamSuche}")
End If
Catch ex As Exception
_Logger.Warn($"UNEXPECTED ERROR IN GetSearchDocuments via SQL: {ex.Message}")
@ -690,7 +693,7 @@ Public Class frmNIHauptseite
IsWorking_Hour = True
End If
If _windreamNI.Init() = False Then
email.Send_EMail("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.")
EMAIL_DD.Send_EMail("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.", "_windreamNI.Init(693)")
clsHelper.Add_Application_log("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert?")
Exit Sub
@ -795,8 +798,8 @@ Public Class frmNIHauptseite
Catch ex As Exception
errormsg = " FEHLER bei Check_Desk_Index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message
_Logger.Warn(errormsg)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Beim Indexieren der Datei " & dokument.aName.ToString & " ist ein Fehler aufgetreten Check_Desk_Index (GetVariableValue): " & ex.Message)
If My.Settings.vMailsenden = True Then
EMAIL_DD.Send_EMail("Beim Indexieren der Datei " & dokument.aName.ToString & " ist ein Fehler aufgetreten Check_Desk_Index (GetVariableValue): " & ex.Message, "Check_Desk_Index")
End If
' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
Return True
@ -1038,8 +1041,8 @@ Public Class frmNIHauptseite
result &= vbNewLine & " - Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "'"
oUnexpectedError = True
fehlermsg &= vbNewLine & "Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "' - Fehler: " & ex.Message
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Beim Indexieren der Datei " & dokument.aName.ToString & " ist ein Fehler aufgetreten (GetVariableValue bei Auslesen des einschränkenden Wertes): " & ex.Message)
If My.Settings.vMailsenden = True Then
EMAIL_DD.Send_EMail(fehlermsg, "GettingWMIndexInfo")
End If
End Try
@ -1466,9 +1469,6 @@ Public Class frmNIHauptseite
oVBScriptCommand = oVBScriptCommand.Replace(element.Value, IndexwertAusWindream.ToString)
End If
'database.ExecuteonOracleDb(Sqlcommand, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password)
'MsgBox(Me.aktivesDokument.aPath & vbNewLine & vbNewLine & Me.aktivesDokument.aName)
Next
_Logger.Debug("VBSCRIPTCOMMAND after replacing variables [" & oVBScriptCommand & "]")
@ -1640,7 +1640,6 @@ Public Class frmNIHauptseite
'Wenn Speicherort gespeichert werden soll wird Platzhalter ersetzt!
Sqlcommand = Sqlcommand.Replace("vSpeicherort", "'" & My.Settings.vWLaufwerk & ":" & Me.aktivesDokument.aPath & "'")
_Logger.Debug("SQL-Command: " & Sqlcommand)
'database.ExecuteonOracleDb(Sqlcommand, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password)
'MsgBox(Me.aktivesDokument.aPath & vbNewLine & vbNewLine & Me.aktivesDokument.aName)
Next
If Me.aktivesProfil.DbArt = "Oracle" Then
@ -1756,8 +1755,8 @@ Public Class frmNIHauptseite
If unvollstaendig = False And Me.aktivesProfil.Ni_Art.ToLower <> "fulltext" Then
_Logger.Warn("Fehler bei IndexiereVerarbeiteDokument für die Datei: " & dokument.aName.ToString)
_Logger.Warn("Fehlermeldung: " & fehlermsg)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Fehler in IndexiereVerarbeiteDokument für die Datei: " & dokument.aName.ToString & "<br> Profilname: " & aktivesProfil.Profilname & " <br> Fehlermeldung: " & fehlermsg)
If My.Settings.vMailsenden = True Then
EMAIL_DD.Send_EMail("Fehler in IndexiereVerarbeiteDokument für die Datei: " & dokument.aName.ToString & "<br> Profilname: " & aktivesProfil.Profilname & " <br> Fehlermeldung: " & fehlermsg, "IndexiereVerarbeiteDokument1760")
End If
End If
End If
@ -1833,9 +1832,8 @@ Public Class frmNIHauptseite
End If
Dim err As Boolean = CrFolderForIndex(docpath)
If err = True Then
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Fehler bei Create Folder for Index bei der Datei: '" & dokument.aName.ToString & "'<br> Fehler: Die Datei wurde indexiert aber der Ordner konnte nicht erstellt werden!")
End If
EMAIL_DD.Send_EMail("Fehler bei Create Folder for Index bei der Datei: '" & dokument.aName.ToString & "'<br> Fehler: Die Datei wurde indexiert aber der Ordner konnte nicht erstellt werden!", "CrFolderForIndex")
End If
Else
aktivesProfil.CrFolder_Created_Folder = ""
@ -1872,9 +1870,7 @@ Public Class frmNIHauptseite
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn($"oResultNachindexierung so far: {oResultNachindexierung.ToString}")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Schwerwiegender Fehler bei IndexiereVerarbeiteDokument - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message)
End If
EMAIL_DD.Send_EMail("Schwerwiegender Fehler bei IndexiereVerarbeiteDokument - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message, "IndexiereVerarbeiteDokument1874")
End Try
End Sub
Private Function FolderForIndex(oDynamicFolder As String, myWMDocument As WMObject) As String
@ -2553,9 +2549,8 @@ Public Class frmNIHauptseite
_Logger.Error(ex)
End If
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Schwerwiegender Fehler bei SetErrorMeldung - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message)
End If
EMAIL_DD.Send_EMail("Schwerwiegender Fehler bei SetErrorMeldung - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message, "SetErrorMeldung")
End Try
End Sub
Private Function IsNotEmpty(ByVal aValue As Object)
@ -2678,40 +2673,16 @@ Public Class frmNIHauptseite
End Try
End Function
Private Sub chkbEmail_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkbEmail.CheckedChanged
Try
If chkbEmail.Checked = True Then
Me.gbEmail.Enabled = True
Else
Me.gbEmail.Enabled = False
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei chkbEmail_CheckedChanged:")
End Try
End Sub
Private Sub btntestmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntestmail.Click
Try
My.Settings.Save()
If Me.txtBetreff.Text = "" Or Me.txtEmpfaenger.Text = "" Or Me.txtMail_from.Text = "" Or Me.txtUser.Text = "" Or Me.txtPasswort.Text = "" Or
Me.txtSMTP.Text = "" Then
MsgBox("Bitte achten sie darauf alle Konfigurationsfelder für die Fehler-Email auszufüllen!", MsgBoxStyle.Critical, "Fehlende Eingaben:")
Else
email.Send_EMail("TEST-EMAIL", True) ' Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & My.Computer.Clock.LocalTime.ToLongTimeString
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei btntestmail.Click:")
End Try
End Sub
Private Sub tcMain_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tcmain.SelectedIndexChanged
Select Case tcmain.SelectedIndex
Case 0
My.Settings.vemailPort = Me.txtPort.Text
My.Settings.Save()
Case 1
Me.txtPort.Text = My.Settings.vemailPort
End Select
End Sub
Sub Start_NachindexierungThreads()
@ -2865,20 +2836,6 @@ Public Class frmNIHauptseite
manuallyRun = False
End Sub
Private Sub TextBoxen_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
_
txtUser.LostFocus, txtSMTP.LostFocus, txtPasswort.LostFocus,
txtMail_from.LostFocus, txtEmpfaenger.LostFocus, txtBody.LostFocus, txtBetreff.LostFocus
CType(sender, TextBox).BackColor = Color.White
My.Settings.Save()
End Sub
Private Sub TextBoxen_gotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
_
txtUser.GotFocus, txtSMTP.GotFocus, txtPasswort.GotFocus,
txtMail_from.GotFocus, txtEmpfaenger.GotFocus, txtBody.GotFocus, txtBetreff.GotFocus
CType(sender, TextBox).BackColor = Color.Lime
End Sub
'Private Function MRGetValuesFromFile(ByVal vDatei As String, ByVal vIndexnameDA As String, ByVal vIndexnameKD As String, ByVal vindexnameDesIndex As String)
' Try
' _MRKundenKennzeichen = ""

35
ToolCollection/frmStart.vb
View File

@ -3,6 +3,7 @@ Imports System.Reflection
Imports System.Globalization
Imports DigitalData.Modules.Logging
Imports System.IO
Imports DigitalData.Modules.Database
Public Class frmStart
Private _MyLogger As LogConfig
@ -44,6 +45,7 @@ Public Class frmStart
End If
End Sub
Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, My.Application.Info.CompanyName,
My.Application.Info.ProductName)
_Logger = _MyLogger.GetLogger()
@ -67,6 +69,37 @@ Public Class frmStart
' alle vorhandenen Module laden
Me.LoadAllModules()
End If
EMAIL_DD = New ClassEmail(_MyLogger)
Catch ex As Exception
_Logger.Error(ex)
End Try
Try
If My.Settings.DDECMConString <> String.Empty Then
Dim oSPLIT As String()
oSPLIT = My.Settings.DDECMConString.Split(";")
Dim oServer As String
Dim oDB As String
Dim oUSer As String
Dim oPW As String
For Each oSplitPart As String In oSPLIT
If oSplitPart.Contains("Data Source") Then
oServer = oSplitPart.Replace("Data Source=", "")
ElseIf oSplitPart.Contains("Initial Catalog") Then
oDB = oSplitPart.Replace("Initial Catalog=", "")
ElseIf oSplitPart.Contains("User ID") Then
oUSer = oSplitPart.Replace("User ID=", "")
ElseIf oSplitPart.Contains("Password") Then
oPW = oSplitPart.Replace("Password=", "")
End If
Next
DB_ECM = New MSSQLServer(_MyLogger, oServer, oDB, oUSer, oPW)
End If
Catch ex As Exception
_Logger.Error(ex)
End Try
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
@ -375,7 +408,7 @@ Public Class frmStart
Private Sub CriticalEmailTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CriticalEmailTestToolStripMenuItem.Click
Cursor = Cursors.WaitCursor
ClassNIEmail.Send_Urgent("Dies ist eine Test-Email!", True)
EMAIL_DD.Send_EMail("Dies ist eine Test-Email!", "888888888")
Cursor = Cursors.Default
End Sub