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.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