use S22.Imap for fetching Messages

App/CONFIG_APP/frmMain.vb

@@ -664,9 +664,13 @@ Public Class frmMain
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         My.Settings.Save()
         Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text)
-        If _emailIMAP.TEST_IMAP_COLLECT(txtInboxname.Text, EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain) = False Then
-            MsgBox("Access Imap NOT successfull", MsgBoxStyle.Critical)
 
+        Dim oResult = _emailIMAP.TestIMAPLogin(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text)
+
+        If oResult = False Then
+            MsgBox("Access Imap NOT successfull", MsgBoxStyle.Critical)
+        Else
+            MsgBox("Test Successful!", MsgBoxStyle.Information)
         End If
     End Sub