Imports
System.Net.Mail
Public
Class frmEmail
Private Sub EnviarEmail()
Dim email As New MailMessage() 'Criar o objeto email
email.From = New MailAddress("coloque aqui o
seu e-mail") 'Informar quem esta enviando
o e-mail
email.[To].Add(TxtEmail.Text) 'Para quem eu
quero mandar o e-mail
'Arquivo em anexo
'email.Attachments.Add(New
Attachment(FileUpload1.PostedFile.FileName))
'Dim strTipo
As String = FileUpload1.PostedFile.ContentType
email.Subject = "RECUPERAÇÃO DE SENHA" 'Asssunto
'Conteudo
email.Body = "OLÁ " &
Trim(UCase(TxtNome.Text)) & ",
<div>Estamos enviando seu pedido de recuperação de
senhas.<div>" & _
"Login:
" & LbLogin.Text & "<div>"
& _
"Senha: " &
LbSenha.Text
email.IsBodyHtml = True 'HTML ou não
email.Priority
= MailPriority.Normal 'Prioridade
Dim
smtpClient As New
SmtpClient()
smtpClient.Send(email)
Fn.Alerta("E-MAIL ENVIADO COM
SUCESSO!!!", Page)
'TxtEmail.Text = [String].Empty
'Fn.LimpaForm(Page.Controls)
BtnEnviar.Enabled = False
End Sub
End
Class
Protected Sub envia()
ResponderExcluirDim Mensagem As New System.Net.Mail.MailMessage
Mensagem.From = New System.Net.Mail.MailAddress("endereco@email")
Mensagem.To.Add("endereco@email")
Mensagem.Subject = "TEste"
Mensagem.IsBodyHtml = True
Mensagem.Priority = Net.Mail.MailPriority.High
Mensagem.Body = txt_Corpo.Text
Mensagem.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
Mensagem.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
'*******AGORA É O SMTP ENVIANDO O OBJOTO MENSAGEM**************
Dim Enviar As New System.Net.Mail.SmtpClient
Enviar.Host = "smtp.email.com.br"
Enviar.Port = 25
Enviar.Credentials = New System.Net.NetworkCredential("endereco@email", "minhasenha")
'Enviando a mensagem por e-mail
Try
Enviar.Send(Mensagem)
Catch ex As Exception
Throw ex
Finally
Mensagem.Dispose()
End Try
Mensagem.Dispose()
End Sub
:::::::::::::::::::::::::::
Quando coloco tags do tipo img source="http://localhost/img.gif" e table o email não vai e da erro
você sabe me dizer porque acontece? Se puder ajudar fico muito grato!
Josafá