CABE?ALHO USANDO SYSTEM.NET.MAIL

JCM0867 11/10/2017 20:45:18
#477111

Olá pessoal

Para colocar uma imagem no cabelho do email uso:

Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString([Ô]<img src=cid:companylogo> <p> <class=[ô]body[ô]>[Ô] + ConteudoMensagem + [Ô]</div>[Ô], Nothing, [Ô]text/html[Ô])
Dim LogoCabecalho As New LinkedResource(Par_EmailImagemCabecalho)
LogoCabecalho.ContentId = [Ô]companylogo[Ô]
htmlView.LinkedResources.Add(LogoCabecalho)
objEmail.AlternateViews.Add(htmlView)

Funciona beleza para envio de varias remetentes menos remetente@[txt-color=#0000f0]outlook.com[/txt-color]
ao invés de jogar a imagem no cabeçalho da mensagem joga um campo ATT00001.bin em anexo.

uso
Dim objEmail As New System.Net.Mail.MailMessage()
objEmail.From = New System.Net.Mail.MailAddress([Ô]<[Ô] & EmailRemetente & [Ô]>[Ô])
objEmail.To.Add([Ô]<[Ô] & Destinatario & [Ô]>[Ô])

objEmail.Priority = System.Net.Mail.MailPriority.Low
objEmail.IsBodyHtml = True
objEmail.Subject = AssuntoMensagem
objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objEmail.BodyEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])

[txt-color=#0000f0]Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString([Ô]<img src=cid:companylogo> <p> <class=[ô]body[ô]>[Ô] + ConteudoMensagem + [Ô]</div>[Ô], Nothing, [Ô]text/html[Ô])
Dim LogoCabecalho As New LinkedResource(Par_EmailImagemCabecalho)
LogoCabecalho.ContentId = [Ô]companylogo[Ô]
htmlView.LinkedResources.Add(LogoCabecalho)
objEmail.AlternateViews.Add(htmlView)[/txt-color]

Dim objSmtp As New System.Net.Mail.SmtpClient
objSmtp.EnableSsl = True
objSmtp.Port = [Ô]587[Ô]
objSmtp.Host = [Ô]smtp-mail.outlook.com[Ô]
objSmtp.Credentials = New System.Net.NetworkCredential(EmailRemetente, Senha)
objSmtp.Send(objEmail)

O que pode estar faltando para outlook já que para outros SMTP/remetentes funciona

Grato