MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    [Resolvido]Mudar a cor de apenas um linha

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 12/7/2017, 14:50

    Prezados bom dia..

    Já fiz e refiz uma busca na internet e não consigui sair da estaca zero. Gostaria se possível for, mudar apenas a cor de uma simples linha.

    Código:
    If Me.grpTipos.Value = 1 Then
    .TextBody = Me.txtMensagem & vbCrLf & vbCrLf & vbCrLf & "Atenciosamente," & vbCrLf & DLookup("NomeRepresentacao", "tbempresatitular") & vbCrLf & DLookup("Fone1 &'-'& Fone2 &'-'& Fone3", "tbempresatitular") & vbCrLf & vbCrLf & _


      "- - - FAVOR  CONFIRMAR  RECEBIMENTO  DESSE  E-MAIL - - - " & vbCrLf & _  ***** preciso mudar essa linha para a cor vermelha.*****
     

    "E-mail gerado pelo SisRepre"
    ElseIf Me.grpTipos.Value = 2 Then
    .HTMLBody = Replace(Me.txtMensagem, vbCrLf, "<br>") & "<br><br><br><br>Atenciosamente.<br><br>SisRepre"
    ElseIf Me.grpTipos.Value = 3 Then
    .CreateMHTMLBody = Me.txtMensagem
    End If

    Como podem notar a mesma é gerada em HTML.

    Alguém pode me dar uma pequena força ?

    Grato.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alexandre Neves 12/7/2017, 23:20

    Boa noite, Sílvio
    Em vez de
    "- - - FAVOR   CONFIRMAR   RECEBIMENTO   DESSE   E-MAIL - - - "
    colocar
    Código:
    "<font color=''red''>- - - FAVOR   CONFIRMAR   RECEBIMENTO   DESSE   E-MAIL - - - </font>"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 13/7/2017, 12:01

    Boa tarde Alexandre, grato por estar me ajudando.  

    Infelizmente sem sucesso, veja a imagem abaixo, inserindo a linha de comando que você me passou.
    É um print da tela, quando recebe o e-mail, em destaque a linha de comando.
    Parece que entra como comentário.


    [Resolvido]Mudar a cor de apenas um linha Forum11


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alexandre Neves 13/7/2017, 13:35

    Boa tarde, Silvio
    e se colocar
    Código:
    "<font color='red'>- - - FAVOR  CONFIRMAR  RECEBIMENTO  DESSE  E-MAIL - - - </font>"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 13/7/2017, 13:58

    Alexandre, permanece a mesma coisa, tal qual a imagem acima. Não houve alterações.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alexandre Neves 14/7/2017, 18:49

    Boa tarde,
    Pode colocar todo o texto HTML?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 14/7/2017, 19:56

    Boa noite Alexandre......opa, pode sim !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 17/7/2017, 00:23

    Up......Upando !!!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alexandre Neves 17/7/2017, 21:31

    Boa noite, Sílvio
    Coloque o texto todo em HTML para se analisar e tentar descobrir alguma forma de chegar ao formato que procura


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Dilson 18/7/2017, 03:17

    Código:
    <font color=" "red" ">
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 18/7/2017, 11:46

    Bom dia Dilson....

    Sem chance, erro de sintaxe deixando a linha toda em vermelho.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alvaro Teixeira 18/7/2017, 12:23

    Olá a todos,

    Silvio, experimente assim:
    Código:
    .TextBody = Me.txtMensagem & vbCrLf & vbCrLf & vbCrLf & "Atenciosamente," & vbCrLf & DLookup("NomeRepresentacao", "tbempresatitular") & vbCrLf & DLookup("Fone1 &'-'& Fone2 &'-'& Fone3", "tbempresatitular") & vbCrLf & vbCrLf & _
      "<font color=" & Chr(34) & "red" & Chr(34) & ">- - - FAVOR   CONFIRMAR   RECEBIMENTO   DESSE   E-MAIL - - - </font>" & vbCrLf & _
      "E-mail gerado pelo SisRepre"

    Abraço
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 18/7/2017, 13:33

    Bom dia e boa tarde a todos, que estão me ajudando nessa luta.

    Sem jeito Álvaro.  Veja a imagem da tela do e-mail abaixo em destaque o que me passou para colocar no código.

    [Resolvido]Mudar a cor de apenas um linha Forum12


    Estou começando a achar que isso será impossível de colocar o texto em vermelho.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alvaro Teixeira 18/7/2017, 14:10

    Olá Silvio,
    Está a enviar uma mensagem pelo Outlook, correcto?
    Se sim, tem que colocar no formato HTML em vez de Texto Simples.

    Será isso?
    Abraço
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 18/7/2017, 18:05

    Álvaro, boa tarde...

    Usando CDO ( exemplo do Críquio) que eu fiz algumas alterações.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alvaro Teixeira 18/7/2017, 22:55

    Olá Silvio, teste trocando:
    .TextBody
    Por:
    .HTMLBody

    Abraço
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 19/7/2017, 02:49

    Boa noite a todos...

    Enfim chegamos a uma solução para o " imbróglio "..
    Com a ideia do Álvaro, cheguei a uma conclusão
    Código:
    If Me.grpTipos.Value = 1 Then
    .HTMLBody = Me.txtMensagem & vbCrLf & vbCrLf & vbCrLf & "<br><br>Atenciosamente,<br>" & vbCrLf & DLookup("NomeRepresentacao", "tbempresatitular") & vbCrLf & DLookup("Fone1 &'-'& Fone2 &'-'& Fone3", "tbempresatitular") & vbCrLf & vbCrLf & _
      "<font color=" & Chr(34) & "red" & Chr(34) & "<br><br>- - - FAVOR   CONFIRMAR   RECEBIMENTO   DESSE   E-MAIL - - - </font>" & vbCrLf & _
      "<br><br>E-mail gerado pelo SisRepre"
      ElseIf Me.grpTipos.Value = 2 Then
    .HTMLBody = Replace(Me.txtMensagem, vbCrLf, "<br>") & "<br><br>Atenciosamente.<br><br>SisRepre"
    ElseIf Me.grpTipos.Value = 3 Then
    .CreateMHTMLBody = Me.txtMensagem
                                                                                                                                                        
    End If

    E abaixo a imagem do E-mail, usando Webmail Yahoo

    [Resolvido]Mudar a cor de apenas um linha Forum13

    Deixo aqui registrado meus mais sinceros agradecimentos aos colegas que de uma forma ou outra me ajudaram nessa resolução desse problema.

    cheers cheers cheers cheers cheers cheers


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alvaro Teixeira 19/7/2017, 08:18

    Olá Silvio,
    Obrigado pelo retorno.
    Não se esqueça de dar como resolvido (está na sua assinatura) eheheh
    Abraço a todos
    cheers
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Silvio 19/7/2017, 11:58

    Bom dia quase boa tarde por ai em Portugal...

    Era o sono Álvaro..era o sono que batia aos olhos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Alvaro Teixeira 19/7/2017, 15:26

    cheers

    Conteúdo patrocinado


    [Resolvido]Mudar a cor de apenas um linha Empty Re: [Resolvido]Mudar a cor de apenas um linha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:18