From 2a76d515cb204adf8bb8b5825ea24a1a62482088 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 11 Oct 2023 15:05:08 +0200 Subject: [PATCH] fix session --- app/ClassWMResulthandler/clsJob_Work.vb | 3 ++- app/ClassWMResulthandler/clsProfil.vb | 10 ++++++---- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/app/ClassWMResulthandler/clsJob_Work.vb b/app/ClassWMResulthandler/clsJob_Work.vb index de1ce24..4847120 100644 --- a/app/ClassWMResulthandler/clsJob_Work.vb +++ b/app/ClassWMResulthandler/clsJob_Work.vb @@ -57,7 +57,8 @@ Public Class clsJob_Work If Attachment_Filename <> String.Empty Then oAttMt.Add(Attachment_Filename) 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!") If _mail.SendMail(oSendto, oMAILFROM, Email_subject, Email_Body, Now, oAttMt, 0) = True Then Return True diff --git a/app/ClassWMResulthandler/clsProfil.vb b/app/ClassWMResulthandler/clsProfil.vb index 998dabf..93acea4 100644 --- a/app/ClassWMResulthandler/clsProfil.vb +++ b/app/ClassWMResulthandler/clsProfil.vb @@ -272,7 +272,8 @@ Public Class clsProfil End If Logger.Debug("Now _email and Messaging...") 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!") Else Logger.Warn($"{oFileRunNo} Email_ConnectToServer was not successfull!") @@ -482,7 +483,7 @@ Public Class clsProfil Try If Not IsNothing(_email) Then If _email.Connected2Server = True Then - _email.DisconnectFromServer() + _email.Disconnect() End If End If @@ -647,14 +648,15 @@ Public Class clsProfil clsCURRENT.TEMP_FILES.Add(clsCURRENT.CONCATTED_FILE) 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 FileJobSuccessful = True Else Logger.Warn("Email_SendMail2 was not successfull!") FileJobSuccessful = False End If - _email.DisconnectFromServer() + _email.Disconnect() Else Logger.Warn($"Email_ConnectToServer2 was not successfull!") FileJobSuccessful = False