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

MS Update MEssaging

Browse Source
This commit is contained in:
SchreiberM 2023-10-11 14:48:29 +02:00
parent 8fcb422592
commit e2389321ce
6 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/windream-Result-Handler/FileContentIndex/2767459c-a475-4fc6-9b9d-b6007e244b23.vsidx
View File

Binary file not shown.

BIN
app/.vs/windream-Result-Handler/FileContentIndex/597288ca-94fa-4b38-a1c6-bcf6c43000e1.vsidx
View File

Binary file not shown.

BIN
app/.vs/windream-Result-Handler/FileContentIndex/66905edb-4aee-4e16-8134-e9bd9ddd3a69.vsidx
View File

Binary file not shown.

2
app/ClassWMResulthandler/clsDateiverarbeitung.vb
View File

@ -703,7 +703,7 @@ Public Class clsDateiverarbeitung
Logger.Debug("indexvalue read is: '" & wdIndexwert & "'") Logger.Debug("indexvalue read is: '" & wdIndexwert & "'")
Try Try
Dim oConvertDT As DateTime Dim oConvertDT As DateTime
If DateTime.TryParse(wdIndexwert, oConvertDT) Then If DateTime.TryParse(wdIndexwert.ToString, oConvertDT) Then
Logger.Debug("indexvalue is datetime - converting to date") Logger.Debug("indexvalue is datetime - converting to date")
Dim myDate As Date = wdIndexwert Dim myDate As Date = wdIndexwert
wdIndexwert = Format(myDate, "yyyy-MM-dd") wdIndexwert = Format(myDate, "yyyy-MM-dd")

3
app/ClassWMResulthandler/clsJob_Work.vb
View File

@ -1,5 +1,6 @@
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Messaging Imports DigitalData.Modules.Messaging
Imports DigitalData.Modules.Messaging.Mail
Public Class clsJob_Work Public Class clsJob_Work
Dim Logger As Logger Dim Logger As Logger
@ -56,7 +57,7 @@ Public Class clsJob_Work
If Attachment_Filename <> String.Empty Then If Attachment_Filename <> String.Empty Then
oAttMt.Add(Attachment_Filename) oAttMt.Add(Attachment_Filename)
End If End If
If _mail.ConnectToServer(oMAILSMTP, oMAIL_PORT, oMAIL_USER, oPWPlain, oMAIL_AUTH_TYPE) = True Then If _mail.Connect(oMAILSMTP, oMAIL_PORT, oMAIL_USER, oPWPlain, oMAIL_AUTH_TYPE) = True Then
Logger.Info($"MAIL: Connection to {oMAILSMTP} successfull!") Logger.Info($"MAIL: Connection to {oMAILSMTP} successfull!")
If _mail.SendMail(oSendto, oMAILFROM, Email_subject, Email_Body, Now, oAttMt, 0) = True Then If _mail.SendMail(oSendto, oMAILFROM, Email_subject, Email_Body, Now, oAttMt, 0) = True Then
Return True Return True

8
app/ClassWMResulthandler/clsProfil.vb
View File

@ -4,6 +4,7 @@ Imports System.Text
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Messaging Imports DigitalData.Modules.Messaging
Imports DigitalData.Modules.Messaging.Mail
Public Class clsProfil Public Class clsProfil
Inherits clsCURRENT Inherits clsCURRENT
@ -256,7 +257,7 @@ Public Class clsProfil
Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body) Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
oEmail_Betreff = $"{oEmail_Betreff} [eMail {oCountDocs} von {oGesamtFiles}]" oEmail_Betreff = $"{oEmail_Betreff} [eMail {oCountDocs} von {oGesamtFiles}]"
If oAttachment_FullFilename <> String.Empty Then If oAttachment_FullFilename <> String.Empty Then
Logger.Warn($"Email Attachment {oAttachment_FullFilename}") Logger.Info($"Email Attachment {oAttachment_FullFilename}")
End If End If
Dim oSendto As New List(Of String) Dim oSendto As New List(Of String)
Dim oSplit = Email_Empfänger.split(";") Dim oSplit = Email_Empfänger.split(";")
@ -269,8 +270,9 @@ Public Class clsProfil
oAttMt.Add(oAttachment_FullFilename) oAttMt.Add(oAttachment_FullFilename)
clsCURRENT.TEMP_FILES.Add(oAttachment_FullFilename) clsCURRENT.TEMP_FILES.Add(oAttachment_FullFilename)
End If End If
Logger.Debug("Now _email and Messaging...")
If Not IsNothing(_email) And _email.Connected2Server = False Then If Not IsNothing(_email) And _email.Connected2Server = False Then
If _email.ConnectToServer(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then If _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then
Logger.Info($"MAIL: Connection to {MAILSMTP} successfull!") Logger.Info($"MAIL: Connection to {MAILSMTP} successfull!")
Else Else
Logger.Warn($"{oFileRunNo} Email_ConnectToServer was not successfull!") Logger.Warn($"{oFileRunNo} Email_ConnectToServer was not successfull!")
@ -645,7 +647,7 @@ Public Class clsProfil
clsCURRENT.TEMP_FILES.Add(clsCURRENT.CONCATTED_FILE) clsCURRENT.TEMP_FILES.Add(clsCURRENT.CONCATTED_FILE)
End If End If
If _email.ConnectToServer(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then If _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then
If _email.SendMail(oSendto, MAILFROM, Email_Betreff, Email_Body, Now, oAttMt, 0) = True Then If _email.SendMail(oSendto, MAILFROM, Email_Betreff, Email_Body, Now, oAttMt, 0) = True Then
FileJobSuccessful = True FileJobSuccessful = True
Else Else