From 3801714e0ae9d5a57e6fa245e3bbf2884a53e514 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 5 Oct 2023 15:12:00 +0200 Subject: [PATCH] Enable Tls1.1 and Tls1.2 --- App/EmailProfiler.Common/clsWorker.vb | 6 ++++-- App/EmailProfiler.Form/frmMain.vb | 5 ++++- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/App/EmailProfiler.Common/clsWorker.vb b/App/EmailProfiler.Common/clsWorker.vb index b3c23d4..53c87a6 100644 --- a/App/EmailProfiler.Common/clsWorker.vb +++ b/App/EmailProfiler.Common/clsWorker.vb @@ -268,8 +268,10 @@ Public Class clsWorker Dim oTenantId As String = pArchiveFolder oSession = Fetcher.ConnectToO365(pUsername, oClientId, oTenantId, oClientSecret) Else - - oSession = Fetcher.Connect(pServer, pPort, pUsername, pPassword, pAuthType) + oSession = Fetcher.Connect(pServer, pPort, pUsername, pPassword, pAuthType, New MailSession.MailSessionOptions() With { + .EnableTls1_1 = True, + .EnableTls1_2 = True + }) End If diff --git a/App/EmailProfiler.Form/frmMain.vb b/App/EmailProfiler.Form/frmMain.vb index f22caac..5df752c 100644 --- a/App/EmailProfiler.Form/frmMain.vb +++ b/App/EmailProfiler.Form/frmMain.vb @@ -764,7 +764,10 @@ Public Class frmMain Dim oTenantId = oArchiveFolder oSession = oFetcher.ConnectToO365(oUser, oClientId, oTenantId, oClientSecret) Else - oSession = oFetcher.Connect(oServer, oPortIn, oUser, PWPlain, oAuthType) + oSession = oFetcher.Connect(oServer, oPortIn, oUser, PWPlain, oAuthType, New MailSession.MailSessionOptions() With { + .EnableTls1_1 = True, + .EnableTls1_2 = True + }) End If If oSession.Connected = True Then