Jump to content
aprendiz93

Envio de email texto e anexo!

Recommended Posts

aprendiz93

Boa tarde geral gostaria de criar uma função para envio de email "texto e em anexo" em vb.net2008 mais n tenho ideia por onde começar alguem poderia me ajudar com isso? agradeço desde já.

Share this post


Link to post
Share on other sites
aprendiz93

Ola sou aprendiz ainda, preciso saber como faz esse procedimento de envio de email desde a estaca a zero. olhei os links q vc me enviou mais n adiantou nada para min, n tem como eu so copiar e colar mesmo assim agradeço.

Pois bem criei um forme bem simples para começo,

botao enviar para,  botao cc, e um RichTextBox para colocar o conteúdo, botao enviar e botao de anexo blzs.

Agora q ja criei o form qual seria o proximo passo? agradeço desde já se poder ajudar.

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Ve se percebes alguma coisa disto

Dim Email_Origem As String = "O_Teu_Email" ' Email de origem
        Dim Pass_Email_Origem As String = "A_tua_Pass" ' Pass do email de origem

        Dim mail As New MailMessage
        Dim SmtpServer As New SmtpClient()
        SmtpServer.Credentials = New Net.NetworkCredential(Email_Origem, Pass_Email_Origem)
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True

        mail = New MailMessage()
        Dim addr() As String = Destinatario.Text.ToString.Split(",")
        Try
            mail.From = New MailAddress(Email_Origem, "", System.Text.Encoding.UTF8)

            Dim i As Byte
            For i = 0 To addr.Length - 1
                mail.To.Add(addr(i)) ''Campo Para  
                mail.CC.Add(addr(i)) '' Campo CC
                mail.Bcc.Add(addr(i))  ' Campo BCC
            Next

            mail.Subject = Assunto.Text.ToString 'Vai buscar o asssunto ao textbox 'assunto'

            mail.Body = Mensagem.Text.ToString ' 'Vai buscar a mensagem ao Richtexbox 'mensagem'

            mail.Attachments.Add(New Attachment("C:\anexo.txt")) 'Adiciona o anexo a enviar


            mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
            SmtpServer.Send(mail)
            mail.Attachments.Clear()

        Catch ex As Exception
            MsgBox("Ocorreu um problema no envio do Email!!!")
        Finally
            MsgBox("Email Enviado com Sucesso!!!")
        End Try


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
aprendiz93

Peço mil desculpas, mil desculpas mesmo pela minha ignorancia, mais onde eu colocaria esse código?

ficaria como?

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Email_Origem As String = "O_Teu_Email" ' Email de origem
        Dim Pass_Email_Origem As String = "A_tua_Pass" ' Pass do email de origem

        Dim mail As New MailMessage
        Dim SmtpServer As New SmtpClient()
        SmtpServer.Credentials = New Net.NetworkCredential(Email_Origem, Pass_Email_Origem)
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True 

continuação........

agradeço pela ajuda e peço mais uma vez desculpa pela minha ignorancia.

Share this post


Link to post
Share on other sites
Andrepereira9

Podes por exemplo, por

Dentro do evento de um botão, para quando o utilizador carregar, ele enviar.


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
aprendiz93

Ola modifiquei todo o código mais n tive resultado quando clico no botao enviar ele so da as duas mensagens: ocorreu um erro.... e mensagem enviada com sucesso . Segue o código e algumas duvidas.


Imports System.Net.Mail
Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub enviaMensagemEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enviaMensagemEmail.Click

        Dim Email_Origem As String = "xxxx@xxxxcom.br" ' Email de origem "obs: aki sera o email do destinário certo?"

        Dim Pass_Email_Origem As String = "xxxxx@xxxxx.com.br" ' Pass do email de origem "obs: aki posso colocar um outro email q ira receber a mesma mensagem certo?"

        Dim mail As New MailMessage
        Dim SmtpServer As New SmtpClient()
        SmtpServer.Credentials = New Net.NetworkCredential(Email_Origem, Pass_Email_Origem)
        SmtpServer.Port = xx
        SmtpServer.Host = "smtp.xxx.com.br"
        SmtpServer.EnableSsl = True

        mail = New MailMessage()
        Dim addr() As String = TextBox1.Text.ToString.Split(",")
        Try
            mail.From = New MailAddress(Email_Origem"obs: xxxx@xxxxcom.br ?", "", System.Text.Encoding.UTF8)

            Dim i As Byte
            For i = 0 To addr.Length - 1
                mail.To.Add(addr(i)) ''Campo Para  
                mail.CC.Add(addr(i)) '' Campo CC
                mail.Bcc.Add(addr(i))  ' Campo BCC
            Next

            mail.Subject = TextBox3.Text.ToString 'Vai buscar o asssunto ao textbox 'assunto'

            mail.Body = RichTextBox1.Text.ToString ' 'Vai buscar a mensagem ao Richtexbox 'mensagem'

            mail.Attachments.Add(New Attachment("C:\conta.txt")) 'Adiciona o anexo a enviar


            mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
            SmtpServer.Send(mail)
            mail.Attachments.Clear()


        Catch ex As Exception
            MsgBox("Ocorreu um problema no envio do Email!!!")
        Finally
            MsgBox("Email Enviado com Sucesso!!!")
        End Try

        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
        TextBox3.Text = String.Empty
        TextBox4.Text = String.Empty
        RichTextBox1.Text = String.Empty

    End Sub
End Class

Share this post


Link to post
Share on other sites
Andrepereira9

Dim Email_Origem As String = "xxxx@xxxxcom.br" ' Email de origem "obs: aki sera o email do destinário certo?"->Não é o email de destinatário, mas sim o email de onde o email parte. Pode ser o teu, ou de quem vai mandar o email

Dim Pass_Email_Origem As String = "xxxxx@xxxxx.com.br" ' Pass do email de origem "obs: aki posso colocar um outro email q ira receber a mesma mensagem certo?"  É a palavra-passe de acesso ao email de origem email indicado na variavel Email_Origem

Nesta linha, é que vais indicar o ou os emails de destino (destinatários)

Dim addr() As String = TextBox1.Text.ToString.Split(",")

Se for mais que um email, tens de separa-los por virgula,pois,a linha de cima,vai dividir por virgulas. Podes alterar por ponto e virgula ou outro carácter, desde que alteres o carácter que está entre parêntesis nesta linha


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
aprendiz93

Boa tarde eu denovo! vamos lá seguinte fiz as alterações no meu código mais ainda n esta funcionando n da erro mais tb n funciona. Segue o código:


Imports System.Net.Mail
Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub enviaMensagemEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enviaMensagemEmail.Click

        Dim Email_Origem As String = "Exemplo:aprendiz93@yahoo.com.br" ' Email de origem
        Dim Pass_Email_Origem As String = "Deixei o mesmo email:aprendiz93@yahoo.com.br" ' Pass do email de origem

        Dim mail As New MailMessage
        Dim SmtpServer As New SmtpClient()
        SmtpServer.Credentials = New Net.NetworkCredential(Email_Origem, Pass_Email_Origem)
        SmtpServer.Port = xx "porta certa"
        SmtpServer.Host = "smtp.xxxx.com.br" "smtp certinho tb"
        SmtpServer.EnableSsl = True

        mail = New MailMessage()
        Dim addr() As String = TextBox1.Text.ToString.Split(",")"textbox1 é onde coloco o email do destinario"
        Try
            mail.From = New MailAddress(Email_Origem, "", System.Text.Encoding.UTF8)

            Dim i As Byte
            For i = 0 To addr.Length - 1
                mail.To.Add(addr(i)) ''Campo Para  
                mail.CC.Add(addr(i)) '' Campo CC
                mail.Bcc.Add(addr(i))  ' Campo BCC
            Next

            mail.Subject = TextBox3.Text.ToString 'Vai buscar o asssunto ao textbox 'assunto'

            mail.Body = RichTextBox1.Text.ToString ' 'Vai buscar a mensagem ao Richtexbox 'mensagem'

            mail.Attachments.Add(New Attachment("C:\conta.txt")) 'Adiciona o anexo a enviar


            mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
            SmtpServer.Send(mail)
            mail.Attachments.Clear()


        Catch ex As Exception
            MsgBox("Ocorreu um problema no envio do Email!!!")
        Finally
            MsgBox("Email Enviado com Sucesso!!!")
        End Try

        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
        TextBox3.Text = String.Empty
        TextBox4.Text = String.Empty
        RichTextBox1.Text = String.Empty

    End Sub
End Class

Outra duvida tb no caso do anexo criei um botao anexar, gostaria de qunado clicar neste botao ele ir procurar o arquivo.

Agradeço desde já pela compreenção.

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Tens aqui um exemplo funcional daquilo que pretendes.

Dá para adicionar destinatários, CC e BCC. Dá também para anexar vários ficheiros, e verifica se eles existem

Enviar Email com Anexos


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.