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

    Enviar dados de um formulário no corpo do email

    avatar
    darciopestana
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 21/09/2015

    Enviar dados de um formulário no corpo do email Empty Enviar dados de um formulário no corpo do email

    Mensagem  darciopestana 3/5/2019, 14:02

    Bom Dia.. nao tenho muita habilidade com access, sou funcionário público e desenvolvi um pq banco de dados para envio de emails, porém todas as informações dos relatórios tem que estar no corpo do email não pode ser como anexo...
    Por favor alguem pode me ajudar.. como disse nao tenho muita experiencia com access uso o 2010.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 3/5/2019, 14:42

    Bom dia.
    Não sei qual script está usando para enviar email, mas segue o que uso:

    Em uma caixa de texto com nome "Mensagem" eu escrevo o texto:

    Código:


    Mensagem = [lbl_saudacao] & " Luiza. <br><br>" _
    & "Segue Fechamento do Caixa do dia: " & Date & "<br><br>" _
    & "<b>Saldo Abertura:     </b> " & Format([saldo_abertura], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Vendas Dinheiro:     </b>  " & Format([total_dinheiro], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Vendas Crédito:     </b>  " & Format([total_credito], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Vendas Débito:      </b>  " & Format([total_debito], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Total Reforço:        </b>  " & Format([total_reforco], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Total Sangria:        </b>  " & Format([total_sangria], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Total Cancelado:      </b>  " & Format([total_cancelada], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Total Devolvido:      </b>  " & Format([total_devolucao], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Total Despesas:      </b>  " & Format([total_despesas], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Total Vendas:       </b>  " & Format([total_vendas], "#,##0.00;-#,##0.00") & "<br><br>" _
    & "<b>Saldo em Caixa:   &nbsp;</b>  " & Format([total_caixa], "#,##0.00;-#,##0.00") & "<br><br><br>" _
    & "Fico á disposição para maiores detalhes. <br><br>" _
    & "Atenciosamente.<br><br>" _
    & StrConv(DLookup("usuário", "tbl_sessao"), 3) & "<br>" _
    & email_usuario & "<br>" _
    & StrConv([setor_usuario], 3) & "<br><br>" _
    & "------------------------------------------------------------------------------- " & vbCrLf _
    & "Mensagem automática do <b>PDV ® <b>" & Format(Date, "yyyy") & "</b>"



    Este é o código de envio do email:

    Código:

    Public Sub Email_Vendas(Remetente As String, email_destinatarios As String, _
    Assunto As String, Corpo As String, Optional cc As String, Optional BCC As String)
       
    On Error Resume Next
       
       
        Dim iMsg As Object
        Dim iConf As Object
        Dim strBody As String
        Dim senha As String
        Dim assinatura
        Dim topom
        Dim anexo
       
    'DoCmd.OutputTo acOutputReport, "RELT_VENDAS_PERIODO", "PDFFormat(*.pdf)", CurrentProject.Path & "\RELATORIOS\RELT VENDAS " & Format(Now, "dd-mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen

        senha = "sua senha"
       
        anexo = Forms!Mensagens!RotaArquivo

        '    Dim Flds As Variant
     
        Set iMsg = CreateObject("CDO.Message")
        Set iConf = CreateObject("CDO.Configuration")
     
            iConf.Load -1    ' CDO Source Defaults
            Set Flds = iConf.Fields
            With Flds
                .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seuemail.com"
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email@seudominio.com"
                .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sua senha"
                .Update
            End With

      strBody = Corpo
     
        With iMsg
            Set .Configuration = iConf
            .To = email_destinatarios
            .cc = cc
            .BCC = BCC
            .From = Remetente
            '.AddAttachment CurrentProject.Path & "\RELATORIOS\RELT VENDAS " & Format(Date, "dd-mm-yyyy") & ".pdf"
            .Subject = Assunto
            '.TextBody = strBody
            .HTMLBody = strBody
            .HTMLBody = "<table border=0><tr><td>" & Replace(Me.Mensagem, vbCrLf, "<br>") & "</td></tr></table>"
            .Send
        End With

        iMsg.Close
        Set iMsg = Nothing

        iConf.Close
        Set iConf = Nothing

    End Sub




    Em um botão:

    Código:

      Call Email_Vendas(Me.Remetente, Me.email_destinatarios, Me.Assunto, Me.Mensagem)

    Abraço


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    darciopestana
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 21/09/2015

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  darciopestana 3/5/2019, 14:49

    obrigado vou testar e volto para informar.. muito obrigado
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  annissima 2/7/2019, 00:30

    Preciso da mesma solução...
    exportar um relatório em HTML e colar o relatorio em html no corpo do email...

    como fazer?
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 2/7/2019, 23:09

    Boa noite Anna.
    Você pode fazer da mesma forma.

    O código que passei já vai no corpo do email e formatado em html.

    Se tiver algum exemplo do que precisa podemos tentar ajudar.

    No aguardo.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  annissima 2/7/2019, 23:31

    Preciso que sejam os campos de um relatório...
    Não de um formulário... será que dá?
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 3/7/2019, 19:27

    Boa tarde Anna.
    Campos de relatório? Como assim? Não existe um formulário que gere esse relatório?
    Mas com certeza existe tabela correto?
    Se sim, seria só buscar os dados na tabela e adaptar aos campos.
    Envie essa parte do seu sistema que posso tentar te ajudar.
    No aguardo.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Enviar dados de um formulário no corpo do email Empty o meu relatorio é bem complicado (pelo menos pra mim)

    Mensagem  annissima 3/7/2019, 19:36

    Cláudio,

    Tenho um relatório que é baseado numa consulta. Vou colar aqui o que tenho para exportar em pdf, se você conseguir fazer isso migrar pra html no corpo vai ser lindo... eu consegui jogar outro relatório no corpo, mas ele era mais simples que esse...


    Código que tenho para exportar o relatorio por email em pdf:

    Código:


    Option Compare Database
    Option Explicit

    Const olMailItem = 0
    Const olByValue = 1
    Const urlImg As String = "http://i68.tinypic.com/313sy95.jpg"
    Const urlImgT As String = "http://i65.tinypic.com/jshztc.jpg"

    Public Sub fncOnAction(control As IRibbonControl)
    On Error GoTo trataErro

        Dim strArquivo As String
        Dim strLocal As String
        Dim strAssunto As String
        Dim strCorpo As String
        Dim objOut As Object
        Dim objmail As Object
        Dim objAnexo As Object
        Dim bytResposta As Byte
        Dim objRS As DAO.Recordset
        
        If TempVars("Email").Value = "" Then
            Call MsgBox("Cliente não possui e-mail informado no cadastro.", vbCritical, "Email")
            Exit Sub
        End If
        
        strArquivo = "info_" & TempVars("NumeroProc").Value & ".pdf"
        strLocal = CurrentProject.Path & "\" & strArquivo
        
        If Len(Nz(Dir(strLocal, vbArchive), "")) > 0 Then Call FileSystem.Kill(strLocal)
        
        Call DoCmd.OutputTo(acOutputReport, "Movimentação Processual", acFormatPDF, strLocal)
        
        Set objOut = CreateObject("Outlook.application")
        Set objmail = objOut.CreateItem(olMailItem)
        Set objAnexo = objmail.Attachments
        
        Call objAnexo.Add(strLocal, olByValue, 1)
        
         strAssunto = "Movimentação Processual " & TempVars("NumeroProc").Value
            strCorpo = "<html><body><b><font style='FONT-SIZE: 12px' color='#000000' face='Tahoma'>Prezado (a) " & TempVars("NomeCliente").Value
            strCorpo = strCorpo & "<html></b><body><font style='FONT-SIZE: 12px' color='#000000' face='Tahoma'><br><br>Encaminhamos a V. Sa. uma atualização referente ao processo nº " & TempVars("NumeroProc").Value
            strCorpo = strCorpo & "<html><body><br><br><b>Essa é uma mensagem gerada automaticamente pelo sistema push de [Soldi Hamann Advocacia].</b><br>Em caso de dúvidas, entre em contato conosco.<br>"
            strCorpo = strCorpo & "<br><img src=" & urlImg & " height=205 width=380><br>"
            strCorpo = strCorpo & "<html><body><br><br><br><font style='FONT-SIZE: 9px' color='#9F9F9F' face='Arial Narrow'><br>AVISO LEGAL   |  Esta mensagem é destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou legalmente privilegiada. Se você não for destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou sistema de controle. Fica desprovida de eficácia e validade a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha poderes de representação."
            strCorpo = strCorpo & "<html><body><font style='FONT-SIZE: 9px' color='#9F9F9F' face='Arial Narrow'><br>LEGAL ADVICE  |  This message is exclusively destined for the people to whom it is directed, and it can bear private and/or legally exceptional information. If you are not addressee of this message, since now you are advised to not release, copy, distribute, check or, otherwise, use the information contained in this message, because it is illegal. If you received this message by mistake, we ask you to return this email, making possible, as soon as possible, the elimination of its contents of your database, registrations or controls system. The message that bears any mandatory links, issued by someone who has no representation powers, shall be null or void."
        
        objmail.To = TempVars("Email").Value
        objmail.Subject = strAssunto
        objmail.HTMLBody = strCorpo
        Call objmail.Send
        
        Call CurrentDb.Execute("update processo set movimentou = 0 where NumProc = """ & TempVars("NumeroProc").Value & """;")
        
    sair:
        If Len(Nz(Dir(strLocal, vbArchive), "")) > 0 Then Call FileSystem.Kill(strLocal)
        Set objAnexo = Nothing
        Set objmail = Nothing
        Set objOut = Nothing
        Exit Sub
        
    trataErro:
        If Err.Number = 2501 Then
            Call MsgBox("Processo sem movimentação.", vbCritical, "Movimentação")
        Else
            Call MsgBox(Err.Description, vbCritical, "Erro número: " & Err.Number)
        End If
        
        Resume sair
        
    End Sub

    Public Function fncEnviarEmails(Optional booAutomatico As Boolean = False)
    On Error GoTo trataErroGeral

        Dim bytResposta As Byte
        Dim intTotProcessos As Integer
        Dim intContador As Integer
        Dim strArquivo As String
        Dim strLocal As String
        Dim strAssunto As String
        Dim strCorpo As String
        Dim objOut As Object
        Dim objmail As Object
        Dim objAnexo As Object
        Dim objRS As DAO.Recordset
        
        If booAutomatico Then
            bytResposta = vbYes
        Else
            Call Beep
            bytResposta = MsgBox("Deseja enviar apenas processos com novas movimentações registradas?", vbYesNoCancel + vbQuestion + vbDefaultButton3, "Envio...")
            If bytResposta = vbCancel Then Exit Function
        End If
        
        Set objRS = CurrentDb.OpenRecordset("select distinct NumProc from (clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente) INNER JOIN movimento ON processo.NumProc = movimento.processo" & IIf(bytResposta = vbYes, " where movimentou = -1", ""))
        
        If Not objRS.EOF Then
            Call objRS.MoveLast: Call objRS.MoveFirst
            intTotProcessos = objRS.RecordCount
        End If
        
        Call objRS.Close: Set objRS = Nothing
        
        'intTotProcessos = DCount("*", "processo", IIf(bytResposta = vbYes, "movimentou = -1", ""))
        
        If bytResposta = vbYes And intTotProcessos = 0 Then
            If Not booAutomatico Then Call MsgBox("Não há processos com novas movimentações registradas.", vbInformation, "Informação")
            Exit Function
        End If
        
        Call DoCmd.OpenForm("frmBarra", OpenArgs:=intTotProcessos)
        Call Form_frmBarra.fncAtualizaBarra(intContador, "Enviando emails...")
        
        Set objOut = CreateObject("Outlook.application")
        Set objRS = CurrentDb.OpenRecordset("select distinct NumProc, movimentou, [e-mail], nome, processo.numCliente from (clientes INNER JOIN processo ON clientes.NumCliente = processo.NumCliente) INNER JOIN movimento ON processo.NumProc = movimento.processo" & IIf(bytResposta = vbYes, " where movimentou = -1;", ";"))
        
        For intContador = 1 To intTotProcessos
        
            Call Form_frmBarra.fncAtualizaBarra(intContador, "Enviando email (" & intContador & "/" & intTotProcessos & ")")
        
            strArquivo = "info_" & objRS("NumProc").Value & ".pdf"
            strLocal = CurrentProject.Path & "\" & strArquivo
            
            If Len(Nz(Dir(strLocal, vbArchive), "")) > 0 Then Call FileSystem.Kill(strLocal)
            
            Call TempVars.Remove("NumeroProc")
            Call TempVars.Add("NumeroProc", objRS("NumProc").Value)
            
            If Nz(objRS("e-mail").Value) = "" Then
                
                If Not booAutomatico Then Call MsgBox("Cliente não possui email informado no cadastro." & vbNewLine & _
                                                      vbNewLine & _
                                                      "NumCliente: " & objRS("numCliente").Value & vbNewLine & _
                                                      "Nome: " & objRS("Nome").Value, vbExclamation, "Atenção !!!")
                
                GoTo trataErroEmail
            
            End If

            On Error GoTo trataErroEmail
            Call DoCmd.OpenReport("Movimentação Processual", acViewPreview, , "cpProcesso = """ & objRS("NumProc").Value & """", acHidden, "1")
            Call DoCmd.OutputTo(acOutputReport, "Movimentação Processual", acFormatPDF, strLocal)
            Call DoCmd.Close(acReport, "Movimentação Processual")
            
            Set objmail = objOut.CreateItem(olMailItem)
            Set objAnexo = objmail.Attachments
            
            Call objAnexo.Add(strLocal, olByValue, 1)
            
            strAssunto = "Movimentação Processual " & objRS("NumProc").Value
            strCorpo = "<html><body><b><font style='FONT-SIZE: 12px' color='#000000' face='Tahoma'>Prezado (a) " & objRS("Nome").Value
            strCorpo = strCorpo & "<html><body></b><font style='FONT-SIZE: 12px' color='#000000' face='Tahoma'><br><br>Encaminhamos a V. Sa. uma atualização referente ao processo nº " & objRS("NumProc").Value
            strCorpo = strCorpo & "<html><body><br><br><b>Essa é uma mensagem gerada automaticamente pelo sistema push de [Soldi Hamann Advocacia].</b><br>Em caso de dúvidas, entre em contato conosco.<br>"
            strCorpo = strCorpo & "<br><img src=" & urlImg & " height=205 width=380><br>"
            strCorpo = strCorpo & "<html><body><br><br><br><font style='FONT-SIZE: 9px' color='#9F9F9F' face='Arial Narrow'><br>AVISO LEGAL   |  Esta mensagem é destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou legalmente privilegiada. Se você não for destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou sistema de controle. Fica desprovida de eficácia e validade a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha poderes de representação."
            strCorpo = strCorpo & "<html><body><font style='FONT-SIZE: 9px' color='#9F9F9F' face='Arial Narrow'><br>LEGAL ADVICE  |  This message is exclusively destined for the people to whom it is directed, and it can bear private and/or legally exceptional information. If you are not addressee of this message, since now you are advised to not release, copy, distribute, check or, otherwise, use the information contained in this message, because it is illegal. If you received this message by mistake, we ask you to return this email, making possible, as soon as possible, the elimination of its contents of your database, registrations or controls system. The message that bears any mandatory links, issued by someone who has no representation powers, shall be null or void."
        
            objmail.To = objRS("e-mail").Value
            objmail.Subject = strAssunto
            objmail.HTMLBody = strCorpo
            Call objmail.Send
            
            Call CurrentDb.Execute("update processo set movimentou = 0 where NumProc = """ & objRS("NumProc").Value & """;")
            
    trataErroEmail:
            If Len(Nz(Dir(strLocal, vbArchive), "")) > 0 Then Call FileSystem.Kill(strLocal)
            Set objAnexo = Nothing
            Set objmail = Nothing
            
            On Error GoTo trataErroGeral
            Call objRS.MoveNext
        
        Next intContador
        
    sair:
        On Error Resume Next
        Call DoCmd.Close(acForm, "frmBarra", acSaveNo)
        Call objRS.Close: Set objRS = Nothing
        Set objOut = Nothing
        Exit Function
        
    trataErroGeral:
        Call MsgBox(Err.Description, vbCritical, "Erro número: " & Err.Number)
        Resume sair

    End Function

    Public Function fncMacroNaAbertura() As Boolean

        fncMacroNaAbertura = Not (MsgBoxTimer(10, "Deseja executar a macro de envio automático?", vbQuestion + vbYesNo + vbDefaultButton1, "Envio...") = vbNo)

    End Function

    Private Function MsgBoxTimer(Seconds As Integer, Prompt As String, _
    Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
    Optional Title As String) As VbMsgBoxResult

        Call Beep
        MsgBoxTimer = CreateObject("WScript.Shell").PopUp(Prompt, Seconds, Title, Buttons)
        
    End Function


    Código que eu tenho para enviar dados de um form por email no corpo, em html:


    Código:

    Public Function fncAgendaHojeData()


      Dim strline, strHTML

      Dim OL As Outlook.Application
      Dim MyItem As Outlook.MailItem
      
      Dim strCorpo1 As String
      Dim strCorpo2 As String

      Set OL = New Outlook.Application
      Set MyItem = Outlook.Application.CreateItem(olMailItem)
      
      DoCmd.OutputTo acOutputReport, "AgendaHojeData", acFormatHTML, "F:\AgendaHoje.html"
      
      Open "F:\AgendaHoje.html" For Input As 1
      Do While Not EOF(1)
        Input #1, strline
        strHTML = strHTML & strline
        strCorpo1 = "<html><body><br><img src=" & urlImgT & " height=81 width=614><br>"
        strCorpo2 = "<html><body><font style='FONT-SIZE: 10px' color='#9F9F9F' face='Tahoma'><br><br><b>Essa é uma mensagem gerada automaticamente pelo sistema push de [Soldi Hamann Advocacia].</b> Em caso de dúvidas, entre em contato conosco.<br>"
        
      Loop
      Close 1
     ' If OL2002 set the BodyFormat
     ' If Left(OL.Version, 2) = "10" Then
     '   MyItem.BodyFormat = olFormatHTML
    '  End If
      
      MyItem.HTMLBody = strCorpo1 & strHTML
      MyItem.Display
      MyItem.To = "annasoldih@gmail.com"
      MyItem.Subject = "agenda @soldihamann"

    Call MyItem.Send
        

    End Function
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 3/7/2019, 19:53

    Desculpe Anna, mas te ajudar desta forma é complicado.
    Porque pra eu fazer isso funcionar, terei que praticamente criar seu sistema com tabelas, campos e etc.

    Não há uma forma de postar do seu sistema somente a parte que precisa?


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 3/7/2019, 19:56

    Outra coisa, percebi que você usa Outlook para enviar email.
    Se for, não tenho como te ajudar, pois estes códigos que postei envia email direto sem passar pelo Outlook, já formatado também se preciso anexado o PDF, se for o caso.
    No aguardo.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  annissima 3/7/2019, 19:59

    Cláudio,

    Ele envia pelo outlook sim
    Não vejo problema em enviar de outra forma, desde que envie...

    Posso apagar a base de dados (que é grande) e postar o arquivo aqui, se ficar mais facil.. é que é bem complicadinho esse relatorio mesmo
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 3/7/2019, 20:02

    Sim, reparei, por isso pedi pra enviar essa parte do sistema.
    Pode apagar a base, e se preferir pode enviar somente a parte que precisa. Sem as outras partes do sistema


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  annissima 3/7/2019, 20:05

    Então...

    eu não entendo muito, tenho medo de apagar e estragar kkkkk

    https://drive.google.com/file/d/1eXhwbV2yITTKEpvtuPT3yhAkvDHbqzra

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 3/7/2019, 21:41

    Anna como esse email é enviado?
    Automaticamente?
    Ou você escolhe um processo ou cliente ou algo parecido para filtrar e depois envia o email?


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 3/7/2019, 23:07

    Este seria o corpo do email já formatado e pronto.

    Faltam só as informações restantes que deverão constar no corpo do email.

    Tudo o sistema faz automático, inclusive a saudação.
    Depois de pronto, você só precisa escolher as informações e digitar o andamento do processo e clicar em enviar e o sistema vai fazer sozinho pra você.

    Segue como ficou:

    Código:


    Boa Noite.

    Prezado (a) Anna Teste
    Encaminhamos a V. Sa. uma atualização referente ao processo nº  00000000002

    ------------------------------------------------------------------------------------------------
    Essa é uma mensagem gerada automaticamente pelo sistema push de [Soldi Hamann Advocacia].
    Em caso de dúvidas, entre em contato conosco.
    AVISO LEGAL  |  Esta mensagem é destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou legalmente privilegiada. Se você não for destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou sistema de controle. Fica desprovida de eficácia e validade a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha poderes de representação.

    LEGAL ADVICE |  This message is exclusively destined for the people to whom it is directed, and it can bear private and/or legally exceptional information. If you are not addressee of this message, since now you are advised to not release, copy, distribute, check or, otherwise, use the information contained in this message, because it is illegal. If you received this message by mistake, we ask you to return this email, making possible, as soon as possible, the elimination of its contents of your database, registrations or controls system. The message that bears any mandatory links, issued by someone who has no representation powers, shall be null or void.




    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  annissima 3/7/2019, 23:57

    Não entendi..

    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  annissima 4/7/2019, 00:04

    A minha dúvida não é quanto ao corpo do e-mail (cabeçalho, etc)
    É conseguir colocar o report Movimentação Processual em html dentro do corpo do email, usando os filtros que ele usa no vba do pdf...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 4/7/2019, 00:25

    Pensei que seu problema estava em montar o corpo do email.
    Nesse caso, você quer o corpo exatamente como está o Relatório de Movimentação Processual.

    Assim:
    Imagem hospedada por Servimg.com

    Se for isso, tenho que estudar um pouco mais.

    Mas não vejo muita dificuldade, já que você já tem o corpo do email montado, só teria que pegar a url das imagens.
    E ai ficaria da forma que quer.

    Vou testar e te falo.
    Por hoje chega, ainda estou no trabalho.
    Boa noite.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  annissima 4/7/2019, 00:29

    Formatar (as imagens, deixar bonitinho..) eu até consigo.
    Se vc olhar o report Agenda, ele vai por html...
    (veja a fncAgendaHojeData)

    Maaaaas..
    O Movimentação processual é um relatorio que filtra muito mais complexo...

    separa as movimentações por processo, organiza as cinco ultimas, ve se teve alteração, depois encaminha cada report unico pra um email diferente, com base no cadastro do cliente, depois registra que o cliente ja recebeu essas informações...

    é mais complexo.. aí eu nao consegui..
    mas basicamente, é fazer o que a fnc agenda faz, mas pro movimentação processual, com todos aqueles detalhes da função de enviar emails..
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Cláudio Machado 4/7/2019, 01:07

    Realmente, analisei e acho que vai ser bem complicado.
    mas vamos ver, de repente algum Mestre aparece pra ajudar.
    O ideal era ver isso funcionando, ficou meio confuso pra abastecer as informações e ver funcionando.
    mas amanhã dou uma olhada melhor.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Enviar dados de um formulário no corpo do email 90dssg para agradecer a dica que solucionou seu problema.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Avelino Sampaio 4/7/2019, 09:27

    Olá

    neste meu artigo (na parte final) tem uma função (fncLerArquivo) que permite gerar o relatório no corpo do e-mail:

    usandoaccess.com.br/dicas/outlook-anexos-richtext-account.asp?id=1&idlista=18#inicio
    Copiar link e colar no navegador.

    Bom estudo!

    Conteúdo patrocinado


    Enviar dados de um formulário no corpo do email Empty Re: Enviar dados de um formulário no corpo do email

    Mensagem  Conteúdo patrocinado


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