(untagged)

Send Email With Attachments - VB.NET

ASP.NET Community

0.00/5 (No votes)

3 Nov 2009

Imports System.Net.MailPublic Shared Function SendMail(ByVal MailFrom As String, ByVal MailTo As String, ByVal MailSubject As String, ByVal

This articles was originally at wiki.asp.net but has now been given a new home on CodeProject. Editing rights for this article has been set at Bronze or above, so please go in and edit and update this article to keep it fresh and relevant.

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

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here