How to send HTML table format email?

Private Sub SendEmail()
 
         Dim body As String = Me.PopulateBody
         Me.SendHtmlFormattedEmail(Session("email"), ".", body)
         Session.Remove("email")
End Sub

Private Sub SendHtmlFormattedEmail(ByVal recepientEmail As String, ByVal subject As String, ByVal body As String)
    Dim client As New SmtpClient()
    Dim mail As New MailMessage()
    mail.Body = body
    mail.[To].Add(recepientEmail)
    mail.Subject = "THE STOCK LOG"
    mail.IsBodyHtml = True
    client.Send(mail)
End Sub

Private Function PopulateBody() As String
       Dim data As SqlDataReader
       cmd = New SqlCommand
       cmd.Connection = conn
       cmd.CommandText = ("Select itemid, itemdes, balqty from tbl_stock_bal where itemid ='" & Me.txttItemID.Text & "'")
       cmd.CommandType = CommandType.Text
       conn.Open()
       data = cmd.ExecuteReader
 
       If (data.Read) Then
           Dim itemid As String = data.Item("itemid")
           Dim itemdes As String = data.Item("itemdes")
           Dim qty As String = data.Item("balqty")
 
 
 
 
       Dim body As String = String.Empty
       'Dim mail As New MailMessage()
       Dim reader As StreamReader = New StreamReader(Server.MapPath("Materials.html"))
       body = reader.ReadToEnd
       body = body.Replace("{Date}", Date.Now)
       body = body.Replace("{itemid}", itemid)
       body = body.Replace("{itemdes}", itemdes)
       body = body.Replace("{balqty}", qty)
       Session("email") = "maideen5@hotmail.com"
       Return body
End If
       cmd = Nothing
       conn.Close()
   End Function