Simple Send Mail with VB.net

Imports System.Web.Mail

Imports System.IO

 

Public Sub SendEmailExt(ByVal From As String, _

    ByVal sendTo As String, ByVal Subject As String, _

    ByVal Body As String, _

    Optional ByVal AttachmentFiles As ArrayList = Nothing, _

    Optional ByVal CC As String = "", _

    Optional ByVal BCC As String = "", _

    Optional ByVal SMTPServer As String = "")

 

    Dim myMessage As MailMessage

    Dim i, iCnt As Integer

 

    Try

        myMessage = New MailMessage()

        With myMessage

            .To = sendTo

            .From = From

            .Subject = Subject

            .Body = Body

            .BodyFormat = MailFormat.Text

            'CAN USER MAILFORMAT.HTML if you prefer

 

            If CC <> "" Then .Cc = CC

            If BCC <> "" Then .Bcc = ""

 

            If Not AttachmentFiles Is Nothing Then

                iCnt = AttachmentFiles.Count - 1

                For i = 0 To iCnt

                    If FileExists(AttachmentFiles(i)) Then .Attachments.Add(AttachmentFiles(i))

                Next

 

            End If

 

        End With

 

        If SMTPServer <> "" Then _

            SmtpMail.SmtpServer = SMTPServer

 

        SmtpMail.Send(myMessage)

 

    Catch myexp As Exception

        Throw myexp

    End Try

End Sub

 

Private Function FileExists(ByVal FileFullPath As String) As Boolean

    If Trim(FileFullPath) = "" Then Return False

 

    Dim f As New IO.FileInfo(FileFullPath)

    Return f.Exists

End Function