Sending Email with Attachments using VB.NET

Category:

C#, VB.NET, ASP.NET

Type:

Snippets

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic.NET

More information:

The following snippet of code demonstrates sending email with attachments using VB.NET/ASP.NET.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
<MAyank Jain Jaipur> Dim strbody As New StringBuilder("Hi") Dim objMail As New System.Net.Mail.MailMessage()

Code:

strbody.Append(Environment.NewLine)
        strbody.Append(Environment.NewLine)
        strbody.Append("(Happy Programming)")
        strbody.Append(Environment.NewLine)
        'strbody.

'Dim builder As StringBuilder = New StringBuilder("Hello C# World!", 20)
        'Dim cap As Int16 = builder.EnsureCapacity(55)
        'builder.Append(". This is a class test.")
        
        strbody.Append(Environment.NewLine)
        strbody.Append(Environment.NewLine)
        strbody.Append("Regards")
        strbody.Append(Environment.NewLine)

Dim frmaddress As New System.Net.Mail.MailAddress("abc@xyx.com")
        Dim attachement As New System.Net.Mail.Attachment(strPath)

objMail.To.Add(strMail)
        objMail.From = frmaddress
        objMail.Subject = "Healthsheet Report for " & strHSSubject
        objMail.Priority = Net.Mail.MailPriority.High
        objMail.IsBodyHtml = True
        objMail.Body = strbody.ToString
        If strPath <> "" Then
            Sleep(6000)             objMail.Attachments.Add(attachement)
        End If

Dim SmtMail As New System.Net.Mail.SmtpClient
        SmtMail.Send(objMail)