Usuário com melhor resposta
Email com Logo e Anexos

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
- Editado F8B8D7D2-A85A-4395-94B1-7DF2293239AA quarta-feira, 15 de março de 2017 01:31
Respostas
-
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- Sugerido como Resposta Mauricio-Junior sexta-feira, 17 de março de 2017 13:38
- Marcado como Resposta Robson William SilvaModerator segunda-feira, 20 de março de 2017 12:31
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.
-
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- Sugerido como Resposta Mauricio-Junior sexta-feira, 17 de março de 2017 13:38
- Marcado como Resposta Robson William SilvaModerator segunda-feira, 20 de março de 2017 12:31