EMAIL NAO CHEGAO AO DESTINO !!

WESLEI 09/08/2009 15:35:16
#319364

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