Email Não Dispara ! Novato em vb.net

Olá amigos, tenho essa sub que dispara emails, os dados são filtrados através de um datagridview, ai com o for each faço um lop passando o valor da primeita coluna, resgatando os valores do banco de dados ,e enviando !! só que o email não chega ao destino, recebo de volta em minha caixa de entrada com esta mensagem: "O servidor de saida considerou sua mensagem Spam " O que Está errado? qual a melhor maneira de fazer isso?? Alguma dica pessoal... abraços !!

Private Sub disparaEmail()
Try
Dim conexao As SqlConnection = New SqlConnection(My.Settings.DADOSConnectionString)
Dim CMDS As SqlCommand
Dim DRS As SqlDataReader
conexao.Open()

For Each col As DataGridViewRow In gridOrcamento.Rows
CMDS = New SqlCommand("SP_CARREGA_ORCAMENTO", conexao)
CMDS.CommandType = CommandType.StoredProcedure
CMDS.Parameters.AddWithValue("@COD_ORC", CType(col.Cells(0).Value, Integer))
DRS = CMDS.ExecuteReader
If DRS.Read Then
vcodOcamento = DRS("COD_ORC").ToString
vnomeCli = DRS("NOME_CLI").ToString
vcodCliText = DRS("COD_CLI").ToString
vqtdCestaText = DRS("QTD_CESTA").ToString
vvendedorComboBox = DRS("NOME_VEND").ToString
vdataOrcamento = FormatDateTime(DRS("DATA_ORC").ToString, DateFormat.ShortDate)
End If
DRS.Close()
Dim SMTP As New SmtpClient("smtp.meusite.com.br")
SMTP.Credentials = New Net.NetworkCredential("meuemail@meuemail.com.br", "minhasenha")
SMTP.Timeout = 3000

 MENSAGEM.Body += "<table width='740' border='0'>"
 MENSAGEM.Body += "<tr>"
 MENSAGEM.Body += "<td width='62' height='27'>Número :</td>"
 MENSAGEM.Body += "<td width='96'>" + vcodOcamento + "</td>"
 MENSAGEM.Body += "<td width='283'>10 </td>"
 MENSAGEM.Body += "<td width='75'>Vendedor :</td>"
 MENSAGEM.Body += "<td width='144'>" + vvendedor + "</td>"
 MENSAGEM.Body += "</tr>"
 MENSAGEM.Body += "<tr>"
 MENSAGEM.Body += "<td>Cliente : </td>"
 MENSAGEM.Body += "<td colspan='4'>" + vnomeCli + "</td>"
 MENSAGEM.Body += "<tr>"
 MENSAGEM.Body += "<td>Email:</td>"
 MENSAGEM.Body += "<td colspan='4'>vemailCli </td>"
 MENSAGEM.Body += "<td>Telefone : </td>"
 MENSAGEM.Body += "<td>" + vtelTextBox + "</td>"
 MENSAGEM.Body += "</tr>"
 MENSAGEM.Body += "</table>"

 MENSAGEM.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
 MENSAGEM.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
 MENSAGEM.IsBodyHtml = True

 'ENVIAR EMAIL

 SMTP.Send(MENSAGEM)

 next