How to Send an Attachment Using VB.NET

Category:

C#, VB.NET, ASP.NET

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic.NET

More information:

This snippet of code shows you how to send an attachment using VB.NET. Be sure to change the value passed to System.Net.Mail.MailAddress()

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

Declarations:
Dim strbody As New StringBuilder("Hello vb.net World!",") Dim objMail As New System.Net.Mail.MailMessage()

Code:

strbody.Append(Environment.NewLine)
       strbody.Append(Environment.NewLine)
       strbody.Append("This is a class test.")
       strbody.Append(Environment.NewLine)
       'strbody.

strbody.Append(strMailbody)
       strbody.Append(Environment.NewLine)
       strbody.Append(Environment.NewLine)
       strbody.Append("Regards")
       strbody.Append(Environment.NewLine)
       strbody.Append("xyz.abc.com")

Dim frmaddress As New System.Net.Mail.MailAddress("xyz.abc.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)