MS Release CleanFileName
This commit is contained in:
@@ -64,17 +64,10 @@
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\DDMonorepo\Modules.Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Independentsoft.Email, Version=2.1.5953.24395, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Email .NET\Bin\Independentsoft.Email.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.CSharp" />
|
||||
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="S22.Imap, Version=3.6.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\S22.Imap.3.6.0.0\lib\net40\S22.Imap.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.5.0.0")>
|
||||
<Assembly: AssemblyVersion("2.7.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -22,31 +22,6 @@ DigitalData.Modules.Messaging
|
||||
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:DigitalData.Modules.Messaging.Email.TestIMAPLogin(System.String,System.Int32,System.String,System.String,System.String)">
|
||||
<summary>
|
||||
Tests connection to a given IMAP Server by connecting and doing a simple message query.
|
||||
</summary>
|
||||
<param name="Server">IP-Address or Domainname of Server</param>
|
||||
<param name="Port">IMAP-Port</param>
|
||||
<param name="Username">IMAP-Username</param>
|
||||
<param name="Password">IMAP-Password</param>
|
||||
<param name="Folder">The folder to fetch messages from. Defaults to `Inbox`</param>
|
||||
<returns>True if connection and query were successful. False otherwise.</returns>
|
||||
</member>
|
||||
<member name="M:DigitalData.Modules.Messaging.Email.FetchIMAPMessages(System.String,System.Int32,System.String,System.String,System.String)">
|
||||
<summary>
|
||||
Connects to an IMAP Server with the given credentials and
|
||||
fetches emails from the given folder.
|
||||
Results can be filtered with `SearchCondition`
|
||||
</summary>
|
||||
<param name="Server">IP-Address or Domainname of Server</param>
|
||||
<param name="Port">IMAP-Port</param>
|
||||
<param name="Username">IMAP-Username</param>
|
||||
<param name="Password">IMAP-Password</param>
|
||||
<param name="Folder">The folder to fetch messages from</param>
|
||||
<param name="SearchCondition">Filter the search command. Defaults to `All`</param>
|
||||
<returns>A list of Independentsoft.Email.Mime.Message objects</returns>
|
||||
</member>
|
||||
<member name="M:DigitalData.Modules.Messaging.Email.WriteMessageToFile(System.Net.Mail.MailMessage,System.String)">
|
||||
<summary>
|
||||
Uses a private API from MailWriter to write a MailMessage to disk.
|
||||
@@ -80,7 +55,7 @@ DigitalData.Modules.Messaging
|
||||
<param name="pSuffix">The optional suffix to add to the original filename.</param>
|
||||
<returns>The path of the new EML without attachments.</returns>
|
||||
</member>
|
||||
<member name="M:DigitalData.Modules.Messaging.Limilab.InitIMAP(System.String,System.Int32,System.String,System.String,System.String,System.String)">
|
||||
<member name="M:DigitalData.Modules.Messaging.Limilab.InitIMAP(System.Boolean,System.String,System.Int32,System.String,System.String,System.String,System.String)">
|
||||
<summary>
|
||||
Initializes the module.
|
||||
</summary>
|
||||
@@ -97,7 +72,7 @@ DigitalData.Modules.Messaging
|
||||
</summary>
|
||||
<returns>True if connection and query were successful. False otherwise.</returns>
|
||||
</member>
|
||||
<member name="M:DigitalData.Modules.Messaging.Limilab.NewSMTPEmail(System.String,System.String,System.String,System.String,System.String,System.Int32,System.String,System.String,System.String,System.String,System.String,System.Boolean)">
|
||||
<member name="M:DigitalData.Modules.Messaging.Limilab.NewSMTPEmail(System.String,System.String,System.String,System.String,System.String,System.Int32,System.String,System.String,System.String,System.String,System.String,System.String,System.Boolean)">
|
||||
<summary>
|
||||
Creates a MailObject and sends Mail via smtp.
|
||||
</summary>
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
20
App/CONFIG_APP/frmMain.Designer.vb
generated
20
App/CONFIG_APP/frmMain.Designer.vb
generated
@@ -283,6 +283,7 @@ Partial Class frmMain
|
||||
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripButton34 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.btnCheckIMAPObjects = New System.Windows.Forms.Button()
|
||||
Me.AUTH_TYPEComboBox = New System.Windows.Forms.ComboBox()
|
||||
Me.btntestImap = New System.Windows.Forms.Button()
|
||||
Me.ARCHIVE_FOLDERTextBox = New System.Windows.Forms.TextBox()
|
||||
@@ -1678,7 +1679,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(968, 25)
|
||||
Me.BindingNavigator2.Size = New System.Drawing.Size(1177, 25)
|
||||
Me.BindingNavigator2.TabIndex = 32
|
||||
Me.BindingNavigator2.Text = "BindingNavigator2"
|
||||
'
|
||||
@@ -1793,7 +1794,7 @@ Partial Class frmMain
|
||||
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GridControl1.MainView = Me.GridView1
|
||||
Me.GridControl1.Name = "GridControl1"
|
||||
Me.GridControl1.Size = New System.Drawing.Size(241, 331)
|
||||
Me.GridControl1.Size = New System.Drawing.Size(241, 314)
|
||||
Me.GridControl1.TabIndex = 0
|
||||
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
|
||||
'
|
||||
@@ -2945,6 +2946,7 @@ Partial Class frmMain
|
||||
'TabPage3
|
||||
'
|
||||
Me.TabPage3.AutoScroll = True
|
||||
Me.TabPage3.Controls.Add(Me.btnCheckIMAPObjects)
|
||||
Me.TabPage3.Controls.Add(AUTH_TYPELabel)
|
||||
Me.TabPage3.Controls.Add(Me.AUTH_TYPEComboBox)
|
||||
Me.TabPage3.Controls.Add(Me.btntestImap)
|
||||
@@ -2990,6 +2992,19 @@ Partial Class frmMain
|
||||
Me.TabPage3.Text = "EMail-Konto Konfiguration"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnCheckIMAPObjects
|
||||
'
|
||||
Me.btnCheckIMAPObjects.Image = Global.CONFIG_APP.My.Resources.Resources.arrow_right
|
||||
Me.btnCheckIMAPObjects.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnCheckIMAPObjects.Location = New System.Drawing.Point(831, 203)
|
||||
Me.btnCheckIMAPObjects.Name = "btnCheckIMAPObjects"
|
||||
Me.btnCheckIMAPObjects.Size = New System.Drawing.Size(189, 35)
|
||||
Me.btnCheckIMAPObjects.TabIndex = 80
|
||||
Me.btnCheckIMAPObjects.Text = "Check Unseen IMAP Objects"
|
||||
Me.btnCheckIMAPObjects.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnCheckIMAPObjects.UseVisualStyleBackColor = True
|
||||
Me.btnCheckIMAPObjects.Visible = False
|
||||
'
|
||||
'AUTH_TYPEComboBox
|
||||
'
|
||||
Me.AUTH_TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "AUTH_TYPE", True))
|
||||
@@ -3892,4 +3907,5 @@ Partial Class frmMain
|
||||
Friend WithEvents ToolStripLabel5 As ToolStripLabel
|
||||
Friend WithEvents ToolStripEmailAccountID As ToolStripTextBox
|
||||
Friend WithEvents AUTH_TYPEComboBox As ComboBox
|
||||
Friend WithEvents btnCheckIMAPObjects As Button
|
||||
End Class
|
||||
|
||||
@@ -403,9 +403,6 @@
|
||||
rkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="TBEMLP_POLL_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
@@ -458,27 +455,6 @@
|
||||
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="BindingNavigator3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1021, 95</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1175, 95</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1143, 134</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator6.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>851, 173</value>
|
||||
</metadata>
|
||||
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>180, 56</value>
|
||||
</metadata>
|
||||
<metadata name="TBDD_EMAIL_ACCOUNTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>623, 134</value>
|
||||
</metadata>
|
||||
<metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>537, 95</value>
|
||||
</metadata>
|
||||
<metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>537, 95</value>
|
||||
</metadata>
|
||||
@@ -552,9 +528,6 @@
|
||||
<metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1175, 95</value>
|
||||
</metadata>
|
||||
@@ -625,9 +598,6 @@
|
||||
<metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>239, 173</value>
|
||||
</metadata>
|
||||
<metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>239, 173</value>
|
||||
</metadata>
|
||||
<metadata name="TBEMLP_HISTORYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1297, 134</value>
|
||||
</metadata>
|
||||
|
||||
@@ -289,13 +289,13 @@ Public Class frmMain
|
||||
|
||||
MyLogger.Debug = True
|
||||
Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW,
|
||||
My.Settings.USE_WM, ToolStripEmailAccountID.Text)
|
||||
My.Settings.USE_WM, ToolStripEmailAccountID.Text, "EmailProfilerTestClient")
|
||||
_work.Start_WorkingProfiles()
|
||||
|
||||
Else
|
||||
For Each ofile As String In _Worklist
|
||||
Logger.Info($"## Manual working on file {ofile} ... ")
|
||||
Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, ofile)
|
||||
Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, ToolStripEmailAccountID.Text, "EmailProfilerTestClient", ofile)
|
||||
_work.Start_WorkingProfiles(True)
|
||||
Next
|
||||
|
||||
@@ -678,17 +678,17 @@ Public Class frmMain
|
||||
_database.Execute_non_Query(upd)
|
||||
Load_Config()
|
||||
End Sub
|
||||
Private Function GetChildren(ByVal bodyParts As BodyPartCollection) As BodyPartCollection
|
||||
'Private Function GetChildren(ByVal bodyParts As BodyPartCollection) As BodyPartCollection
|
||||
|
||||
Dim children As New BodyPartCollection()
|
||||
' Dim children As New BodyPartCollection()
|
||||
|
||||
For i As Integer = 0 To bodyParts.Count - 1
|
||||
children.Add(GetChildren(bodyParts(i).BodyParts))
|
||||
children.Add(bodyParts(i))
|
||||
Next
|
||||
' For i As Integer = 0 To bodyParts.Count - 1
|
||||
' children.Add(GetChildren(bodyParts(i).BodyParts))
|
||||
' children.Add(bodyParts(i))
|
||||
' Next
|
||||
|
||||
Return children
|
||||
End Function
|
||||
' Return children
|
||||
'End Function
|
||||
|
||||
Private Sub STEP_NAMEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles STEP_NAMEComboBox.SelectedIndexChanged
|
||||
Label9.Visible = False
|
||||
@@ -744,24 +744,35 @@ Public Class frmMain
|
||||
Dim oSQL = $"SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE GUID = {EMAILIDTextBox.Text}"
|
||||
Dim oDT As DataTable = _database.Return_Datatable(oSQL)
|
||||
If Not IsNothing(oDT) Then
|
||||
|
||||
If oDT.Rows.Count = 1 Then
|
||||
|
||||
Dim PWPlain = _Encryption.DecryptData(oDT.Rows(0).Item("EMAIL_PW"))
|
||||
'Logger.Debug($"PWis !{PWPlain}35452dd=")
|
||||
_limilab.InitIMAP(oDT.Rows(0).Item("EMAIL_SMTP"), oDT.Rows(0).Item("PORT_IN"), oDT.Rows(0).Item("EMAIL_USER"), PWPlain, oDT.Rows(0).Item("AUTH_TYPE"))
|
||||
_limilab.InitIMAP(True, oDT.Rows(0).Item("EMAIL_SMTP"), oDT.Rows(0).Item("PORT_IN"), oDT.Rows(0).Item("EMAIL_USER"), PWPlain, oDT.Rows(0).Item("AUTH_TYPE"))
|
||||
Dim oResult = _limilab.IMAPTestLogin()
|
||||
|
||||
If oResult = False Then
|
||||
MsgBox("Access Imap NOT successfull", MsgBoxStyle.Critical)
|
||||
Else
|
||||
MsgBox("Test Successful!", MsgBoxStyle.Information)
|
||||
MsgBox("IMAP-Test Successful!", MsgBoxStyle.Information)
|
||||
btnCheckIMAPObjects.Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub btnCheckIMAPObjects_Click(sender As Object, e As EventArgs) Handles btnCheckIMAPObjects.Click
|
||||
|
||||
Dim oListuids As New List(Of Long)
|
||||
oListuids = _limilab.IMAPGetUnseenMessageIDs()
|
||||
If IsNothing(oListuids) Then
|
||||
MsgBox("Something went wrong! - Check Your log.", MsgBoxStyle.Critical)
|
||||
Else
|
||||
_limilab.CloseImap()
|
||||
MsgBox($"IMAP-Folder contained [{oListuids.Count}] unseen Objects!", MsgBoxStyle.Information)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnTestRegEx_Click(sender As Object, e As EventArgs) Handles btnTestRegEx.Click
|
||||
txtResultRegEx.Text = ""
|
||||
Try
|
||||
@@ -815,56 +826,56 @@ Public Class frmMain
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
Try
|
||||
txthtmlEmail.Text = ""
|
||||
txthtmlEmail.BackColor = Color.Wheat
|
||||
Dim oOpenFileDialog1 As New OpenFileDialog()
|
||||
'Try
|
||||
' txthtmlEmail.Text = ""
|
||||
' txthtmlEmail.BackColor = Color.Wheat
|
||||
' Dim oOpenFileDialog1 As New OpenFileDialog()
|
||||
|
||||
' openFileDialog1.InitialDirectory = "c:\"
|
||||
oOpenFileDialog1.Filter = "Emails (*.eml)|*.eml|All files (*.*)|*.*"
|
||||
oOpenFileDialog1.FilterIndex = 2
|
||||
oOpenFileDialog1.RestoreDirectory = True
|
||||
' ' openFileDialog1.InitialDirectory = "c:\"
|
||||
' oOpenFileDialog1.Filter = "Emails (*.eml)|*.eml|All files (*.*)|*.*"
|
||||
' oOpenFileDialog1.FilterIndex = 2
|
||||
' oOpenFileDialog1.RestoreDirectory = True
|
||||
|
||||
If oOpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
|
||||
Dim oMsg_email As New Independentsoft.Email.Mime.Message(oOpenFileDialog1.FileName)
|
||||
Dim oBodyText As String = ""
|
||||
If IsNothing(oMsg_email.Body) Then
|
||||
Dim oAllBodyParts As New BodyPartCollection()
|
||||
oAllBodyParts.Add(oMsg_email.BodyParts)
|
||||
oAllBodyParts.Add(GetChildren(oMsg_email.BodyParts))
|
||||
For Each bodyPart As BodyPart In oAllBodyParts
|
||||
If bodyPart.ContentType IsNot Nothing AndAlso bodyPart.ContentType.Type = "text" AndAlso bodyPart.ContentType.SubType = "plain" Then
|
||||
If oBodyText = String.Empty Then
|
||||
Logger.Debug(String.Format("BODY1-Text is....#{0}", bodyPart.Body))
|
||||
oBodyText = bodyPart.Body
|
||||
Else
|
||||
Continue For
|
||||
End If
|
||||
ElseIf bodyPart.ContentType IsNot Nothing AndAlso bodyPart.ContentType.Type = "text" AndAlso bodyPart.ContentType.SubType = "html" Then
|
||||
If oBodyText = String.Empty Then
|
||||
oBodyText = bodyPart.Body
|
||||
Logger.Debug(String.Format("bodyhtml....#{0}", bodyPart.Body))
|
||||
Else
|
||||
Continue For
|
||||
End If
|
||||
Logger.Debug(String.Format("bodyhtml....#{0}", bodyPart.Body))
|
||||
End If
|
||||
Next
|
||||
If oBodyText = "" Then
|
||||
MsgBox("No html-body extractable?!")
|
||||
Else
|
||||
txthtmlEmail.Text = oBodyText
|
||||
txthtmlEmail.BackColor = Color.Yellow
|
||||
End If
|
||||
Else
|
||||
txthtmlEmail.Text = oMsg_email.Body
|
||||
txthtmlEmail.BackColor = Color.Yellow
|
||||
End If
|
||||
' If oOpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
|
||||
' Dim oMsg_email As New Independentsoft.Email.Mime.Message(oOpenFileDialog1.FileName)
|
||||
' Dim oBodyText As String = ""
|
||||
' If IsNothing(oMsg_email.Body) Then
|
||||
' Dim oAllBodyParts As New BodyPartCollection()
|
||||
' oAllBodyParts.Add(oMsg_email.BodyParts)
|
||||
' oAllBodyParts.Add(GetChildren(oMsg_email.BodyParts))
|
||||
' For Each bodyPart As BodyPart In oAllBodyParts
|
||||
' If bodyPart.ContentType IsNot Nothing AndAlso bodyPart.ContentType.Type = "text" AndAlso bodyPart.ContentType.SubType = "plain" Then
|
||||
' If oBodyText = String.Empty Then
|
||||
' Logger.Debug(String.Format("BODY1-Text is....#{0}", bodyPart.Body))
|
||||
' oBodyText = bodyPart.Body
|
||||
' Else
|
||||
' Continue For
|
||||
' End If
|
||||
' ElseIf bodyPart.ContentType IsNot Nothing AndAlso bodyPart.ContentType.Type = "text" AndAlso bodyPart.ContentType.SubType = "html" Then
|
||||
' If oBodyText = String.Empty Then
|
||||
' oBodyText = bodyPart.Body
|
||||
' Logger.Debug(String.Format("bodyhtml....#{0}", bodyPart.Body))
|
||||
' Else
|
||||
' Continue For
|
||||
' End If
|
||||
' Logger.Debug(String.Format("bodyhtml....#{0}", bodyPart.Body))
|
||||
' End If
|
||||
' Next
|
||||
' If oBodyText = "" Then
|
||||
' MsgBox("No html-body extractable?!")
|
||||
' Else
|
||||
' txthtmlEmail.Text = oBodyText
|
||||
' txthtmlEmail.BackColor = Color.Yellow
|
||||
' End If
|
||||
' Else
|
||||
' txthtmlEmail.Text = oMsg_email.Body
|
||||
' txthtmlEmail.BackColor = Color.Yellow
|
||||
' End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
' End If
|
||||
'Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
'End Try
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -897,8 +908,13 @@ Public Class frmMain
|
||||
|
||||
|
||||
Private Sub COMMENTTextBox_Leave(sender As Object, e As EventArgs) Handles COMMENTTextBox.Leave
|
||||
Dim separatorIndex = COMMENTTextBox.Text.IndexOf(".")
|
||||
TextBox1.Text = COMMENTTextBox.Text.Substring(separatorIndex, COMMENTTextBox.Text.Length - 1)
|
||||
Try
|
||||
Dim separatorIndex = COMMENTTextBox.Text.IndexOf(".")
|
||||
TextBox1.Text = COMMENTTextBox.Text.Substring(separatorIndex, COMMENTTextBox.Text.Length - 1)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub EMAILIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles EMAILIDTextBox.TextChanged
|
||||
@@ -907,7 +923,7 @@ Public Class frmMain
|
||||
Else
|
||||
ToolStripEmailAccountID.Text = "Choose Email-Config"
|
||||
End If
|
||||
|
||||
btnCheckIMAPObjects.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub AUTH_TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles AUTH_TYPEComboBox.SelectedIndexChanged
|
||||
@@ -920,4 +936,15 @@ Public Class frmMain
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
||||
Try
|
||||
If ComboBox1.SelectedIndex <> -1 Then
|
||||
ToolStripEmailAccountID.Text = ComboBox1.SelectedValue
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1 +1 @@
|
||||
95daf7e3d3207550e7dac80df1cfd1d9d80b6a25
|
||||
731743bc36952eeddee9457809a0beb5ae6eac4a
|
||||
|
||||
@@ -1,11 +1,10 @@
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Oracle.ManagedDataAccess.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.exe
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Printing.v19.2.Core.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Printing.v19.2.Core.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.exe.config
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.exe
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.pdb
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Data.v19.2.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Printing.v19.2.Core.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Utils.v19.2.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraEditors.v19.2.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraGrid.v19.2.dll
|
||||
@@ -14,12 +13,9 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExp
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.EMLProfiler.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Logging.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Messaging.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Independentsoft.Email.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\NLog.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\S22.Imap.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Mail.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Interop.WINDREAMLib.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Independentsoft.Msg.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Database.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Pdf.v19.2.Core.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Sparkline.v19.2.Core.dll
|
||||
@@ -29,6 +25,7 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExp
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Filesystem.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Language.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\FirebirdSql.Data.FirebirdClient.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Oracle.ManagedDataAccess.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Encryption.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Office.v19.2.Core.dll
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Images.v19.2.dll
|
||||
@@ -37,7 +34,6 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Digita
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.EMLProfiler.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.EMLProfiler.dll.config
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Data.v19.2.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Printing.v19.2.Core.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Utils.v19.2.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraEditors.v19.2.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraGrid.v19.2.xml
|
||||
@@ -47,10 +43,7 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Digita
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Logging.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Messaging.pdb
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Messaging.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Independentsoft.Email.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\NLog.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\S22.Imap.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Independentsoft.Msg.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Database.pdb
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Database.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.Modules.Database.dll.config
|
||||
@@ -126,5 +119,6 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.exe.licenses
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.vbproj.CoreCompileInputs.cache
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.vbproj.CopyComplete
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.exe
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.xml
|
||||
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.pdb
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user