ENVIO DE E-MAIL JUSTIFICADO

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

ENVIO DE E-MAIL JUSTIFICADO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#494816 - 01/09/2020 23:05:54

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


Última edição em 01/09/2020 23:08:18 por AMORIM

Boa Noite Pessoal alguém pode me ajudar neste código, ele envia o e-mail perfeitamente mais quando eu uso smsg.IsBodyHtml = True para que seja enviado no formato html os parágrafo some conforme  abaixo,

FORMATO HTML COM TEXTO JUSTIFICADO
Sua licença foi registrada com sucesso, seu cadastro conosco esta concluído,
ao entra em contato para suporte ou duvidas informe o seu e-mail, mantenha
A data e hora do computador atualizado, não instale outro programa de gere
nciamento comercial no mesmo computador pois isso pode gerar conflito no-
gerenciador de tarefa

FORMATO TEXTO SEM JUSTIFICAR
Sua licença foi registrada com sucesso, seu cadastro conosco esta concluído,
ao entra em contato para suporte ou duvidas informe o seu e-mail, mantenha

A data e hora do computador atualizado, não instale outro programa de gere
nciamento comercial no mesmo computador pois isso pode gerar conflito no-
gerenciador de tarefa

Private Sub EnviodeEmail()
        Dim smsg As New MailMessage
        Dim blnRetorno As Boolean = False
        Dim NomeRemetente As String = txtParEmailNomeRemetente.Text
        Dim EmailRemetente As String = txtParEmailRemetente.Text
        Dim Senha As String = txtParEmailSenha.Text
        Dim SMTP As String = cboParEmailSMTP.Text
        Try
            smsg.From = New MailAddress(NomeRemetente & '<' & EmailRemetente & '>') ' remetente
            smsg.To.Add('igadino@gmail.com,igadino@yahoo.com.br') 'Destinatário
            smsg.Priority = MailPriority.High
            smsg.Subject = txtAssunto.Text
            ConteudoMensagem = AdvRichTextBox1.Text
            ConteudoMensagem = Replace(ConteudoMensagem, Chr(13), '<br />')
            smsg.IsBodyHtml = True
            strHTML = strHTML & '<html>'
            strHTML = strHTML & '<head>'
            strHTML = strHTML & '</head>'
            strHTML = strHTML & '<body leftmargin='4' topmargin='2' bgcolor='#ffffff'>'
            strHTML = strHTML & '<table width='100%' cellpadding='0' cellspacing='0' border='0' bgcolor='#8164f5' align='center'>'
            strHTML = strHTML & '<tr><td align='Justify' width='100%' height='23' bgcolor='#ffffff'>' + ConteudoMensagem + '</td></tr>'
            strHTML = strHTML & '</table>'
            strHTML = strHTML & '</body>'
            strHTML = strHTML & '</html>'
            smsg.Body = strHTML
            smsg.BodyEncoding = System.Text.Encoding.GetEncoding('ISO-8859-1')
            If CheckAnexo.Checked = True Then
                smsg.Attachments.Add(New Attachment(TxtArquivos.Text)) 'Adiciona o anexo a enviar
            End If
            Dim Servidor As New SmtpClient
            Servidor.Credentials = New System.Net.NetworkCredential(EmailRemetente, Senha)
            Servidor.EnableSsl = True
            Servidor.Port = txtParEmailPorta.Text
            Servidor.Host = SMTP
            Servidor.Send(smsg)
            smsg.Attachments.Clear()
            blnRetorno = True
               Catch ex As Exception
            Enviando.Text = 'Não foi possivel enviar o email '
        End Try
    End Sub




#494817 - 01/09/2020 23:54:11

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
'não instale outro programa de gere
nciamento comercial no mesmo computador pois isso pode gerar conflito no-
gerenciador de tarefa'

Que p.... é essa?

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#494818 - 02/09/2020 02:14:22

WCOSTA
VASSOURAS
Cadast. em:Dezembro/2003


Membro da equipe
Citação:
:
'não instale outro programa de gere
nciamento comercial no mesmo computador pois isso pode gerar conflito no-
gerenciador de tarefa'

Que p.... é essa?

Tenso essas paradinhas

AntSoft Systems On Demand



#494819 - 02/09/2020 07:36:44

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


Última edição em 02/09/2020 09:06:12 por AMORIM

O texto é só um exemplo de como fica quando o e-mail e enviado.




#494844 - 05/09/2020 09:01:07

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


KD os Professores para um help neste código



#495104 - 24/09/2020 14:33:03

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


Última edição em 24/09/2020 17:03:00 por AMORIM

Não tem nada de caracteres não e envio de e-mail com formatação




#495116 - 24/09/2020 20:37:49

COQUITO
BELO HORIZONTE
Cadast. em:Junho/2014


Citação:
:
Boa Noite Pessoal alguém pode me ajudar neste código, ele envia o e-mail perfeitamente mais quando eu uso smsg.IsBodyHtml = True para que seja enviado no formato html os parágrafo some conforme  abaixo,

FORMATO HTML COM TEXTO JUSTIFICADO
Sua licença foi registrada com sucesso, seu cadastro conosco esta concluído,
ao entra em contato para suporte ou duvidas informe o seu e-mail, mantenha
A data e hora do computador atualizado, não instale outro programa de gere
nciamento comercial no mesmo computador pois isso pode gerar conflito no-
gerenciador de tarefa

FORMATO TEXTO SEM JUSTIFICAR
Sua licença foi registrada com sucesso, seu cadastro conosco esta concluído,
ao entra em contato para suporte ou duvidas informe o seu e-mail, mantenha

A data e hora do computador atualizado, não instale outro programa de gere
nciamento comercial no mesmo computador pois isso pode gerar conflito no-
gerenciador de tarefa

Private Sub EnviodeEmail()
        Dim smsg As New MailMessage
        Dim blnRetorno As Boolean = False
        Dim NomeRemetente As String = txtParEmailNomeRemetente.Text
        Dim EmailRemetente As String = txtParEmailRemetente.Text
        Dim Senha As String = txtParEmailSenha.Text
        Dim SMTP As String = cboParEmailSMTP.Text
        Try
            smsg.From = New MailAddress(NomeRemetente & '<' & EmailRemetente & '>') ' remetente
            smsg.To.Add('igadino@gmail.com,igadino@yahoo.com.br') 'Destinatário
            smsg.Priority = MailPriority.High
            smsg.Subject = txtAssunto.Text
            ConteudoMensagem = AdvRichTextBox1.Text
            ConteudoMensagem = Replace(ConteudoMensagem, Chr(13), '<br />')
            smsg.IsBodyHtml = True
            strHTML = strHTML & '<html>'
            strHTML = strHTML & '<head>'
            strHTML = strHTML & '</head>'
            strHTML = strHTML & '<body leftmargin='4' topmargin='2' bgcolor='#ffffff'>'
            strHTML = strHTML & '<table width='100%' cellpadding='0' cellspacing='0' border='0' bgcolor='#8164f5' align='center'>'
            strHTML = strHTML & '<tr><td align='Justify' width='100%' height='23' bgcolor='#ffffff'>' + ConteudoMensagem + '</td></tr>'
            strHTML = strHTML & '</table>'
            strHTML = strHTML & '</body>'
            strHTML = strHTML & '</html>'
            smsg.Body = strHTML
            smsg.BodyEncoding = System.Text.Encoding.GetEncoding('ISO-8859-1')
            If CheckAnexo.Checked = True Then
                smsg.Attachments.Add(New Attachment(TxtArquivos.Text)) 'Adiciona o anexo a enviar
            End If
            Dim Servidor As New SmtpClient
            Servidor.Credentials = New System.Net.NetworkCredential(EmailRemetente, Senha)
            Servidor.EnableSsl = True
            Servidor.Port = txtParEmailPorta.Text
            Servidor.Host = SMTP
            Servidor.Send(smsg)
            smsg.Attachments.Clear()
            blnRetorno = True
               Catch ex As Exception
            Enviando.Text = 'Não foi possivel enviar o email '
        End Try
    End Sub


eu tive esse mesmo problema, imagino que vc está trabalhando com richtextobox, não consegui adaptar para trabalhar html pra mim foi uma experiencia dificil, talvez porque nunca adaptei o componente, mais eu já achei mais elegante o webbrowser, para trabalhar com html, pra mim é menos recursos mais precisa usar a biblioteca htmldocument. e para formatar apenas precisei o execomand do javscript









#495136 - 25/09/2020 13:04:07

WEBMASTER
CURITIBA
Cadast. em:Janeiro/2001


Membro da equipe
Na verdade o problema pode nao necessariamente estar com voce mas sim com o leitor de email.
Muito se recomenda que seja feito o famoso inline style, que voce ja adotou (ou seja, tudo fica como style attribute do elemento, sem uso de classes).

Um bom começo sem duvida e voce procurar pelas melhores praticas:
https://www.google.com/search?q=best+practices+html+email

So que claro, vai ter de tudo quanto e jeito/formato/sabor, mas voce encontra codigo fonte HTML que demonstre o que precisa.
Por exemplo, no gmail voce nao tem opcao para jusitificar o texto, talvez isso tenha algum fundamento/relacao com possiveis limitacoes de outros clientes de email.

WebMaster - VBMania

Nao me mande e-mail com duvidas
Para isso e que existe o forum do VBMania !!!

#495166 - 26/09/2020 08:56:23

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


O e-mail quando e enviado ele vai no formato justificado só quando ele chega no e-mail de destino ele junta todos e tira os paragrafo conforme acima que demostrei



#495167 - 26/09/2020 10:05:12

WEBMASTER
CURITIBA
Cadast. em:Janeiro/2001


Membro da equipe
So por curiosidade, como esta o email quando voce baixa ele em EML ou pede para ver o codigo fonte ?
E perceptivel alguma perda de formatacao/tag que voce enviou e nao trafegada ?

WebMaster - VBMania

Nao me mande e-mail com duvidas
Para isso e que existe o forum do VBMania !!!

#495168 - 26/09/2020 10:30:52

AMORIM
PALMAS/TOCANTINS
Cadast. em:Agosto/2015


Última edição em 26/09/2020 10:52:25 por AMORIM

Não pede para exibir nada,
se eu colocar
smsg.IsBodyHtml = True o texto vai justificado mais os paragrafo ajunta tudo

smsg.IsBodyHtml = False O texto vai com os paragrafo normal mais não vai justificado o texto.

eu acho que o erro esta nesta linha:  Replace(ConteudoMensagem, Chr(13), '<br />')
aonde tem o enter teria que trocar <br> para quebra de linha. já user o vbcrlf no lugar do <br>





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


Tópico encerrado, respostas não sao permitidas
Encerrado por AMORIM em 04/10/2020 16:36:04