DeveloperBarn

Imports System.Net.Mail
Namespace MyApp.Utilities
    Public Class Email
        Public Shared Function SendEmail(ByVal emailTo As String, ByVal emailFrom As String, _
                                         ByVal emailSubject As String, ByVal emailBody As String, _
                                         ByVal cc As String, ByVal bcc As String, ByVal priority As MailPriority, _
                                         ByVal isEmailHtml As Boolean, ByVal sendAsync As Boolean) As Boolean
            Dim usrEmail As New MailMessage
            Dim usrEmailFrom As New MailAddress(emailFrom)
            usrEmail.From = usrEmailFrom
            getEmailTo(emailTo, usrEmail)
            getEmailCC(cc, usrEmail)
            getEmailBcc(bcc, usrEmail)
            usrEmail.Subject = emailSubject
            usrEmail.Body = emailBody
            usrEmail.IsBodyHtml = isEmailHtml
            usrEmail.Priority = priority
            Dim smtp As New SmtpClient
            If sendAsync Then
                smtp.SendAsync(usrEmail, Nothing)
            Else
                smtp.Send(usrEmail)
            End If
            usrEmail = Nothing
            Return True
        End Function
        Private Shared Sub getEmailTo(ByVal emailto As String, ByVal usrEmail As MailMessage)
            Dim arrayEmailTo As Array = emailto.Split(CChar(";"))
            Dim emailAddress As String = ""
            For Each emailAddress In arrayEmailTo
                If Trim(emailAddress) <> "" Then
                    usrEmail.To.Add(emailAddress)
                End If
            Next
        End Sub
        Private Shared Sub getEmailCC(ByVal emailcc As String, ByVal usrEmail As MailMessage)
            Dim arrayEmailTo As Array = emailcc.Split(CChar(";"))
            Dim emailAddress As String = ""
            For Each emailAddress In arrayEmailTo
                If Trim(emailAddress) <> "" Then
                    usrEmail.To.Add(emailAddress)
                End If
            Next
        End Sub
        Private Shared Sub getEmailBcc(ByVal emailbcc As String, ByVal usrEmail As MailMessage)
            Dim arrayEmailTo As Array = emailbcc.Split(CChar(";"))
            Dim emailAddress As String = ""
            For Each emailAddress In arrayEmailTo
                If Trim(emailAddress) <> String.Empty Then
                    .To.Add(emailAddress)
                End If
            Next
        End Sub
    End Class
End Namespace

Private Shared Sub getEmailTo(ByVal emailto As String, ByVal usrEmail As MailMessage)
            Dim arrayEmailTo As Array = emailto.Split(CChar(";"))
            Dim emailAddress As String = ""
            For Each emailAddress In arrayEmailTo
                If Trim(emailAddress) <> "" Then
                    usrEmail.To.Add(emailAddress)
                End If
            Next
        End Sub
        Private Shared Sub getEmailCC(ByVal emailcc As String, ByVal usrEmail As MailMessage)
            Dim arrayEmailTo As Array = emailcc.Split(CChar(";"))
            Dim emailAddress As String = ""
            For Each emailAddress In arrayEmailTo
                If Trim(emailAddress) <> "" Then
                    usrEmail.To.Add(emailAddress)
                End If
            Next
        End Sub
        Private Shared Sub getEmailBcc(ByVal emailbcc As String, ByVal usrEmail As MailMessage)
            Dim arrayEmailTo As Array = emailbcc.Split(CChar(";"))
            Dim emailAddress As String = ""
            For Each emailAddress In arrayEmailTo
                If Trim(emailAddress) <> String.Empty Then
                    .To.Add(emailAddress)
                End If
            Next
        End Sub