EmailProfiler/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb

Imports Independentsoft.Email
Imports Independentsoft.Email.Imap
Imports Independentsoft.Email.Mime
Imports DigitalData.EMLProfiler.ClassCurrent
Imports DigitalData.Modules.Logging
Imports AE
Imports System.Net
Imports System.Reflection
Imports System.IO

Public Class clsEmailIMAP
    Private Shared Logger As DigitalData.Modules.Logging.Logger

    Sub New(LogConf As LogConfig)
        Logger = LogConf.GetLogger
    End Sub
    'Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs)
    '    Logger.Info(e.Log)
    'End Sub

    'Public Function TestIMAPLogin(Server As String, Port As Integer, Username As String, Password As String, Inbox As String) As Boolean
    '    Logger.Debug("Testing Login to Server {0}:{1} with user {2}", Server, Port, Username)

    '    Try
    '        Logger.Debug("Connecting...")
    '        Using oClient As New S22.Imap.ImapClient(Server, Port, Username, Password, S22.Imap.AuthMethod.Login, True)
    '            If Not oClient.Authed Then
    '                Logger.Warn("Connected to server but authentication failed.")
    '                Return False
    '            End If
    '            Logger.Debug("Connection successful")

    '            Logger.Debug("Fetching MessageIds..")
    '            Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, Inbox)

    '            Logger.Debug("Found {0} messages", oMessageIds.Count)
    '            Logger.Debug("Fetching messages...")

    '            Dim oMessages As IEnumerable(Of Mail.MailMessage) = oClient.GetMessages(oMessageIds, False, Inbox)
    '            Logger.Debug("Messages fetched")

    '            oClient.Dispose()

    '            Return True
    '        End Using
    '    Catch ex As Exception
    '        Logger.Error(ex)
    '        Return False
    '    End Try
    'End Function

    Public Function FetchIMAPMessages(Server As String, Port As Integer, Username As String, Password As String, Inbox As String, Optional IsTest As Boolean = False) As Boolean
        Logger.Debug("Connecting to Server {0}:{1} with user {2}", Server, Port, Username)

        Try
            Logger.Debug("Connecting...")
            Using oClient As New S22.Imap.ImapClient(Server, Port, Username, Password, S22.Imap.AuthMethod.Login, True)
                If Not oClient.Authed Then
                    Logger.Warn("Connected to server but authentication failed.")
                    Return False
                End If
                Logger.Debug("Connection successful")

                Logger.Debug("Fetching MessageIds..")
                Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, Inbox)

                Logger.Debug("Found {0} messages", oMessageIds.Count)
                Logger.Debug("Fetching messages...")

                For Each oMessageId As UInteger In oMessageIds
                    Dim oMessage = oClient.GetMessage(oMessageId, False, Inbox)
                    Dim oTempPath = Path.GetTempFileName()
                    Dim oResult = WriteMessageToFile(oMessage, oTempPath)

                    Dim oMsg As New Message(oTempPath)
                    If IsTest = False Then
                        MAIL_LIST.Add(oMsg)
                    Else
                        Logger.Debug($"message correctly fetched. Mail has been downloaded to {oTempPath}")
                    End If


                    Try
                        If IsTest = False Then
                            File.Delete(oTempPath)
                        End If

                    Catch ex As Exception
                        Logger.Error(ex)
                        Logger.Warn("Temp file could not be deleted")
                    End Try
                Next

                Logger.Debug("Messages fetched")
            End Using
            Return True
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function

    ''' <summary>
    ''' Uses a private API from MailWriter to write a MailMessage to disk.
    ''' May break in future versions of .NET
    ''' </summary>
    Public Function WriteMessageToFile(Message As Mail.MailMessage, Filename As String) As Boolean
        Dim oAssembly As Assembly = GetType(Mail.SmtpClient).Assembly
        Dim oMailWriterType As Type = oAssembly.[GetType]("System.Net.Mail.MailWriter")

        Try
            Using oStream As New FileStream(Filename, FileMode.Create)
                Dim oMailWriterConstructor As ConstructorInfo = oMailWriterType.GetConstructor(
                    BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Type() {GetType(Stream)}, Nothing
                )
                Dim oMailWriter As Object = oMailWriterConstructor.Invoke(New Object() {oStream})
                Dim sendMethod As MethodInfo = GetType(Mail.MailMessage).GetMethod("Send", BindingFlags.Instance Or BindingFlags.NonPublic)
                sendMethod.Invoke(Message, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, {oMailWriter, True, True}, Nothing)
            End Using

            Return True
        Catch ex As Exception
            Return Nothing
        End Try
    End Function


    'Public Function IMAP_COLLECT()
    '    Try
    '        Logger.Info(String.Format("Working on IMAP_COLLECT....."))
    '        Logger.Debug(String.Format("Working on IMAP_COLLECT....."))
    '        Dim oClient As New Independentsoft.Email.Imap.ImapClient(MAIL_SERVER, MAIL_PORT)

    '        oClient.ValidateRemoteCertificate = False
    '        oClient.Connect()
    '        oClient.Login(MAIL_USER, MAIL_USER_PW)
    '        oClient.SelectFolder("Inbox")
    '        Dim oEnvelopes As Independentsoft.Email.Imap.Envelope() = oClient.ListMessages()
    '        Dim oCount As Integer = 0
    '        For i As Integer = 0 To oEnvelopes.Length - 1
    '            If Not IsNothing(oEnvelopes(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: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
    '                Dim oMessage As Mime.Message = oClient.GetMessage(oEnvelopes(i).UniqueID)
    '                If Not IsNothing(oMessage) Then
    '                    oCount += 1
    '                    MAIL_LIST.Add(oMessage)
    '                End If
    '                'End If
    '            End If
    '        Next
    '        oClient.Disconnect()
    '        Logger.Debug($"{oCount.ToString} messages will be worked..")
    '        Logger.Debug("IMAP_COLLECT finished!")
    '        Return True
    '    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 oLogPath = System.IO.Path.Combine(My.Application.Info.DirectoryPath, "Log\logindependentSoft.txt")
    '        Logger.Debug($"IsoftLog: {oLogPath}...")
    '        Dim oindependentLogger As New Independentsoft.Email.Logger(oLogPath)

    '        Dim oImapClient As New Independentsoft.Email.Imap.ImapClient(MYMAIL_SERVER, MYMAIL_PORT)
    '        oImapClient.Logger = oindependentLogger
    '        oImapClient.ValidateRemoteCertificate = False
    '        oImapClient.Connect()
    '        Logger.Debug($"oImapClient connected...")
    '        Try
    '            oImapClient.Login(MAIL_USER, MAIL_USER_PW, AuthenticationType.Login)
    '        Catch ex As Exception
    '            MsgBox($"Unexpected error in (oImapClient.Login): {ex.Message}")
    '            Logger.Info($"Unexpected error in oImapClient.Login - User: [{MYMAIL_USER}] PW: [{MYMAIL_USER_PW}]")
    '            Logger.Warn(ex.StackTrace.ToString)
    '            Logger.Warn(ex.Message)
    '            oImapClient.Logger.Close()
    '            Logger.Error(ex)
    '            Return False
    '        End Try

    '        oImapClient.SelectFolder(INBOXNAME)
    '        Dim oEnvelopes As Independentsoft.Email.Imap.Envelope() = oImapClient.ListMessages()

    '        For i As Integer = 0 To oEnvelopes.Length - 1
    '            If Not IsNothing(oEnvelopes(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: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
    '                Dim message As Mime.Message = oImapClient.GetMessage(oEnvelopes(i).UniqueID)
    '            End If
    '        Next

    '        oImapClient.Disconnect()
    '        oImapClient.Logger.Close()
    '        Logger.Info("TEST_IMAP_COLLECT finished!")
    '        Return True

    '    Catch ex As Exception
    '        Logger.Info($"Unexpected error in TEST_IMAP_COLLECT - User: [{MYMAIL_USER}] PW: [{MYMAIL_USER_PW}]")
    '        MsgBox($"Unexpected error in TEST_IMAP_COLLECT: {ex.Message}")
    '        Logger.Error(ex, "Unexpected Error in TEST_IMAP_COLLECT:")

    '        Return False
    '    End Try
    'End Function


End Class