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

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail

    avatar
    jowfs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Empty [Resolvido]Envio de Texto Formatado No Corpo do E-Mail

    Mensagem  jowfs 16/1/2019, 18:58

    Olá pessoal, boa tarde!

    Criei um formulário com um botão que quando clicado gera um relatório em PDF e envia por e-mail.
    Até aí tudo bem, consegui um código aqui mesmo no fórum e tudo está funcionando perfeitamente.
    O problema é que preciso inserir algumas informações no corpo do e-mail (que consegui sem problema) e não consigo formatar esse texto. Coisa simples, nem preciso escolher uma fonte exata ou cor de texto, apenas preciso que pule linhas em alguns pontos, mas o texto aparece escrito direto sem as quebras de linha. Alguém consegue me ajudar? Segue o código abaixo:

           
    Código:
    Dim strArquivo  As String
    Dim strLocal    As String
    Dim objOut      As Object
    Dim objmail     As Object
    Dim objAnexo    As Object
    Const olMailItem = 0
    Const olByValue = 1
    Set objOut = CreateObject("Outlook.application")
    Set objmail = objOut.CreateItem(olMailItem)
    Set objAnexo = objmail.Attachments
    strArquivo = "REGISTRO DE " & UCase(Me![AtendimentoRCMotivoDescricao]) & " - " & IIf([AtendimentoRCMotivoDescricao] = "ELOGIO", Trim("E" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000")), Trim("R" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000"))) & ".pdf"
    strLocal = "\\empresa\dfs-unidades\DADOS\RELACIONAMENTO COM CLIENTES\" & strArquivo
    DoCmd.OpenReport "OuvidoriaLibra", acViewPreview, , "AtendimentoProtocolo = " & Me!AtendimentoProtocolo, acHidden
    DoCmd.OutputTo acOutputReport, "OuvidoriaLibra", acFormatPDF, strLocal
    DoCmd.Close acReport, "OuvidoriaLibra"
    objAnexo.Add strLocal, olByValue, 1
    objmail.To = LCase(DLookup("[EMail]", "DiretorioEmpresa", "Departamento = '" & AtendimentoOuvidoriaSetor & "'"))
    objmail.CC = IIf([AtendimentoParceiroVendedor] > 0, Trim(LCase(DLookup("[FuncionarioNomeUsuario]", "CadFuncionarios", "FuncionarioNomeAbreviado = '" & AtendimentoParceiroVendedor & "'")) & "@empresa.com.br;supervisao@grupolibra.com.br"), "coordenacao@empresa.com.br;supervisao@empresa.com.br")
    objmail.Subject = "REGISTRO DE " & UCase(Me![AtendimentoRCMotivoDescricao]) & " - " & IIf([AtendimentoRCMotivoDescricao] = "ELOGIO", Trim("E" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000")), Trim("R" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000")))
    objmail.HTMLBody = "Olá Equipe " & [AtendimentoOuvidoriaSetor] _
    & vbCrLf & vbCrLf & "De acordo com o procedimento para reclamações de clientes, segue abaixo registro:" _
    & vbCrLf & vbCrLf & "Atenção para o tempo de até 1 dia útil para resposta da conclusão efetiva e/ou solicitação de extensão do prazo para solução." _
    & vbCrLf & vbCrLf & "Cliente: " & [AtendimentoParceiroNIF] & "/" & [AtendimentoParceiroNomeCompleto] _
    & vbCrLf & vbCrLf & "Motivo: " & [AtendimentoOuvidoriaOcorrencia] _
    & vbCrLf & vbCrLf & "Setor responsável pela ação: " & [AtendimentoOuvidoriaSetor] _
    & vbCrLf & vbCrLf & "Descrição da reclamação: " & [AtendimentoOuvidoriaObservacoes] _
    & vbCrLf & vbCrLf & "RETORNO DO GESTOR DA AREA" _
    & vbCrLf & vbCrLf & "Classificação da reclamação:" _
    & vbCrLf & vbCrLf & "Data da ação imediata/corretiva:" _
    & vbCrLf & vbCrLf & "Causa:" _
    & vbCrLf & vbCrLf & "Ação imediata:" _
    & vbCrLf & vbCrLf & "Ação corretiva:"
    objmail.Display
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Empty Re: [Resolvido]Envio de Texto Formatado No Corpo do E-Mail

    Mensagem  Silvio 16/1/2019, 19:29

    "De acordo com o procedimento para reclamações de clientes, segue abaixo registro:" & VBCRLF & _
    "Atenção para o tempo de até 1 dia útil para resposta da conclusão efetiva e/ou solicitação de extensão do prazo para solução. "& VBCRLF & _
    "Cliente: " & [AtendimentoParceiroNIF] & "/" & [AtendimentoParceiroNomeCompleto]& VBCRLF & __
    "Motivo: " & [AtendimentoOuvidoriaOcorrencia] & VBCRLF &
    "Setor responsável pela ação: " & [AtendimentoOuvidoriaSetor] & VBCRLF & _
    "Descrição da reclamação: " & [AtendimentoOuvidoriaObservacoes] & VBCRLF & _
    "RETORNO DO GESTOR DA AREA" & VBCRLF & _
    "Classificação da reclamação:" & VBCRLF & _
    "Data da ação imediata/corretiva:" & VBCRLF & _
    "Causa:"& VBCRLF & _
    "Ação imediata:" & VBCRLF & _
    "Ação corretiva:" & VBCRLF & _


    .................................................................................
    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."
    avatar
    jowfs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Empty Re: [Resolvido]Envio de Texto Formatado No Corpo do E-Mail

    Mensagem  jowfs 16/1/2019, 19:53

    Olá Silvio,

    Agradeço, mas não funcionou. O texto continua gerando sem quebra de linha. Crying or Very sad
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Empty Re: [Resolvido]Envio de Texto Formatado No Corpo do E-Mail

    Mensagem  JPaulo 17/1/2019, 10:05

    Olá;

    Após o objmail.Subject

    Código:
    Dim corpo$
    corpo = "<html><p><span style=""font-family: Calibri; font-size: 11pt;"">Olá Equipe " & [AtendimentoOuvidoriaSetor] _
    & "<p>De acordo com o procedimento para reclamações de clientes, segue abaixo registro:" _
    & "<p>Atenção para o tempo de até 1 dia útil para resposta da conclusão efetiva e/ou solicitação de extensão do prazo para solução." _
    & "<p>Cliente: " & [AtendimentoParceiroNIF] & "/" & [AtendimentoParceiroNomeCompleto] _
    & "<p>Motivo: " & [AtendimentoOuvidoriaOcorrencia] _
    & "<p>Setor responsável pela ação: " & [AtendimentoOuvidoriaSetor] _
    & "<p>Descrição da reclamação: " & [AtendimentoOuvidoriaObservacoes] _
    & "<p>RETORNO DO GESTOR DA AREA" _
    & "<p>Classificação da reclamação:" _
    & "<p>Data da ação imediata/corretiva:" _
    & "<p>Causa:" _
    & "<p>Ação imediata:" _
    & "<p>Ação corretiva:</span></html>"
    objmail.HTMLBody = corpo & "<br>" & .HTMLBody
    objmail.Display


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Folder_announce_new Instruções SQL como utilizar...
    avatar
    jowfs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Empty Re: [Resolvido]Envio de Texto Formatado No Corpo do E-Mail

    Mensagem  jowfs 17/1/2019, 18:58

    Deu certo! valeu.

    Para quem precisar, segue código completo. Tive que fazer apenas uma pequena correção no fechamento do HTML:

    Código:
    Dim strArquivo  As String
    Dim strLocal    As String
    Dim objOut      As Object
    Dim objmail    As Object
    Dim objAnexo    As Object
    Const olMailItem = 0
    Const olByValue = 1
    Set objOut = CreateObject("Outlook.application")
    Set objmail = objOut.CreateItem(olMailItem)
    Set objAnexo = objmail.Attachments
    strArquivo = "REGISTRO DE " & UCase(Me![AtendimentoRCMotivoDescricao]) & " - " & IIf([AtendimentoRCMotivoDescricao] = "ELOGIO", Trim("E" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000")), Trim("R" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000"))) & ".pdf"
    strLocal = "\\empresa\dfs-unidades\DADOS\RELACIONAMENTO COM CLIENTES\" & strArquivo
    DoCmd.OpenReport "OuvidoriaLibra", acViewPreview, , "AtendimentoProtocolo = " & Me!AtendimentoProtocolo, acHidden
    DoCmd.OutputTo acOutputReport, "OuvidoriaLibra", acFormatPDF, strLocal
    DoCmd.Close acReport, "OuvidoriaLibra"
    objAnexo.Add strLocal, olByValue, 1
    objmail.To = LCase(DLookup("[EMail]", "DiretorioEmpresa", "Departamento = '" & AtendimentoOuvidoriaSetor & "'"))
    objmail.CC = IIf([AtendimentoParceiroVendedor] > 0, Trim(LCase(DLookup("[FuncionarioNomeUsuario]", "CadFuncionarios", "FuncionarioNomeAbreviado = '" & AtendimentoParceiroVendedor & "'")) & "@empresa.com.br;supervisao@grupolibra.com.br"), "coordenacao@empresa.com.br;supervisao@empresa.com.br")
    objmail.Subject = "REGISTRO DE " & UCase(Me![AtendimentoRCMotivoDescricao]) & " - " & IIf([AtendimentoRCMotivoDescricao] = "ELOGIO", Trim("E" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000")), Trim("R" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000")))
    objmail.Subject = "REGISTRO DE " & UCase(Me![AtendimentoRCMotivoDescricao]) & " - " & IIf([AtendimentoRCMotivoDescricao] = "ELOGIO", Trim("E" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000")), Trim("R" & Format([AtendimentoData], "yyyymmdd") & "" & Format([AtendimentoProtocolo], "0000000000")))
    Dim corpo$
    corpo = "<html><p><span style=""font-family: Calibri; font-size: 11pt;"">Olá Equipe " & [AtendimentoOuvidoriaSetor] _
    & "<p>De acordo com o procedimento para reclamações de clientes, segue abaixo registro:" _
    & "<p>Atenção para o tempo de até 1 dia útil para resposta da conclusão efetiva e/ou solicitação de extensão do prazo para solução." _
    & "<p>Cliente: " & [AtendimentoParceiroNIF] & "/" & [AtendimentoParceiroNomeCompleto] _
    & "<p>Motivo: " & [AtendimentoOuvidoriaOcorrencia] _
    & "<p>Setor responsável pela ação: " & [AtendimentoOuvidoriaSetor] _
    & "<p>Descrição da reclamação: " & [AtendimentoOuvidoriaObservacoes] _
    & "<p>RETORNO DO GESTOR DA AREA" _
    & "<p>Classificação da reclamação:" _
    & "<p>Data da ação imediata/corretiva:" _
    & "<p>Causa:" _
    & "<p>Ação imediata:" _
    & "<p>Ação corretiva:</span></html>"objmail.HTMLBody = corpo & "<br>" & objmail.HTMLBody
    objmail.Display
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Empty Re: [Resolvido]Envio de Texto Formatado No Corpo do E-Mail

    Mensagem  JPaulo 17/1/2019, 19:17

    Fico feliz
    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Folder_announce_new Instruções SQL como utilizar...
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Envio de Texto Formatado No Corpo do E-Mail Empty Re: [Resolvido]Envio de Texto Formatado No Corpo do E-Mail

    Mensagem  Silvio 17/1/2019, 19:28

    Mais uma que eu aprendi....Valeu JPaulo !


    .................................................................................
    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."

      Data/hora atual: 25/7/2021, 04:11