Email com Logo e Anexos

Question

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 = "[e-mail]"
        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 = "[e-mail]"
        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

Answer 1

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.

Answer 2

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