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


3 participantes

    Cordo do email em HTML

    avatar
    pedrohgb7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 23/04/2012

    Cordo do email em HTML Empty Cordo do email em HTML

    Mensagem  pedrohgb7 27/12/2012, 11:10

    Olá pessoal

    Estou enviando um email via access.

    o problema é o seguinte.
    Estou usando o HTML para formatação, uso tabelas...

    Mas antes da tabela eu preciso colocar um texto, e este texto precisa vir exatamente como está digitado na caixa de texto.

    Como seu eu tivesse usando o .Body e nao o .htmlbody.

    Previso que venha com os espaços, com a quebra de linha, e usando o html o texto fica justificado...

    Obrigado
    avatar
    pedrohgb7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 23/04/2012

    Cordo do email em HTML Empty Re: Cordo do email em HTML

    Mensagem  pedrohgb7 27/12/2012, 18:27

    Olá pessoal, e aí podem me ajudar????

    Tem jeito de fazer isto?

    Obrigado.
    avatar
    pedrohgb7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 23/04/2012

    Cordo do email em HTML Empty Re: Cordo do email em HTML

    Mensagem  pedrohgb7 28/12/2012, 10:05

    E aí pessoal?

    Alguém pode me ajudar???

    Obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Cordo do email em HTML Empty Re: Cordo do email em HTML

    Mensagem  JPaulo 28/12/2012, 10:20

    Cole aqui todo o código que você está a utilizar.


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

    Cordo do email em HTML Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Cordo do email em HTML Folder_announce_new 102 Códigos VBA Gratuitos...
    Cordo do email em HTML Folder_announce_new Instruções SQL como utilizar...
    avatar
    pedrohgb7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 23/04/2012

    Cordo do email em HTML Empty Re: Cordo do email em HTML

    Mensagem  pedrohgb7 28/12/2012, 10:45

    Segue

    Código:


    'Envia email
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
       
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Cc = ""
        .Bcc = "UI45037"
        '.Bcc = "UI45037;UI37562;UI36471;UI42179;UI32186;UI37064;UI42184;UI37608;UI00673;UB75968;UI35004;UI40851;UI02833;UI73141;UI73195"
        .Subject = "Relatório de Turno: " & Me!txt_Data & " TURNO " & Me!txt_Turno & ""
         
    txthtm = "<HTML> "
    txthtm = txthtm & "<BODY>"

    'GERAL
    txthtm = txthtm & "<CENTER><table width=800 border=5>"
    txthtm = txthtm & "<TR <TD><strong><font color=#5555 font size=3> " & Me!M_Observacoes & ""
    txthtm = txthtm & "</table></CENTER>"

    'PARADAS
    txthtm = txthtm & "<CENTER><font color=#555555 font size=5 face=Verdana><b>Paradas por Falha</b></CENTER>"
    txthtm = txthtm & "<table border=1>"
    'Titulos
    txthtm = txthtm & "<TR bgcolor= ""#CFCFCF""><CENTER><TD><strong><font color=#555555 font size=1>"
    txthtm = txthtm & "<font color=#555555 font size=2 face=Verdana><b>Equipamento</td></b>"
    txthtm = txthtm & "<font color=#555555 font size=2 face=Verdana><b><td>Duração</td></b>"
    txthtm = txthtm & "<font color=#555555 font size=2 face=Verdana><b><td>Descrição</td></b></CENTER>"
    txthtm = txthtm & "<tr>"

    Dim PF As String
    PF = "Parada por Falha"

    Set rs = CurrentDb.OpenRecordset("SELECT Local.Local, Parada_RP.Duracao, Parada_RP.Minuto, " _
    & " Parada_RP.Descricao, Parada_RP.Tipo_Parada, Equipamento.ID_Jornada FROM ([Local] INNER JOIN Equipamento " _
    & " ON Local.Código = Equipamento.ID_Local) INNER JOIN Parada_RP " _
    & " ON Equipamento.Código_Equipamento = Parada_RP.ID_Equipamento " _
    & " WHERE (((Equipamento.ID_Jornada)= " & Me.txt_CDTurno & ") " _
    & " AND ((Parada_RP.Tipo_Parada)= '" & PF & "')) " _
    & " ORDER BY Local.Local, Local.Area;")

    Do While Not rs.EOF
    'Linhas
    Duracao = rs!Duracao & ":" & rs!Minuto

    txthtm = txthtm & " <td><CENTER>" & rs!Local & " </CENTER></td>"
    txthtm = txthtm & "<td><CENTER>" & Duracao & " </CENTER></td>"
    txthtm = txthtm & "<td><strong><font size=2>" & rs!Descricao & " </strong></td>"
    txthtm = txthtm & "</tr>"

    rs.MoveNext
    Loop

    txthtm = txthtm & "</table>"
    txthtm = txthtm & "<BR><font size=2 face=Verdana>Mensagem automática</BR>"
    txthtm = txthtm & "<BR><BR><font size=2 face=Verdana>Pedro Henrique Gonçalves Barros</BR>"
    txthtm = txthtm & "</BODY>"
    txthtm = txthtm & "</HTML>"
     
        .Body = Me!M_Observacoes
        .htmlbody = txthtm
        .send
      MsgBox "A mensagem foi enviada com sucesso!"
           
    End With

    rs.Close
    '_____________________________________________________________________


    Código:


    txthtm = txthtm & "<TR <TD><strong><font color=#5555 font size=3> " & Me!M_Observacoes & ""

    Essa linha.
    Essa caixa de texto eu gostaria que fosse para o email igual esta digitado nesta caixa de texto.
    o problema é quando eu uso html vem tudo bagunçado...
    Eu preciso que va para o email identico esta digitado na caixa de texto Me!M_Observacoes

    Obrigado


    Última edição por pedrohgb7 em 28/12/2012, 10:49, editado 1 vez(es) (Motivo da edição : t)
    avatar
    pedrohgb7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 23/04/2012

    Cordo do email em HTML Empty Re: Cordo do email em HTML

    Mensagem  pedrohgb7 2/1/2013, 16:57

    Pessoal, Impossível fazer isto????
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Cordo do email em HTML Empty Re: Cordo do email em HTML

    Mensagem  criquio 26/1/2013, 12:29

    Já tentou utilizar a tag
     para deixar o texto conforme digitado?

    Seu texto


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    Cordo do email em HTML Empty Re: Cordo do email em HTML

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 1/11/2024, 07:20