CABEÇALHO USANDO SYSTEM.NET.MAIL

 Tópico anterior Próximo tópico Novo tópico

CABEÇALHO USANDO SYSTEM.NET.MAIL

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#477111 - 11/10/2017 20:45:18

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 11/10/2017 21:39:19 por JCM0867

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@outlook.com
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")

                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)


        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




#477131 - 13/10/2017 11:34:54

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


nenhuma dica?



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por JCM0867 em 15/10/2017 19:39:53