Enable Tls1.1 and Tls1.2

2023-10-05 15:12:00 +02:00
parent 78581e382b
commit 3801714e0a
2 changed files with 8 additions and 3 deletions
--- 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