Automatic email after Coded UI Test execution

Dim message As MailMessage = New MailMessage
        Dim ggProcess As New Process

        ggProcess = Process.Start("EXCEL.EXE")

        ggProcess.Kill()
        Dim message1 As MailMessage = New MailMessage
        Dim ggProcess1 As New Process

                    proc(i).CloseMainWindow()

        Next i


        message.From = New MailAddress("mail id")

        message.To.Add(New MailAddress("mail id"))
        message.To.Add(New MailAddress("mail id"))



        message.To.Add(New MailAddress("mail id"))

       


        Dim oAttch As System.Net.Mail.Attachment = New System.Net.Mail.Attachment("Path")


        'Dim oAttch1 As System.Net.Mail.Attachment = New System.Net.Mail.Attachment(report")
        'Dim oAttch2 As System.Net.Mail.Attachment = New System.Net.Mail.Attachment("report")
        message.Attachments.Add(oAttch)
        'message.Attachments.Add(oAttch1)
        'message.Attachments.Add(oAttch2)
        Dim reader As StreamReader = New StreamReader("path")
        message.Body = reader.ReadToEnd()
        message.IsBodyHtml = True
        Dim client As SmtpClient = New SmtpClient()
        Dim smtp As SmtpClient = New SmtpClient
        smtp.Host = ("smtp server name")
        smtp.EnableSsl = Convert.ToBoolean(True)//Optional
         NetworkCred.UserName = ("mail id")
        NetworkCred.Password = ("pwd")
        smtp.UseDefaultCredentials = True
        smtp.Credentials = NetworkCred
        smtp.Port = Integer.Parse("number")
        smtp.Send(message)