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

Enable Tls1.1 and Tls1.2

Browse Source
This commit is contained in:
Jonathan Jenne 2023-10-05 15:12:00 +02:00
parent 78581e382b
commit 3801714e0a
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
App/EmailProfiler.Common/clsWorker.vb
View File

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

5
App/EmailProfiler.Form/frmMain.vb
View File

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