Add Initial Support for OAuth2 / O365

This commit is contained in:
Jonathan Jenne
2023-09-06 12:55:02 +02:00
parent 5f04d6a7a6
commit c43903154c
7 changed files with 350 additions and 332 deletions

View File

@@ -70,18 +70,18 @@ Partial Class frmMain
Dim GUIDLabel4 As System.Windows.Forms.Label
Dim NAMELabel As System.Windows.Forms.Label
Dim EMAIL_FROMLabel As System.Windows.Forms.Label
Dim EMAIL_SMTPLabel As System.Windows.Forms.Label
Dim EMAIL_USERLabel As System.Windows.Forms.Label
Dim PORTLabel As System.Windows.Forms.Label
Dim ADDED_WHOLabel4 As System.Windows.Forms.Label
Dim ADDED_WHENLabel4 As System.Windows.Forms.Label
Dim CHANGED_WHOLabel5 As System.Windows.Forms.Label
Dim CHANGED_WHENLabel5 As System.Windows.Forms.Label
Dim Label11 As System.Windows.Forms.Label
Dim PORT_INLabel As System.Windows.Forms.Label
Dim ARCHIVE_FOLDERLabel As System.Windows.Forms.Label
Dim AUTH_TYPELabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.EMAIL_SMTPLabel = New System.Windows.Forms.Label()
Me.EMAIL_USERLabel = New System.Windows.Forms.Label()
Me.EMAIL_PWLabel = New System.Windows.Forms.Label()
Me.ARCHIVE_FOLDERLabel = New System.Windows.Forms.Label()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblRefresh = New System.Windows.Forms.ToolStripStatusLabel()
@@ -373,16 +373,12 @@ Partial Class frmMain
GUIDLabel4 = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label()
EMAIL_FROMLabel = New System.Windows.Forms.Label()
EMAIL_SMTPLabel = New System.Windows.Forms.Label()
EMAIL_USERLabel = New System.Windows.Forms.Label()
PORTLabel = New System.Windows.Forms.Label()
ADDED_WHOLabel4 = New System.Windows.Forms.Label()
ADDED_WHENLabel4 = New System.Windows.Forms.Label()
CHANGED_WHOLabel5 = New System.Windows.Forms.Label()
CHANGED_WHENLabel5 = New System.Windows.Forms.Label()
Label11 = New System.Windows.Forms.Label()
PORT_INLabel = New System.Windows.Forms.Label()
ARCHIVE_FOLDERLabel = New System.Windows.Forms.Label()
AUTH_TYPELabel = New System.Windows.Forms.Label()
Me.StatusStrip1.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -859,21 +855,21 @@ Partial Class frmMain
'
'EMAIL_SMTPLabel
'
EMAIL_SMTPLabel.AutoSize = True
EMAIL_SMTPLabel.Location = New System.Drawing.Point(698, 68)
EMAIL_SMTPLabel.Name = "EMAIL_SMTPLabel"
EMAIL_SMTPLabel.Size = New System.Drawing.Size(43, 13)
EMAIL_SMTPLabel.TabIndex = 40
EMAIL_SMTPLabel.Text = "Server:"
Me.EMAIL_SMTPLabel.AutoSize = True
Me.EMAIL_SMTPLabel.Location = New System.Drawing.Point(698, 68)
Me.EMAIL_SMTPLabel.Name = "EMAIL_SMTPLabel"
Me.EMAIL_SMTPLabel.Size = New System.Drawing.Size(43, 13)
Me.EMAIL_SMTPLabel.TabIndex = 40
Me.EMAIL_SMTPLabel.Text = "Server:"
'
'EMAIL_USERLabel
'
EMAIL_USERLabel.AutoSize = True
EMAIL_USERLabel.Location = New System.Drawing.Point(370, 108)
EMAIL_USERLabel.Name = "EMAIL_USERLabel"
EMAIL_USERLabel.Size = New System.Drawing.Size(80, 13)
EMAIL_USERLabel.TabIndex = 42
EMAIL_USERLabel.Text = "Benutzername:"
Me.EMAIL_USERLabel.AutoSize = True
Me.EMAIL_USERLabel.Location = New System.Drawing.Point(370, 108)
Me.EMAIL_USERLabel.Name = "EMAIL_USERLabel"
Me.EMAIL_USERLabel.Size = New System.Drawing.Size(80, 13)
Me.EMAIL_USERLabel.TabIndex = 42
Me.EMAIL_USERLabel.Text = "Benutzername:"
'
'PORTLabel
'
@@ -920,14 +916,14 @@ Partial Class frmMain
CHANGED_WHENLabel5.TabIndex = 56
CHANGED_WHENLabel5.Text = "Changed when:"
'
'Label11
'EMAIL_PWLabel
'
Label11.AutoSize = True
Label11.Location = New System.Drawing.Point(735, 108)
Label11.Name = "Label11"
Label11.Size = New System.Drawing.Size(88, 13)
Label11.TabIndex = 64
Label11.Text = "Neues Passwort:"
Me.EMAIL_PWLabel.AutoSize = True
Me.EMAIL_PWLabel.Location = New System.Drawing.Point(735, 108)
Me.EMAIL_PWLabel.Name = "EMAIL_PWLabel"
Me.EMAIL_PWLabel.Size = New System.Drawing.Size(88, 13)
Me.EMAIL_PWLabel.TabIndex = 64
Me.EMAIL_PWLabel.Text = "Neues Passwort:"
'
'PORT_INLabel
'
@@ -940,12 +936,12 @@ Partial Class frmMain
'
'ARCHIVE_FOLDERLabel
'
ARCHIVE_FOLDERLabel.AutoSize = True
ARCHIVE_FOLDERLabel.Location = New System.Drawing.Point(828, 148)
ARCHIVE_FOLDERLabel.Name = "ARCHIVE_FOLDERLabel"
ARCHIVE_FOLDERLabel.Size = New System.Drawing.Size(84, 13)
ARCHIVE_FOLDERLabel.TabIndex = 76
ARCHIVE_FOLDERLabel.Text = "Archive Ordner:"
Me.ARCHIVE_FOLDERLabel.AutoSize = True
Me.ARCHIVE_FOLDERLabel.Location = New System.Drawing.Point(828, 148)
Me.ARCHIVE_FOLDERLabel.Name = "ARCHIVE_FOLDERLabel"
Me.ARCHIVE_FOLDERLabel.Size = New System.Drawing.Size(84, 13)
Me.ARCHIVE_FOLDERLabel.TabIndex = 76
Me.ARCHIVE_FOLDERLabel.Text = "Archive Ordner:"
'
'AUTH_TYPELabel
'
@@ -1338,7 +1334,7 @@ Partial Class frmMain
Me.XtraTabPage1.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPage1.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(1217, 329)
Me.XtraTabPage1.Size = New System.Drawing.Size(1219, 329)
Me.XtraTabPage1.Text = "Zugeordnete Prozesse"
'
'lblDownloadPath
@@ -1641,7 +1637,7 @@ Partial Class frmMain
Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton5
Me.BindingNavigator2.Name = "BindingNavigator2"
Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox1
Me.BindingNavigator2.Size = New System.Drawing.Size(972, 25)
Me.BindingNavigator2.Size = New System.Drawing.Size(974, 25)
Me.BindingNavigator2.TabIndex = 32
Me.BindingNavigator2.Text = "BindingNavigator2"
'
@@ -2120,7 +2116,7 @@ Partial Class frmMain
Me.XtraTabPage3.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPage3.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18)
Me.XtraTabPage3.Name = "XtraTabPage3"
Me.XtraTabPage3.Size = New System.Drawing.Size(1217, 329)
Me.XtraTabPage3.Size = New System.Drawing.Size(1219, 329)
Me.XtraTabPage3.Text = "Indexierungs Schritte"
'
'SEQUENCENumericUpDown
@@ -2236,7 +2232,7 @@ Partial Class frmMain
Me.BindingNavigator4.MovePreviousItem = Me.ToolStripButton22
Me.BindingNavigator4.Name = "BindingNavigator4"
Me.BindingNavigator4.PositionItem = Me.ToolStripTextBox3
Me.BindingNavigator4.Size = New System.Drawing.Size(972, 25)
Me.BindingNavigator4.Size = New System.Drawing.Size(974, 25)
Me.BindingNavigator4.TabIndex = 35
Me.BindingNavigator4.Text = "BindingNavigator4"
'
@@ -2472,14 +2468,14 @@ Partial Class frmMain
Me.tabEmail.Controls.Add(AUTH_TYPELabel)
Me.tabEmail.Controls.Add(Me.AUTH_TYPEComboBox)
Me.tabEmail.Controls.Add(Me.btntestImap)
Me.tabEmail.Controls.Add(ARCHIVE_FOLDERLabel)
Me.tabEmail.Controls.Add(Me.ARCHIVE_FOLDERLabel)
Me.tabEmail.Controls.Add(Me.ARCHIVE_FOLDERTextBox)
Me.tabEmail.Controls.Add(PORT_INLabel)
Me.tabEmail.Controls.Add(Me.PORT_INTextBox)
Me.tabEmail.Controls.Add(Me.txtTestmail)
Me.tabEmail.Controls.Add(Me.Label12)
Me.tabEmail.Controls.Add(Me.btnsendtestmail)
Me.tabEmail.Controls.Add(Label11)
Me.tabEmail.Controls.Add(Me.EMAIL_PWLabel)
Me.tabEmail.Controls.Add(Me.txtnewpasswort)
Me.tabEmail.Controls.Add(Me.Button4)
Me.tabEmail.Controls.Add(GUIDLabel4)
@@ -2488,9 +2484,9 @@ Partial Class frmMain
Me.tabEmail.Controls.Add(Me.NAMETextBox)
Me.tabEmail.Controls.Add(EMAIL_FROMLabel)
Me.tabEmail.Controls.Add(Me.EMAIL_FROMTextBox)
Me.tabEmail.Controls.Add(EMAIL_SMTPLabel)
Me.tabEmail.Controls.Add(Me.EMAIL_SMTPLabel)
Me.tabEmail.Controls.Add(Me.EMAIL_SMTPTextBox)
Me.tabEmail.Controls.Add(EMAIL_USERLabel)
Me.tabEmail.Controls.Add(Me.EMAIL_USERLabel)
Me.tabEmail.Controls.Add(Me.EMAIL_USERTextBox)
Me.tabEmail.Controls.Add(Me.EMAIL_PWTextBox)
Me.tabEmail.Controls.Add(PORTLabel)
@@ -3653,4 +3649,8 @@ Partial Class frmMain
Friend WithEvents Label14 As Label
Friend WithEvents txtResultRegEx As TextBox
Friend WithEvents txthtmlEmail As TextBox
Friend WithEvents EMAIL_SMTPLabel As Label
Friend WithEvents EMAIL_USERLabel As Label
Friend WithEvents EMAIL_PWLabel As Label
Friend WithEvents ARCHIVE_FOLDERLabel As Label
End Class