diff --git a/App/.vs/SERV_EMAIL/v15/.suo b/App/.vs/SERV_EMAIL/v15/.suo
index e3a5c99..045face 100644
Binary files a/App/.vs/SERV_EMAIL/v15/.suo and b/App/.vs/SERV_EMAIL/v15/.suo differ
diff --git a/App/CONFIG_APP/bin/DebugC.zip b/App/CONFIG_APP/bin/Debug.7z
similarity index 62%
rename from App/CONFIG_APP/bin/DebugC.zip
rename to App/CONFIG_APP/bin/Debug.7z
index d24b496..a7238a6 100644
Binary files a/App/CONFIG_APP/bin/DebugC.zip and b/App/CONFIG_APP/bin/Debug.7z differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP.7z b/App/CONFIG_APP/bin/Debug/CONFIG_APP.7z
new file mode 100644
index 0000000..fdb6c60
Binary files /dev/null and b/App/CONFIG_APP/bin/Debug/CONFIG_APP.7z differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe b/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe
index 5c5578a..a804f3a 100644
Binary files a/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe and b/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb b/App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb
index 944d509..c9e7e04 100644
Binary files a/App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb and b/App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP/.reloc b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.reloc
new file mode 100644
index 0000000..5119068
Binary files /dev/null and b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.reloc differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/GROUP_ICON/32512 b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/GROUP_ICON/32512
new file mode 100644
index 0000000..715a4b3
Binary files /dev/null and b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/GROUP_ICON/32512 differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/ICON/1.ico b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/ICON/1.ico
new file mode 100644
index 0000000..5f77580
Binary files /dev/null and b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/ICON/1.ico differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/ICON/2.ico b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/ICON/2.ico
new file mode 100644
index 0000000..09b0efe
Binary files /dev/null and b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/ICON/2.ico differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/MANIFEST/1 b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/MANIFEST/1
new file mode 100644
index 0000000..f8f55e0
--- /dev/null
+++ b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/MANIFEST/1
@@ -0,0 +1,12 @@
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/version.txt b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/version.txt
new file mode 100644
index 0000000..92c9a15
Binary files /dev/null and b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.rsrc/version.txt differ
diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP/.text b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.text
new file mode 100644
index 0000000..c7f478f
Binary files /dev/null and b/App/CONFIG_APP/bin/Debug/CONFIG_APP/.text differ
diff --git a/App/CONFIG_APP/bin/Debug/DatabaseDLL/DigitalData.Modules.Database.dll b/App/CONFIG_APP/bin/Debug/DatabaseDLL/DigitalData.Modules.Database.dll
new file mode 100644
index 0000000..131d6a0
Binary files /dev/null and b/App/CONFIG_APP/bin/Debug/DatabaseDLL/DigitalData.Modules.Database.dll differ
diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.dll b/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.dll
index a85dd53..2a6e42b 100644
Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.dll and b/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.dll differ
diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.pdb b/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.pdb
index e4fb863..b4a5436 100644
Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.pdb and b/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.pdb differ
diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.dll b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.dll
index 131d6a0..4711c85 100644
Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.dll and b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.dll differ
diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.pdb b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.pdb
index df08b20..d7c15a3 100644
Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.pdb and b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.pdb differ
diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.dll b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.dll
index 214336d..0ba0554 100644
Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.dll and b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.dll differ
diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.pdb b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.pdb
index bc5c102..68dad08 100644
Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.pdb and b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.pdb differ
diff --git a/App/CONFIG_APP/frmMain.Designer.vb b/App/CONFIG_APP/frmMain.Designer.vb
index 4d88a3a..fb16185 100644
--- a/App/CONFIG_APP/frmMain.Designer.vb
+++ b/App/CONFIG_APP/frmMain.Designer.vb
@@ -325,6 +325,9 @@ Partial Class frmMain
Me.TBEMLP_HISTORYTableAdapter = New CONFIG_APP.MyDatasetTableAdapters.TBEMLP_HISTORYTableAdapter()
Me.TBEMLP_CONFIGTableAdapter = New CONFIG_APP.MyDatasetTableAdapters.TBEMLP_CONFIGTableAdapter()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+ Me.Button1 = New System.Windows.Forms.Button()
+ Me.txtInboxname = New System.Windows.Forms.TextBox()
+ Me.Button2 = New System.Windows.Forms.Button()
GUIDLabel = New System.Windows.Forms.Label()
PROFILE_NAMELabel = New System.Windows.Forms.Label()
POLL_TYPELabel = New System.Windows.Forms.Label()
@@ -2889,6 +2892,9 @@ Partial Class frmMain
'
'TabPage3
'
+ Me.TabPage3.Controls.Add(Me.Button2)
+ Me.TabPage3.Controls.Add(Me.txtInboxname)
+ Me.TabPage3.Controls.Add(Me.Button1)
Me.TabPage3.Controls.Add(Me.txtTestmail)
Me.TabPage3.Controls.Add(Me.Label12)
Me.TabPage3.Controls.Add(Me.btnsendtestmail)
@@ -3300,6 +3306,38 @@ Partial Class frmMain
'
Me.TBEMLP_CONFIGTableAdapter.ClearBeforeFill = True
'
+ 'Button1
+ '
+ Me.Button1.Image = Global.CONFIG_APP.My.Resources.Resources.email_go
+ Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.Button1.Location = New System.Drawing.Point(373, 280)
+ Me.Button1.Name = "Button1"
+ Me.Button1.Size = New System.Drawing.Size(117, 35)
+ Me.Button1.TabIndex = 68
+ Me.Button1.Text = "TEST_IMAP"
+ Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.Button1.UseVisualStyleBackColor = True
+ '
+ 'txtInboxname
+ '
+ Me.txtInboxname.Location = New System.Drawing.Point(496, 294)
+ Me.txtInboxname.Name = "txtInboxname"
+ Me.txtInboxname.Size = New System.Drawing.Size(100, 21)
+ Me.txtInboxname.TabIndex = 69
+ Me.txtInboxname.Text = "Inbox"
+ '
+ 'Button2
+ '
+ Me.Button2.Image = Global.CONFIG_APP.My.Resources.Resources.email_go
+ Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.Button2.Location = New System.Drawing.Point(374, 321)
+ Me.Button2.Name = "Button2"
+ Me.Button2.Size = New System.Drawing.Size(117, 35)
+ Me.Button2.TabIndex = 70
+ Me.Button2.Text = "TEST_POP"
+ Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.Button2.UseVisualStyleBackColor = True
+ '
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3630,4 +3668,7 @@ Partial Class frmMain
Friend WithEvents txtTestmail As TextBox
Friend WithEvents Label12 As Label
Friend WithEvents btnsendtestmail As Button
+ Friend WithEvents Button1 As Button
+ Friend WithEvents txtInboxname As TextBox
+ Friend WithEvents Button2 As Button
End Class
diff --git a/App/CONFIG_APP/frmMain.resx b/App/CONFIG_APP/frmMain.resx
index 0428841..8cae7a6 100644
--- a/App/CONFIG_APP/frmMain.resx
+++ b/App/CONFIG_APP/frmMain.resx
@@ -304,6 +304,82 @@
nRg7L/M8pziOWYAVBu8cdfSxgesVgiCgzWZLz8fTMABHHnX0cbOCMQfIRVFEt/LOgChNU14lJ7/UScxA
AQ3Y6Xg4saCqHryCI/+TwTf8uQFu2SUS6FdwhSroObCNwI056As1UKFq0JNooZtEz3sBIUpmhmW9bzQA
AAAASUVORK5CYII=
+
+
+
+ 1209, 17
+
+
+ 1297, 95
+
+
+ 777, 95
+
+
+ 1079, 134
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
+ pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
+ Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
+ /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
+ zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
+ IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
+ rkJggg==
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
+ DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
+ rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
+ i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
+ 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
+ QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
+ bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
+ wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
+ v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
+ UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
+ Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
+ lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
+ 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
+ Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
+ 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
+ n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
+ N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
+ oAc0QjgAAAAASUVORK5CYII=
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
+ h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
+ twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
+ kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
+ WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
+ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
@@ -312,6 +388,9 @@
404, 17
+
+ 404, 17
+
777, 95
@@ -382,6 +461,18 @@
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
+
+ 17, 56
+
+
+ 1175, 56
+
+
+ 17, 95
+
+
+ 171, 56
+
171, 56
@@ -455,6 +546,9 @@
691, 56
+
+ 691, 56
+
1175, 56
@@ -525,6 +619,9 @@
171, 95
+
+ 171, 95
+
17, 95
@@ -595,6 +692,9 @@
467, 134
+
+ 467, 134
+
17, 134
@@ -639,73 +739,6 @@
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-
-
-
- 1079, 134
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
- pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
- Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
- /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
- zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
- IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
- rkJggg==
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
- DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
- rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
- i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
- 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
- QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
- bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
- wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
- v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
- UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
- Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
- lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
- 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
- Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
- 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
- n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
- N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
- oAc0QjgAAAAASUVORK5CYII=
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
- h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
- twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
- kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
- WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
- 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
diff --git a/App/CONFIG_APP/frmMain.vb b/App/CONFIG_APP/frmMain.vb
index 372c6a6..7e76f36 100644
--- a/App/CONFIG_APP/frmMain.vb
+++ b/App/CONFIG_APP/frmMain.vb
@@ -13,6 +13,7 @@ Public Class frmMain
Private _Encryption As clsEncryption
Private _windream As clsWindream_allgemein
Private _email As clsEmail
+ Private _emailIMAP As clsEmailIMAP
Private _LoadInProgress As Boolean = True
Public Sub New()
@@ -34,6 +35,7 @@ Public Class frmMain
Logger = MyLogger.GetLogger()
_windream = New clsWindream_allgemein(MyLogger)
_email = New clsEmail(MyLogger)
+ _emailIMAP = New clsEmailIMAP(MyLogger)
InitDatabase()
If Set_ConnectionStrings() Then
Load_AllData()
@@ -645,4 +647,16 @@ Public Class frmMain
End If
End If
End Sub
+
+ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+ My.Settings.Save()
+ Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
+ _emailIMAP.TEST_IMAP_COLLECT(txtInboxname.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain)
+ End Sub
+
+ Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+ My.Settings.Save()
+ Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
+ _email.TEST_POP3_COLLECT(EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain)
+ End Sub
End Class
diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.exe b/App/CONFIG_APP/obj/Debug/CONFIG_APP.exe
index 5c5578a..a804f3a 100644
Binary files a/App/CONFIG_APP/obj/Debug/CONFIG_APP.exe and b/App/CONFIG_APP/obj/Debug/CONFIG_APP.exe differ
diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb b/App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb
index 944d509..c9e7e04 100644
Binary files a/App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb and b/App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb differ
diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt
index cf8e23f..a940b89 100644
--- a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt
+++ b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt
@@ -1,3 +1,6 @@
+E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.pdb
+E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraGrid.v18.1.xml
+E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\de\DevExpress.XtraGrid.v18.1.resources.dll
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
@@ -28,7 +31,6 @@ 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\DevExpress.Printing.v18.1.Core.xml
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.Utils.v18.1.xml
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraEditors.v18.1.xml
-E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraGrid.v18.1.xml
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraLayout.v18.1.xml
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DevExpress.XtraPrinting.v18.1.xml
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\DigitalData.EMLProfiler.pdb
@@ -64,7 +66,6 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\de\Dev
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\es\DevExpress.XtraEditors.v18.1.resources.dll
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\ja\DevExpress.XtraEditors.v18.1.resources.dll
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\ru\DevExpress.XtraEditors.v18.1.resources.dll
-E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\de\DevExpress.XtraGrid.v18.1.resources.dll
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\es\DevExpress.XtraGrid.v18.1.resources.dll
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\ja\DevExpress.XtraGrid.v18.1.resources.dll
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\ru\DevExpress.XtraGrid.v18.1.resources.dll
@@ -109,4 +110,3 @@ 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.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
diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache
index d80df2f..984874c 100644
Binary files a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache and b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache differ
diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache
index 555bf28..9d0f741 100644
Binary files a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache and b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache differ
diff --git a/App/CONFIG_APP/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/App/CONFIG_APP/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
index f4402ed..183f481 100644
Binary files a/App/CONFIG_APP/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll and b/App/CONFIG_APP/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ
diff --git a/App/CONFIG_APP/obj/Debug/TempPE/MyDataset.Designer.vb.dll b/App/CONFIG_APP/obj/Debug/TempPE/MyDataset.Designer.vb.dll
index 4a20694..d158894 100644
Binary files a/App/CONFIG_APP/obj/Debug/TempPE/MyDataset.Designer.vb.dll and b/App/CONFIG_APP/obj/Debug/TempPE/MyDataset.Designer.vb.dll differ
diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DLL.7z b/App/DigitalData.EMLProfiler/bin/Debug/DLL.7z
new file mode 100644
index 0000000..88403b8
Binary files /dev/null and b/App/DigitalData.EMLProfiler/bin/Debug/DLL.7z differ
diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DLLEM.7z b/App/DigitalData.EMLProfiler/bin/Debug/DLLEM.7z
new file mode 100644
index 0000000..5e4fd5f
Binary files /dev/null and b/App/DigitalData.EMLProfiler/bin/Debug/DLLEM.7z differ
diff --git a/App/DigitalData.EMLProfiler/bin/Debug/Debug.7z b/App/DigitalData.EMLProfiler/bin/Debug/Debug.7z
deleted file mode 100644
index 19c9b0f..0000000
Binary files a/App/DigitalData.EMLProfiler/bin/Debug/Debug.7z and /dev/null differ
diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll
index 06de37f..bbc0354 100644
Binary files a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll and b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll differ
diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb
index 4db1779..714ce82 100644
Binary files a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb and b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb differ
diff --git a/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb b/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb
index 324b018..5207033 100644
--- a/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb
+++ b/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb
@@ -5,6 +5,7 @@ Imports DigitalData.EMLProfiler.ClassCurrent
Imports DigitalData.Modules.Logging
Public Class clsEmailIMAP
Private Shared Logger As DigitalData.Modules.Logging.Logger
+
Sub New(LogConf As LogConfig)
Logger = LogConf.GetLogger
End Sub
@@ -28,7 +29,6 @@ Public Class clsEmailIMAP
client.SelectFolder("Inbox")
Dim envelopes As Envelope() = client.ListMessages()
For i As Integer = 0 To envelopes.Length - 1
-
If Not IsNothing(envelopes(i).Subject) Then
'If envelopes(i).Subject.ToString.ToUpper.Contains("[PROCESSMANAGER]") Or envelopes(i).Subject.ToString.ToUpper.Contains("[ADDI]") Then
Logger.Info($"Working on email: UniqueID: {envelopes(i).UniqueID} - Subject:{envelopes(i).Subject} - Date {envelopes(i).Date.ToString}")
@@ -38,30 +38,46 @@ Public Class clsEmailIMAP
End If
'End If
End If
-
Next
-
client.Disconnect()
Logger.Debug("IMAP_COLLECT finished!")
Return True
- ' MAIL_LIST
-
-
- 'client.ValidateRemoteCertificate = False
- 'client.Connect()
-
- 'client.Login(MAIL_USER, MAIL_USER_PW)
-
- 'Dim messages As Message() = client.GetMessages("Inbox")
-
- 'For i As Integer = 0 To messages.Length - 1
- ' MAIL_LIST.Add(messages(i))
- 'Next
- 'Logger.Debug(String.Format("MAIL_LIST.Count: {0}", MAIL_LIST.Count))
- 'client.Disconnect()
Catch ex As Exception
Logger.Error(ex, "Unexpected Error in IMAP COLLECT:")
Return False
End Try
End Function
+ Public Function TEST_IMAP_COLLECT(INBOXNAME As String, MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
+ Try
+ Logger.Info(String.Format("Working on TEST_IMAP_COLLECT....."))
+
+ Dim client As New ImapClient(MYMAIL_SERVER, MYMAIL_PORT)
+
+ 'If LOG_ERRORS_ONLY = False Then
+ ' Dim emaillogger As New Independentsoft.Email.Logger(My.Application.Info.DirectoryPath & "\Log\IDSoftMailLog.txt")
+ ' AddHandler emaillogger.WriteLog, AddressOf OnWriteLog
+ 'client.Logger = emaillogger
+ 'End If
+ client.Connect()
+ client.Login(MYMAIL_USER, MYMAIL_USER_PW)
+ client.SelectFolder(INBOXNAME)
+ Dim envelopes As Envelope() = client.ListMessages()
+
+ For i As Integer = 0 To envelopes.Length - 1
+ If Not IsNothing(envelopes(i).Subject) Then
+ 'If envelopes(i).Subject.ToString.ToUpper.Contains("[PROCESSMANAGER]") Or envelopes(i).Subject.ToString.ToUpper.Contains("[ADDI]") Then
+ MsgBox($"Working on email: UniqueID: {envelopes(i).UniqueID} - Subject:{envelopes(i).Subject} - Date {envelopes(i).Date.ToString}")
+ Dim message As Mime.Message = client.GetMessage(envelopes(i).UniqueID)
+ End If
+ Next
+
+ client.Disconnect()
+ Logger.Info("TEST_IMAP_COLLECT finished!")
+ Return True
+
+ Catch ex As Exception
+ Logger.Error(ex, "Unexpected Error in TEST_IMAP_COLLECT:")
+ Return False
+ End Try
+ End Function
End Class
diff --git a/App/DigitalData.EMLProfiler/clsEmail.vb b/App/DigitalData.EMLProfiler/clsEmail.vb
index 45d9e4d..3f26d3b 100644
--- a/App/DigitalData.EMLProfiler/clsEmail.vb
+++ b/App/DigitalData.EMLProfiler/clsEmail.vb
@@ -1,13 +1,15 @@
Imports Independentsoft.Email
Imports Independentsoft.Email.Pop3
+Imports Independentsoft.Email.Smtp
Imports Independentsoft.Email.Mime
Imports Independentsoft.Email.Imap
Imports DigitalData.EMLProfiler.ClassCurrent
Imports DigitalData.Modules.Logging
-Imports Independentsoft.Email.Smtp
+
Public Class clsEmail
Private Shared Logger As DigitalData.Modules.Logging.Logger
+ Public Shared EMAIL_INBOX_LIST As New ArrayList()
Sub New(LogConf As LogConfig)
Logger = LogConf.GetLogger
End Sub
@@ -18,12 +20,6 @@ Public Class clsEmail
Try
Logger.Debug(String.Format("Working on POP3_COLLECT....."))
Dim client As New Pop3Client(MAIL_SERVER, MAIL_PORT)
- 'If LOG_ERRORS_ONLY = False Then
- ' Dim logger As New Logger(My.Application.Info.DirectoryPath & "\Log\IDSoftMailLog.txt")
- ' AddHandler logger.WriteLog, AddressOf OnWriteLog
- ' client.Logger = logger
- 'End If
-
client.ValidateRemoteCertificate = False
client.Connect()
@@ -35,7 +31,12 @@ Public Class clsEmail
For i As Integer = 0 To messageInfo.Length - 1
Dim message As Message = client.GetMessage(messageInfo(i).Index)
MAIL_LIST.Add(message)
- Logger.Debug(String.Format("Message [{0}] added", message.Subject))
+ Try
+ Logger.Debug(String.Format("Message [{0}] added", message.Subject))
+ Catch ex As Exception
+
+ End Try
+
'client.Delete(messageInfo(i).Index)
Next
@@ -50,16 +51,37 @@ Public Class clsEmail
Return False
End Try
End Function
+ Public Function TEST_POP3_COLLECT(MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String) As Boolean
+ Try
+ Logger.Debug(String.Format("Working on TEST_POP3_COLLECT..."))
+ Dim client As New Pop3Client(MYMAIL_SERVER, MYMAIL_PORT)
+
+ client.ValidateRemoteCertificate = False
+ client.Connect()
+ Logger.Debug(String.Format("..connected!"))
+ client.Login(MYMAIL_USER, MYMAIL_USER_PW)
+
+ Dim messageInfo As MessageInfo() = client.List()
+
+ For i As Integer = 0 To messageInfo.Length - 1
+ Dim message As Message = client.GetMessage(messageInfo(i).Index)
+ MsgBox(String.Format("Message [{0}] added", message.Subject))
+
+ Next
+
+ client.Disconnect()
+ MsgBox(String.Format("TEST_POP3_COLLECT finished!"))
+ Return True
+ Catch ex As Exception
+ Logger.Error(ex)
+
+ Return False
+ End Try
+ End Function
Public Function DELETE_EMAIL(msgid As String)
Try
If CURRENT_POLL_TYPE = "POP" Then
Dim client As New Pop3Client(MAIL_SERVER, MAIL_PORT)
- 'If LOG_ERRORS_ONLY = False Then
- ' Dim logger As New Independentsoft.Email.Logger(My.Application.Info.DirectoryPath & "\Log\IDSoftMailLog.txt")
- ' AddHandler logger.WriteLog, AddressOf OnWriteLog
- ' client.Logger = logger
- 'End If
-
client.ValidateRemoteCertificate = False
client.Connect()
client.Login(MAIL_USER, MAIL_USER_PW)
@@ -79,10 +101,6 @@ Public Class clsEmail
ElseIf CURRENT_POLL_TYPE = "IMAP" Then
Dim client As New ImapClient(MAIL_SERVER, MAIL_PORT)
- 'Dim logger As New Logger(My.Application.Info.DirectoryPath & "\Log\IDSoftMailLog.txt")
- 'AddHandler logger.WriteLog, AddressOf OnWriteLog
- 'client.Logger = logger
-
client.ValidateRemoteCertificate = False
client.Connect()
client.Login(MAIL_USER, MAIL_USER_PW)
@@ -242,4 +260,5 @@ Public Class clsEmail
Return False
End Try
End Function
+
End Class
diff --git a/App/DigitalData.EMLProfiler/clsWorkEmail.vb b/App/DigitalData.EMLProfiler/clsWorkEmail.vb
index 4f4068d..f2d43d2 100644
--- a/App/DigitalData.EMLProfiler/clsWorkEmail.vb
+++ b/App/DigitalData.EMLProfiler/clsWorkEmail.vb
@@ -123,8 +123,8 @@ Public Class clsWorkEmail
WM_IDX_BODY_SUBSTR_LENGTH = row("WM_IDX_BODY_SUBSTR_LENGTH")
COPY2HDD(row("COPY_2_HDD"), row("PATH_EMAIL_TEMP"), row("PATH_EMAIL_ERRORS"), True)
- EXTRACT_BODY()
EXTRACT_ATTACHMENTS(row("PATH_EMAIL_TEMP"), row("PATH_EMAIL_ERRORS"))
+ EXTRACT_BODY()
oDel_email = row("DELETE_MAIL")
Next
EMAIL_DELETE(oDel_email)
@@ -273,7 +273,7 @@ Public Class clsWorkEmail
If Not IsNothing(m.Value) Then
If m.Value.Length > WM_IDX_BODY_SUBSTR_LENGTH Then
Try
- Logger.Info($"Getting the Substring of body - Length: {WM_IDX_BODY_SUBSTR_LENGTH}...")
+ Logger.Debug($"Getting the Substring of body - Length: {WM_IDX_BODY_SUBSTR_LENGTH}...")
CURRENT_MAIL_BODY_Substr2 = m.Value.Substring(0, WM_IDX_BODY_SUBSTR_LENGTH)
Catch ex As Exception
Logger.Warn("Error in Substring 168: " & ex.Message)
@@ -289,27 +289,9 @@ Public Class clsWorkEmail
End If
End If
- 'Dim matchcount As Integer = 0
- 'Do While m.Success
- ' matchcount += 1
- ' Console.WriteLine("Match" & (matchcount))
- ' Dim i As Integer
- ' For i = 1 To 2
- ' Dim g As Group = m.Groups(i)
- ' Console.WriteLine("Group" & i & "='" & g.ToString() & "'")
- ' Dim cc As CaptureCollection = g.Captures
- ' Dim j As Integer
- ' For j = 0 To cc.Count - 1
- ' Dim c As Capture = cc(j)
- ' Console.WriteLine("Capture" & j & "='" & c.ToString() _
- ' & "', Position=" & c.Index)
- ' Next
- ' Next
- ' m = m.NextMatch()
- 'Loop
- Logger.Info(String.Format("MailBody-Substring After RecognizeString:...[{0}]", CURRENT_MAIL_BODY_Substr2))
+ Logger.Debug(String.Format("MailBody-Substring After RecognizeString:...[{0}]", CURRENT_MAIL_BODY_Substr2))
End If
Catch ex As Exception
@@ -403,8 +385,12 @@ Public Class clsWorkEmail
Return children
End Function
Private Function EMAIL_DELETE(del As Boolean)
- If del = True And MessageError = False And _worked_email = True Then
+ If del = True And MessageError = False Then
_email.DELETE_EMAIL(CURRENT_MAIL_MESSAGE.MessageID)
+ Else
+ If MessageError = True Then
+ Logger.Warn($"Could not delete Message {CURRENT_MAIL_MESSAGE.MessageID} as there was an MessageError!")
+ End If
End If
End Function
Private Function WORK_POLL_STEPS() As Boolean
diff --git a/App/DigitalData.EMLProfiler/clsWorker.vb b/App/DigitalData.EMLProfiler/clsWorker.vb
index b889103..ba08b69 100644
--- a/App/DigitalData.EMLProfiler/clsWorker.vb
+++ b/App/DigitalData.EMLProfiler/clsWorker.vb
@@ -113,7 +113,7 @@ Public Class clsWorker
End Select
If pollresult = False Then
Logger.Warn(String.Format("Error while polling emails...."))
- Continue For
+
End If
If MAIL_LIST.Count() > 0 Then
Logger.Info(String.Format("Worked/Pulled: {0} E-Mails", MAIL_LIST.Count()))
diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll
index 06de37f..bbc0354 100644
Binary files a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll and b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll differ
diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb
index 4db1779..714ce82 100644
Binary files a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb and b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb differ
diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt
index c4d6929..a740758 100644
--- a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt
+++ b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt
@@ -17,7 +17,6 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin\Debug\Independentsoft.Email.xml
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin\Debug\NLog.xml
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin\Debug\FirebirdSql.Data.FirebirdClient.pdb
-E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbprojAssemblyReference.cache
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.Resources.resources
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbproj.GenerateResource.cache
E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbproj.CoreCompileInputs.cache
diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbprojAssemblyReference.cache b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbprojAssemblyReference.cache
deleted file mode 100644
index 9b19151..0000000
Binary files a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbprojAssemblyReference.cache and /dev/null differ
diff --git a/App/SERV_EMAIL/App.config b/App/SERV_EMAIL/App.config
index 75a5be9..5756b83 100644
--- a/App/SERV_EMAIL/App.config
+++ b/App/SERV_EMAIL/App.config
@@ -26,6 +26,9 @@
dd
+
+ True
+
\ No newline at end of file
diff --git a/App/SERV_EMAIL/My Project/Settings.Designer.vb b/App/SERV_EMAIL/My Project/Settings.Designer.vb
index 67ab1db..2524d6f 100644
--- a/App/SERV_EMAIL/My Project/Settings.Designer.vb
+++ b/App/SERV_EMAIL/My Project/Settings.Designer.vb
@@ -100,6 +100,15 @@ Namespace My
Return CType(Me("FB_PW"),String)
End Get
End Property
+
+ _
+ Public ReadOnly Property LOGERRORS_ONLY() As Boolean
+ Get
+ Return CType(Me("LOGERRORS_ONLY"),Boolean)
+ End Get
+ End Property
End Class
End Namespace
diff --git a/App/SERV_EMAIL/My Project/Settings.settings b/App/SERV_EMAIL/My Project/Settings.settings
index accfe86..a4d1867 100644
--- a/App/SERV_EMAIL/My Project/Settings.settings
+++ b/App/SERV_EMAIL/My Project/Settings.settings
@@ -22,5 +22,8 @@
dd
+
+ True
+