none
Email com Logo e Anexos RRS feed

  • Pergunta

  • Estou tendo problemas para enviar emails com Logo e Anexos pois os ANEXOS não funcionam com Attachments e usando o LinkedResource aparecem entre "<>" como "<Boleto1>" e não como "Boleto1". Segue código:

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            'Email
            Dim Nom As String = "HardSoft"
            Dim Mai As String = "hardsoft@terra.com.br"
            Dim Log As String = "hardsoft"
            Dim Sen As String = "xxx"
            Dim Ssl As Boolean = False
            Dim Smt As String = "smtp.terra.com.br"
            Dim Por As String = "587"
            Dim Des As String = "teste@terra.com.br"
            Dim Tit As String = "Boletos " & Format(Now, "MMM/yyyy")
            Dim Tex As String = "Caro cliente...<br/><br/>Para maior agilidade no pagamento e cuidado com o meio ambiente, segue anexo a NFse e Boleto dos serviços prestados a empresa.<br/><br/>Grato<br/><img src=cid:Logo.png>"

            'Procedimentos
            Try

                'Html
                Dim Htm As AlternateView = AlternateView.CreateAlternateViewFromString(Tex, Nothing, MediaTypeNames.Text.Html)

                'Pdf1
                Dim Pd1 As LinkedResource = New LinkedResource(Application.StartupPath & "\Boleto1.pdf", MediaTypeNames.Application.Pdf)
                Pd1.TransferEncoding = Mime.TransferEncoding.Base64
                Pd1.ContentId = "Boleto1.pdf"

                'Pdf2 
                Dim Pd2 As LinkedResource = New LinkedResource(Application.StartupPath & "\Boleto2.pdf", MediaTypeNames.Application.Pdf)
                Pd2.TransferEncoding = Mime.TransferEncoding.Base64
                Pd2.ContentId = "Boleto2.pdf"

                'Logo
                Dim Lnk As LinkedResource = New LinkedResource(Application.StartupPath & "\Logo.png", "image/png")
                Lnk.TransferEncoding = Mime.TransferEncoding.Base64
                Lnk.ContentId = "Logo.png"

                'Html
                Htm.LinkedResources.Add(Pd1)
                Htm.LinkedResources.Add(Pd2)
                Htm.LinkedResources.Add(Lnk)

                'Email
                Dim Ema As New MailMessage()
                Ema.To.Add(Des)
                Ema.From = New MailAddress(Mai, Nom)
                Ema.Subject = Tit
                Ema.Priority = MailPriority.High
                Ema.AlternateViews.Add(Htm)

                'Anexos
                'Ema.Attachments.Add(New Attachment(Application.StartupPath & "\Boleto1.pdf", MediaTypeNames.Application.Pdf)) 'Não funcionou
                'Ema.Attachments.Add(New Attachment(Application.StartupPath & "\Boleto2.pdf", MediaTypeNames.Application.Pdf)) 'Não funcionou

                'Envio
                Dim Smtp As New Net.Mail.SmtpClient(Smt)
                Smtp.Credentials = New Net.NetworkCredential(Log, Sen)
                Smtp.EnableSsl = Ssl
                Smtp.Port = Por
                Smtp.Send(Ema)

                'Mensagem
                MsgBox("Arquivos enviados com sucesso.", MsgBoxStyle.Information, Me.Text)

            Catch Msg As Exception
                MsgBox(Msg.Message + vbNewLine + vbNewLine + Msg.ToString, MsgBoxStyle.Critical, Me.Text)

            End Try

        End Sub


    quarta-feira, 15 de março de 2017 01:30

Respostas

Todas as Respostas

  • Bom dia,

    Por gentileza, verifique se esse exemplo abaixo o ajuda.

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 17 de março de 2017 13:18
    Moderador
  • Este link abaixo poderá te ajudar.

    Código que funciona também.

    https://ecode10.com/artigo/927/Enviado-email-anexado


    Espero ter ajudado. Se ajudei, favor marcar no fórum falando que foi útil.

    Mauricio Junior - Comunidade www.ecode10.com

    sexta-feira, 17 de março de 2017 13:38