Email Não Dispara ! Novato em vb.net

[weslei.conexao 0]

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

[quintelab 91]

Movido .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Dúvidas Gerais

 

O problema não esta no seu código, seu e-mail esta sendo enviado.

Vou mover para Dúvidas Gerais que mais membros poderão te auxiliar sobre como seu e-mail não ser considerado spam.

 

Abraços...