segunda-feira, 3 de outubro de 2011
» » VB .NET - Enviar Email

Anônimo
on
1 comentários

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

Postado por Anônimo às 11:21
Share:

1 comentários:

  1. Anônimo9 de fevereiro de 2012 às 06:36

    Protected Sub envia()
    Dim 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á

    ResponderExcluir
:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Click to see the code!
To insert emoticon you must added at least one space before the code.

Assinar: Postar comentários (Atom)