ENVIO DE E-MAIL SEM APARECER O REMETENTE.
Boa tarde, pessoal.
Utilizo uma rotina para enviar e-mail. Quando o usuário se esquece da senha é enviado um e-mail a ele para informá-lo. Só gostaria de saber se existe uma maneira de fazer com que o campo de: do e-mail ficasse em branco, não mostrando o endereço de e-mail que está enviando.
Faço assim:
[ô] No botão Enviar:
Private Sub BtnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnviar.Click
Dim var_enviarsenha As String = criptografar(drusuarios([Ô]senha[Ô]))
Dim var_remetente As String = [Ô][Ô]
Dim var_assunto As String = [Ô]Administrador Sistema Magma[Ô]
Dim var_destinatario1 As String = var_destinatario
Dim var_corpo As String = [Ô]<BR>[Ô] & [Ô]<BR>[Ô] & [Ô]Seu nome de usuário é: [Ô] & TxtUsuario.Text & [Ô]<BR>[Ô] & [Ô]<BR>[Ô] & _
[Ô]Sua senha para acessar o Sistema é: [Ô] & var_enviarsenha & [Ô]<BR>[Ô] & [Ô]<BR>[Ô]
EnviaEmail(var_remetente, var_destinatario1, var_assunto, var_corpo, var_smtp, Net.Mail.MailPriority.High)
End Sub
[ô] Rotina para enviar e-mail
Public Sub EnviaEmail(ByVal vRemetente As String, ByVal vDestinatario As String, ByVal vAssunto As String, ByVal vCorpo As String, ByVal vSMTP As String, ByVal vPrioridade As Net.Mail.MailPriority)
Dim oEmail As New System.Net.Mail.MailMessage(var_usuario, var_destinatario)
Dim oSmtp As New System.Net.Mail.SmtpClient
Dim success As Boolean = False
oEmail.IsBodyHtml = True
oEmail.Body = vCorpo
oEmail.Subject = vAssunto
oEmail.Priority = vPrioridade
oSmtp.Host = vSMTP
oSmtp.Credentials = New System.Net.NetworkCredential(var_usuario, var_senha)
[ô]oSmtp.UseDefaultCredentials = True
oSmtp.Port = var_porta
Try
oSmtp.Send(oEmail)
success = True
MessageBox.Show([Ô]Sua senha foi enviada para o e-mail: [Ô] & vDestinatario, [Ô]Sucesso no envio de e-mail[Ô], MessageBoxButtons.OK)
Me.Dispose()
Me.Close()
Catch ex As Exception
MessageBox.Show([Ô]Falha no envio do e-mail, porque ocorreu o seguinte erro:[Ô] & vbCrLf & vbCrLf & _
ex.Message, _
[Ô]Erro no envio do e-mail[Ô], _
MessageBoxButtons.OK, MessageBoxIcon.Error)
success = False
End Try
End Sub
Até mais.
Utilizo uma rotina para enviar e-mail. Quando o usuário se esquece da senha é enviado um e-mail a ele para informá-lo. Só gostaria de saber se existe uma maneira de fazer com que o campo de: do e-mail ficasse em branco, não mostrando o endereço de e-mail que está enviando.
Faço assim:
[ô] No botão Enviar:
Private Sub BtnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnviar.Click
Dim var_enviarsenha As String = criptografar(drusuarios([Ô]senha[Ô]))
Dim var_remetente As String = [Ô][Ô]
Dim var_assunto As String = [Ô]Administrador Sistema Magma[Ô]
Dim var_destinatario1 As String = var_destinatario
Dim var_corpo As String = [Ô]<BR>[Ô] & [Ô]<BR>[Ô] & [Ô]Seu nome de usuário é: [Ô] & TxtUsuario.Text & [Ô]<BR>[Ô] & [Ô]<BR>[Ô] & _
[Ô]Sua senha para acessar o Sistema é: [Ô] & var_enviarsenha & [Ô]<BR>[Ô] & [Ô]<BR>[Ô]
EnviaEmail(var_remetente, var_destinatario1, var_assunto, var_corpo, var_smtp, Net.Mail.MailPriority.High)
End Sub
[ô] Rotina para enviar e-mail
Public Sub EnviaEmail(ByVal vRemetente As String, ByVal vDestinatario As String, ByVal vAssunto As String, ByVal vCorpo As String, ByVal vSMTP As String, ByVal vPrioridade As Net.Mail.MailPriority)
Dim oEmail As New System.Net.Mail.MailMessage(var_usuario, var_destinatario)
Dim oSmtp As New System.Net.Mail.SmtpClient
Dim success As Boolean = False
oEmail.IsBodyHtml = True
oEmail.Body = vCorpo
oEmail.Subject = vAssunto
oEmail.Priority = vPrioridade
oSmtp.Host = vSMTP
oSmtp.Credentials = New System.Net.NetworkCredential(var_usuario, var_senha)
[ô]oSmtp.UseDefaultCredentials = True
oSmtp.Port = var_porta
Try
oSmtp.Send(oEmail)
success = True
MessageBox.Show([Ô]Sua senha foi enviada para o e-mail: [Ô] & vDestinatario, [Ô]Sucesso no envio de e-mail[Ô], MessageBoxButtons.OK)
Me.Dispose()
Me.Close()
Catch ex As Exception
MessageBox.Show([Ô]Falha no envio do e-mail, porque ocorreu o seguinte erro:[Ô] & vbCrLf & vbCrLf & _
ex.Message, _
[Ô]Erro no envio do e-mail[Ô], _
MessageBoxButtons.OK, MessageBoxIcon.Error)
success = False
End Try
End Sub
Até mais.
Caro, PERCIFILHO
Não é possivel ocultar esta informação pois ela fica em seu corpo do email
Não importa o que vc coloca ou não no cabeçalho do email
Para descobrir de onde patiu o email siga as instruções:
Click com o botão direito sobre seu email na caixa de entrada
Escolha a opção Propriedades e entre nela
Tem duas abas Geral e Detalhes
Entre na Aba DETALHES
TODAS AS INFORMAÇÕES DO SEU EMAIL...................
Olhe estas linhas
Message-ID: <QWE2345678U9A491198AED2D9DAE5B68E@teste>
From: <none@empresateste.com.br>
To: <nomedoemailaserrespondido@empresalocal.com.br>
Subject: Texto local do corpo do email
Nesta ABA ficam todas as informações do Servidor de email, provedor de internete de onde partiu suas informações de envio de email
Por esta Aba tem como saber quem envio o email e toas as informações do verdadeiro local e contas de envio deste email.
Não é possivel ocultar informações do corpo do email
Provedor
Remetente
Destinatário
ID da menssagem (muito usado em ações de espionagem para comprovação de ação criminal........)
Boa sorte.............
Não é possivel ocultar esta informação pois ela fica em seu corpo do email
Não importa o que vc coloca ou não no cabeçalho do email
Para descobrir de onde patiu o email siga as instruções:
Click com o botão direito sobre seu email na caixa de entrada
Escolha a opção Propriedades e entre nela
Tem duas abas Geral e Detalhes
Entre na Aba DETALHES
TODAS AS INFORMAÇÕES DO SEU EMAIL...................
Olhe estas linhas
Message-ID: <QWE2345678U9A491198AED2D9DAE5B68E@teste>
From: <none@empresateste.com.br>
To: <nomedoemailaserrespondido@empresalocal.com.br>
Subject: Texto local do corpo do email
Nesta ABA ficam todas as informações do Servidor de email, provedor de internete de onde partiu suas informações de envio de email
Por esta Aba tem como saber quem envio o email e toas as informações do verdadeiro local e contas de envio deste email.
Não é possivel ocultar informações do corpo do email
Provedor
Remetente
Destinatário
ID da menssagem (muito usado em ações de espionagem para comprovação de ação criminal........)
Boa sorte.............
Valeu, então, muito obrigado pela informação.
Até mais.
Até mais.
Tópico encerrado , respostas não são mais permitidas