MS_Divers

App/DigitalData.EMLProfiler/clsEmail.IMAP.vb

@@ -71,11 +71,13 @@ Public Class clsEmailIMAP
                     Dim oMessage = oClient.GetMessage(oMessageId, False, Inbox)
                     Dim oTempPath = Path.GetTempFileName()
                     Dim oResult = WriteMessageToFile(oMessage, oTempPath)
-
+                    Dim oCount As Integer = 0
                     Dim oMsg As New Message(oTempPath)
+                    oCount &= 1
                     If IsTest = False Then
                         MAIL_LIST.Add(oMsg)
                     Else
+                        Logger.Info($"IMAP-Test Message#: {oCount} - Msgsubject is: {oMsg.Subject}")
                         Logger.Debug($"message correctly fetched. Mail has been downloaded to {oTempPath}")
                     End If