Thread: Email Class

This is an email class that a few of us use where I work:

Code:

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

To use:

• Import MyApp.Utilities
• Call Email.SendEmail and provide the appropriate parameters

J, i think you have a small problem in ur code.
It should be this

Code:

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

And it shows all the emails in TO field

Thanks M, I had to type this all out because the code is on a separate network here at work. Simple typo

As far as the emails in the TO field, we'll discuss that in your thread. The above code is designed to do that, but I mentioned in your thread how to do this.