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

2 participantes

    [Resolvido]Consulta diretamente corpo email

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 02/09/2016

    [Resolvido]Consulta diretamente corpo email Empty [Resolvido]Consulta diretamente corpo email

    Mensagem  ictsp Qua 15 Fev - 11:18

    Bom dia Srs! É possível mandar uma tabela diretamente no corpo do email via vba?

    Obs: Não em anexo.

    Abraço!!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Consulta diretamente corpo email Empty Re: [Resolvido]Consulta diretamente corpo email

    Mensagem  FabioPaes Qui 16 Fev - 7:09

    Basta passar todo o conteudo  da consulta para uma variavel... E no Corpo do email, colocar a variavel amigo!

    Para isso abra um recordset com a consulta desejada...
    Faça um Loop percorrendo todos os registros da consulta e concatenando em uma Variavel.... e ao final aplique ela a seu email!

    Veja esse exemplo aqui: https://www.maximoaccess.com/t28402-dividir-texto-a-cima-de-65mil-caracteres-em-caixas-de-texto-em-relatorio-com-ate-64-000-caracteres-por-caixa-e-texto <=== O que lhe importará é apenas a forma como é construída o relatório... Veja a Função Estoque_Do


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 02/09/2016

    [Resolvido]Consulta diretamente corpo email Empty Re: [Resolvido]Consulta diretamente corpo email

    Mensagem  ictsp Qui 16 Fev - 9:16

    Bom dia Fabio! É que na vdd eu estou salvando e enviando os relatorios no formato html direto no corpo do email. O problema, é que qdo vai para o Outlook, o relatório aparece um pouco desformatado. Li em um tópico que era possível abrir o html na caixa de texto e depois enviar para o corpo do email, preservando a formatação.

    Vc sabe alguma coisa a respeito dessa possibilidade? Desde já, agradeço a atenção e ajuda!!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Consulta diretamente corpo email Empty Re: [Resolvido]Consulta diretamente corpo email

    Mensagem  FabioPaes Qui 16 Fev - 18:50

    Mudou um pouco ne sua duvida?

    Bom nao conheco nada do tipo. Mas posta o que ja tem para testarmos e ver se achamos solucao.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 02/09/2016

    [Resolvido]Consulta diretamente corpo email Empty Re: [Resolvido]Consulta diretamente corpo email

    Mensagem  ictsp Sex 17 Fev - 11:41

    Bom dia Fabio! Antes de mais nada, obrigado pela ajuda Estou postando o banco de dados para que vc e os colegas interessados possam dar uma olhada. Desculpa a demora em responder.

    Adianto que sou iniciante kkkk. A finalidade desse bd é poder cadastrar o cliente e os orçamentos que são feitos ao mesmo e enviar por email.

    o caminho do arquivo pdf e html estão na pasta tbdoc. Ao salvar o relatório, ele já salva nos dois formatos.

    O que eu gostaria é de tentar manter a formatação do arquivo html quando ele é inserido direto no corpo do email.

    E, aproveitando a oportunidade, saber se é possivel excluir ao mesmo tempo o arquivo e o caminho dele na tabela tbDOC.

    Qualquer duvida ou informação que precisar estou a disposição.

    Access 2010.
    Anexos
    [Resolvido]Consulta diretamente corpo email Attachmentbd teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (617 Kb) Baixado 49 vez(es)
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 02/09/2016

    [Resolvido]Consulta diretamente corpo email Empty Re: [Resolvido]Consulta diretamente corpo email

    Mensagem  ictsp Dom 21 Ago - 19:38

    Pessoal, salvo o relatório nos formatos pdf e html. Para enviar diretamente no corpo do email, envio o html da seguinte forma:
    Código:
    Dim objOut      As Object
    Dim objMail    As Object
    Dim objclip    As Object
    Const olMailItem = 0

    '---------------------------------------------
    'Carregando a coleção do Outlook
    'Similar ao abrir o Outlook
    '---------------------------------------------
    Set objOut = CreateObject("Outlook.application")

    '------------------------------------------------------------
    'Abrindo o formulário de email para inserir os itens de email
    'Similar ao clicar no botão NOVO do Outlook
    '------------------------------------------------------------
    Set objMail = objOut.CreateItem(olMailItem)
    'Passando os valores do formulário exemplo para os itens de email
    '-----------------------------------------------------------------------
    objMail.To = Me!txpara 'destinatário
    objMail.Subject = Me!txassunto 'assunto email
    objMail.CC = Nz(Me!txcc, "") 'com cópia
    objMail.BCC = Nz(Me!txcco, "") 'Com cópia oculta
    objMail.BodyFormat = olFormatRichText
    objMail.HTMLBody = fncLerArquivo(CurrentProject.Path & "\orçamentos\" & Me!TXANEXO.Column(0))
    '------------------------------------------------------------
    'Mostra a tela de sáida de email que abrimos
    '-----------------------------------------------------------------
    objMail.Display

    '-------------------------------------------------------
    'Tudo já foi entregue ao outlook, então podemos esvaziar
    'a memoria do computador usada pelas variáveis
    '-------------------------------------------------------
    Set objAnexo = Nothing
    Set objMail = Nothing
    Set objOut = Nothing
    anexar.Enabled = False
    End If
    End If
    End If
    End If

      Data/hora atual: Sab 1 Out - 11:39