Metodo enviar correo desde vb.NET

Shared Sub enviarCorreoEjemplo() Try correos.To.Clear() correos.Body = "" correos.Subject = "" correos.Body = "<p> </p>" & "<table width='300' border='1' cellspacing='5' cellpadding='5' align='center'>" & 'Reemplace por los encabezados deseados "<tr>" & "<td align='center'>" & "Id " & "</td>" & "<td align='center'>" & "Asunto " & "</td>" & "<td align='center'>" & "Nombre de Empleado " & "</td>" & "<td align='center'>" & "Id de Empleado " & "</td>" & "<td align='center'>" & "Monto de pago " & "</td>" & "<td align='center'>" & "Fecha " & "</td>" & "</tr>" & 'Reemplace por los datos que desea mostrar "<tr>" & "<td align='center'>" & id1 & "</td>" & "<td align='center'>" & asunto1 & "</td>" & "<td align='center'>" & nombreEmpleado1 & "</td>" & "<td align='center'>" & idEmpleado1 & "</td>" & "<td align='center'>" & monto1 & "</td>" & "<td align='center'>" & fecha & "</td>" & "</tr>" & "</table>" correos.Subject = " & asunto1 & " correos.IsBodyHtml = True correos.To.Add(Trim("CorreoDestinatario")) correos.From = New MailAddress("correoQueEnvia") envios.Credentials = New NetworkCredential("correoQueEnvia", "contraseña") 'Datos importantes no modificables para tener acceso a las cuentas 'Modificar solamente si se usa otro servidor que no sea el outlook o hotmail envios.Host = "smtp.live.com" envios.Port = 25 envios.EnableSsl = True envios.Send(correos) MsgBox("El mensaje fue enviado correctamente. ", MsgBoxStyle.Information, "Mensaje") Catch ex As Exception MessageBox.Show(ex.Message, "Mensajeria 1.0 vb.net ®", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub