Modules/Messaging/Mail/MailSender.vb

Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Imports Limilabs.Client.SMTP
Namespace Mail
    Public Class MailSender
        Inherits BaseClass

        Private Property MailSession As MailSession

        Public ReadOnly Property Connected2Server As Boolean
            Get
                Return MailSession.Session.Connected
            End Get
        End Property

        Public Sub New(pLogConfig As LogConfig)
            MyBase.New(pLogConfig)
            MailSession = New MailSession(pLogConfig, New Smtp)
            Limilabs.Mail.Log.Enabled = pLogConfig.Debug
        End Sub

        Public Function Connect(pServer As String, pPort As Integer, pUser As String, pPassword As String, pAuthType As String) As MailSession.SessionInfo
            Return MailSession.ConnectToServerWithBasicAuth(pServer, pPort, pUser, pPassword, pAuthType, New MailSession.MailSessionOptions)
        End Function

        Public Function Connect(pServer As String, pPort As Integer, pUser As String, pPassword As String, pAuthType As String, pOptions As MailSession.MailSessionOptions) As MailSession.SessionInfo
            Return MailSession.ConnectToServerWithBasicAuth(pServer, pPort, pUser, pPassword, pAuthType, pOptions)
        End Function

        Public Function Disconnect() As Boolean
            Return MailSession.DisconnectFromServer()
        End Function

        Public Function SendMail(pSendTo As List(Of String), pSendFrom As String, pSubject As String, pBody As String, pCreationTime As Date, pAttachments As List(Of String), pTest As Boolean) As Boolean
            Dim oSuccessfulSends As New List(Of String)
            Dim oFailedSends As New List(Of String)

            For Each oSendToAddress In pSendTo
                Dim oResult = SendMailTo(oSendToAddress, pSendFrom, pSubject, pBody, pCreationTime, pAttachments, pTest)

                If oResult = True Then
                    oSuccessfulSends.Add(oSendToAddress)
                Else
                    oFailedSends.Add(oSendToAddress)
                End If
            Next

            Logger.Debug("Sent [{0}] mails.", pSendTo.Count)
            Logger.Debug("Successful [{0}]", oSuccessfulSends.Count)
            Logger.Debug("Failed [{0}]", oFailedSends.Count)

            Return True
        End Function

        Private Function SendMailTo(pSendTo As String, pSendFrom As String, pSubject As String, pBody As String, pCreationTime As Date, pAttachments As List(Of String), pTest As Boolean)
            Try
                Dim oClient As Smtp = DirectCast(MailSession.Client, Smtp)

                If IsNothing(oClient) Then
                    Logger.Warn("Client is nothing! Exiting.")
                    Return False
                End If

                Logger.Debug("Preparing to send mail to [{0}]", pSendTo)

                Dim oMailBuilder As New Limilabs.Mail.MailBuilder()
                oMailBuilder.From.Add(New Limilabs.Mail.Headers.MailBox(pSendFrom))
                oMailBuilder.To.Add(New Limilabs.Mail.Headers.MailBox(pSendTo))
                oMailBuilder.Subject = pSubject

                Logger.Debug("Setting body for mail")
                oMailBuilder = SetBody(oMailBuilder, pBody, pCreationTime, pTest)

                Logger.Debug("Adding [{0}] attachments to mail", pAttachments.Count)
                oMailBuilder = AddAttachments(oMailBuilder, pAttachments)

                Logger.Debug("Now sending mail..")
                Dim oMail = oMailBuilder.Create()
                oClient.SendMessage(oMail)
                Logger.Info("Mail to [{0}] has been sent.", pSendTo)

                Return True

            Catch ex As Exception
                Logger.Warn("Error while sending mail to [{0}]", pSendTo)
                Logger.Error(ex)

                Return False
            End Try
        End Function

        Private Function SetBody(pMailBuilder As Limilabs.Mail.MailBuilder, pBody As String, pCreationTime As Date, pTest As Boolean) As Limilabs.Mail.MailBuilder
            If pCreationTime <> Date.MinValue Then
                pBody &= $"<p>Creation-time: {pCreationTime}</p>"
            End If

            If pTest Then
                pBody = $"<p>This Is a Testmail!<br/>
                            The body-text will be replaced within profile!<br/>
                            Server/Port: {MailSession.Session.Server}/{MailSession.Session.Port}<br/> 
                            User: {MailSession.Session.User}<br/>
                            Password: XXXX<br/>
                            Auth Type: {MailSession.Session.AuthType}</p>"
            End If

            Logger.Debug("Final Mailbody is: [{0}]", pBody)
            pMailBuilder.Html = pBody

            Return pMailBuilder
        End Function

        Private Function AddAttachments(pMailBuilder As Limilabs.Mail.MailBuilder, pAttachments As List(Of String)) As Limilabs.Mail.MailBuilder
            For Each oAttachment In pAttachments
                Try
                    ' Read attachment from disk, add it to Attachments collection
                    If IO.File.Exists(oAttachment) Then
                        Logger.Debug("Adding attachment [{0}] to mail.", oAttachment)
                        pMailBuilder.AddAttachment(oAttachment)
                    Else
                        Logger.Warn("Attachment [{0}] does not exist. Skipping.", oAttachment)
                    End If
                Catch ex As Exception
                    Logger.Warn("Could not read or add attachment [{0}]!", oAttachment)
                    Logger.Error(ex)
                End Try
            Next

            Return pMailBuilder
        End Function
    End Class
End Namespace