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

fix session

Browse Source
This commit is contained in:
Jonathan Jenne 2023-10-11 15:05:08 +02:00
parent 52c3939ad6
commit 2a76d515cb
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/ClassWMResulthandler/clsJob_Work.vb
View File

@ -57,7 +57,8 @@ 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.Connect(oMAILSMTP, oMAIL_PORT, oMAIL_USER, oPWPlain, oMAIL_AUTH_TYPE) = True Then Dim oSession = _mail.Connect(oMAILSMTP, oMAIL_PORT, oMAIL_USER, oPWPlain, oMAIL_AUTH_TYPE)
If oSession.Connected = 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

10
app/ClassWMResulthandler/clsProfil.vb
View File

@ -272,7 +272,8 @@ Public Class clsProfil
End If End If
Logger.Debug("Now _email and Messaging...") 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.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then Dim oSession = _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE)
If oSession.Connected = 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!")
@ -482,7 +483,7 @@ Public Class clsProfil
Try Try
If Not IsNothing(_email) Then If Not IsNothing(_email) Then
If _email.Connected2Server = True Then If _email.Connected2Server = True Then
_email.DisconnectFromServer() _email.Disconnect()
End If End If
End If End If
@ -647,14 +648,15 @@ Public Class clsProfil
clsCURRENT.TEMP_FILES.Add(clsCURRENT.CONCATTED_FILE) clsCURRENT.TEMP_FILES.Add(clsCURRENT.CONCATTED_FILE)
End If End If
If _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then Dim oSession = _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE)
If oSession.Connected = 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
Logger.Warn("Email_SendMail2 was not successfull!") Logger.Warn("Email_SendMail2 was not successfull!")
FileJobSuccessful = False FileJobSuccessful = False
End If End If
_email.DisconnectFromServer() _email.Disconnect()
Else Else
Logger.Warn($"Email_ConnectToServer2 was not successfull!") Logger.Warn($"Email_ConnectToServer2 was not successfull!")
FileJobSuccessful = False FileJobSuccessful = False