Messaging: Add Email2 Class using Limilabs Mail.dll

GUIs.Test.TestGUI/frmEmail.vb

@@ -0,0 +1,64 @@
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Messaging
+Imports Limilabs.Mail
+
+Public Class frmEmail
+    Private Logconfig As LogConfig
+    Private Email As Email2
+
+    Private Sub frmEmail_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Logconfig = New LogConfig(LogConfig.PathType.Temp)
+        Email = New Email2(Logconfig)
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        Dim oResult = Email.Test_Login(txtServer.Text, txtUser.Text, txtPassword.Text, Email2.EmailSecurity.SSL)
+
+        If oResult = True Then
+            AddLog($"Connection to {txtServer.Text} successful.")
+        Else
+            AddLog($"Connection to {txtServer.Text} failed!")
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim oMessages = Email.Get_Messages(txtServer.Text, txtUser.Text, txtPassword.Text, Email2.EmailSecurity.SSL, "Inbox")
+        AddLog($"Found {oMessages.Count} Messages!")
+
+        For Each oMessage In oMessages
+            AddLog(oMessage.MessageID)
+        Next
+    End Sub
+
+    Private Sub AddLog(pMessage)
+        ListBox1.Items.Add(pMessage)
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim oMessageId As String = txtMessageID.Text
+        Dim oMail As IMail = Email.Get_Message(txtServer.Text, txtUser.Text, txtPassword.Text, Email2.EmailSecurity.SSL, oMessageId, "Inbox")
+        Dim oFilename As String = IO.Path.GetTempFileName
+        oMail.Save(oFilename)
+
+        AddLog($"Mail saved to {oFilename}")
+
+        Dim oEmailTempPath = Email.Remove_AttachmentsFromEmail(oFilename)
+
+        AddLog($"Mail without attachments saved to {oEmailTempPath}")
+
+        Dim oAttachments As List(Of String) = Email.Save_AttachmentsToDisk(oFilename)
+
+        For Each oAttachment In oAttachments
+            AddLog($"Attachmen saved to {oAttachment}")
+        Next
+    End Sub
+
+    Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged
+        txtMessageID.Text = ListBox1.SelectedItem
+    End Sub
+
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
+        txtMessageID.Text = ListBox1.SelectedItem
+    End Sub
+End Class