Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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)
nextCarregando comentários...