Send Email With Attachments - VB.NET

Imports System.Net.Mail

Public Shared Function SendMail(ByVal MailFrom As String, ByVal MailTo As String, ByVal MailSubject As String, ByVal MailBody As String, Optional ByVal MailCC As String = "", Optional ByVal MailBCC As String = "", Optional ByVal MyMailPriority As MailPriority = MailPriority.Normal, Optional ByVal IsBodyHtml As Boolean = False, Optional ByVal Attachment1 As String = "-999", Optional ByVal Attachment2 As String = "-999", Optional ByVal Attachment3 As String = "-999", Optional ByVal MailFromName As String = "-999") As Boolean
        Try
            Dim ObjSendMail As New MailMessage(MailFrom, MailTo, MailSubject, MailBody)
            If MailFromName <> "-999" Then
                ObjSendMail.From = New MailAddress(MailFrom, MailFromName)
            End If
            If Attachment1 <> "-999" Then
                Try
                    ObjSendMail.Attachments.Add(New Attachment(Attachment1))
                Catch ex As Exception
                End Try
            End If
            If Attachment2 <> "-999" Then
                Try
                    ObjSendMail.Attachments.Add(New Attachment(Attachment2))
                Catch ex As Exception
                End Try
            End If
            If Attachment3 <> "-999" Then
                Try
                    ObjSendMail.Attachments.Add(New Attachment(Attachment3))
                Catch ex As Exception
                End Try
            End If
            If IsBodyHtml = True Then
                ObjSendMail.IsBodyHtml = True
            Else
                ObjSendMail.IsBodyHtml = False
            End If
            If MailCC > "" Then
                ObjSendMail.CC.Add(MailCC)
            End If
            If MailBCC > "" Then
                ObjSendMail.Bcc.Add(MailBCC)
            End If
            ObjSendMail.Priority = MyMailPriority
            Dim client As New SmtpClient(mysmtpserver)
            client.Send(ObjSendMail)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

You must Login to comment.