[Resolvido]PDF / Email ajuda Jpaulo ?

Amigo, se está dando tantos erros assim, seria ideal reinstalar seu Office e os service paks para sua versão.

OK, companheiro, mas estou aqui para ajudar no que precisar.

-------------------------------------------------------------------------------
Aqueles que imaginam que um político seria um melhor chefe de estado que um monarca hereditário, talvez devessem dar-se ao trabalho de conhecer mais políticos.
Margaret Thatcher

Sei que ão é minha instalação Topbr, mas sou muito grato pela dica.

Vieira, vou dar um geral em um exemplo que o Criquio me passou, caso tenha dúvidas dou um grito pra vc's.

Sou grato pela atenção, QUE DEUS ILUMINE NOSSAS MENTES.

O problema está mesmo no seu office 2003, atualize-o e instale o sp3.

PREZADOS,

ESTOU TENTANDO UTILIZAR UM CÓDIGO QUE OBTIVE NO FORUM, ENTRETANTO, NÃO OBTIVE SUCESSO QUANDO VOU UTILIZO ESTE MESMO CÓDIGO QUANDO TENHO COMO A FONTE DE REFERÊNCIA UMA CONSULTA. QUANDO É TABELA FUNCIONA NORMAL. O CÓDIGO SEGUE ABAIXO:

Dim rst As DAO.Recordset
Dim strDestinatarios
Dim strTitulo
Dim strMensagemCorpoDoEmail

Set rst = CurrentDb.OpenRecordset("CONS_EMPRESAS") - O ERRO OCORRE NESTA LINHA E É INFORMADO QUE OS PARÂMETROS SÃO INSUFICIENTES

Do Until rst.EOF
strDestinatarios = strDestinatarios & rst("E-MAIL 1") & ";"
rst.MoveNext
Loop


strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
strTitulo = "teste"
strMensagemCorpoDoEmail = "Obrigado"

On Error Resume Next
DoCmd.SendObject , , , "resp1@energy.com.br;resp2@energy.com.br", Me.SOCILITANTE.Value, strDestinatarios, strTitulo, strMensagemCorpoDoEmail, True, True

rst.Close
Set rst = Nothing

ALGUEM PODERIA ME AJUDAR? PRECISO FILTRAR UM CAMPO COM MULTIPLOS VALORES. DESTA FORMA ACHEI QUE UTILIZANDO A QUERY SERIA MAIS FÁCIL.

MUITO OBRIGADO.

ABS.

Ola seja bem vindo ao fórum.

Atenção às regras, não pode postar tudo em letra maíuscula, leia as regras por favor.

http://maximoaccess.forumeiros.com/t48-regras-do-forum

Para a sua duvida:
Altere a sua linha em erro por esta;

Set rst = CurrentDb.OpenRecordset("SELECT * FROM CONS_EMPRESAS")

Prezado JPaulo,

Obrigado pelas boas vindas. Faço o pedido de desculpa por ter enviado as mensagens em maiúscula, não havia lido as regras. Desculpe-me mais uma vez.

A respeito do alteração de código sugerida acabei tendo o mesmo problema. Ele me informa que estou com erro na linha:

Set rst = CurrentDb.OpenRecordset("SELECT *FROM CONS_EMPRESAS")

Como mensagem de erro fala que os parâmetros esperados são insuficientes. Eram esperados 1. Erro tempo de execução "3061". Novamente se testo a tabela empresas o código funciona corretamente, mas como preciso de filtrar os e-mails nesta tabela isto não me atende.

Jpaulo, vc poderia me dar alguma sugestão?

Agradeço mais uma vez a disponibilidade de me ajudar.

Grato,
Rnos

Funciona exatamente como lhe disse, Select * from

Veja se o nome da sua consulta está correto na instrução do VBA, se for necessario faça F2 em cima da sua consulta e copie o nome para o VBA.

Prezado JPaulo,

Continuo apanhando aqui. Até consegui resolver meu problema, mas não ficou muito bacana.

Estou com problemas para ler consultas, esta que é a verdade.

Eu resolvi o problema da seguinte maneira, fiz a consulta gravar os dados e atualizar uma tabela toda vez que eu necessito. A partir dai pego os dados da tabela e coloco no e-mail.

Ele até leu a linha de códgio que estava com o problema agora JPaulo, entretanto, tive problemas com outra linha:

strDestinatarios = strDestinatarios & rst("E-MAIL 1") & ";"

Nesta linha ele fala que o item não pode ser encontrado. Você tem alguma sugestão neste caso?

Valeu mais uma vez.

Abs.

Vamos lá...

Repare que todos os erros que tem apresentado, estão relacionados apenas com os nomes ou da consulta ou dos campos, ou os espaços nos proprios nomes;

teste entre parentesis retos e veja tambem se esse nome é o correto;

strDestinatarios = strDestinatarios & rst("[E-MAIL 1]") & ";"

Obrigado JPaulo. Acredito que pode ser uma falta de experiência minha. Estarei testando para reparar este erro.

Muito obrigado mesmo pela força.

Abs.

Pessoal...
Eu só preciso criar o PDF para ser armazenado no computador e em BackUp...
Não preciso que seja enviado nada por e-mail...
Até porque, odeio o "outloko"... rs...
Como fazer para apenas criar o PDF e armazená-lo em alguma pasta???

Luis bom dia !

Depende da versão do seu Access.

O 2007 já traz de base o exportar para PDF.

Para o 2000/2003, tem aqui mesmo códigos para isso.

OI JP!!!! Bom dia...
Eu uso o 2010, com base no 2007... 64Bits (quase que eu me ferro... rs...) Fui colocar o sisteminha feito no 64Bits no PC do cliente... E NÃO RODOU!!!! Rs...
Ainda bem que a máquina dele aceita 64... aproveitei e fiz o cliente instalar o Seven 64...

Bom... voltando ao papo original...
Eu baixei os que eu achei aqui no forum, para dar uma estudada.... más fiquei na mesma, pois não localizei onde é que faz a "exportação" para pdf nos módulos...
Lembrando que só preciso mesmo dos PDF para fins de BackUp, pois o relatório criado dentro do Access já funciona perfeitamente para a impressão...
Aproveitando, tô criando um novo tópico na área de tabelas, sobre a criação de uma para fins de cobrança... se puder dar uma força lá...
Brigadão, desde já...
Abraços... e novamente, bom dia (apesar de nublado... rs...)

Gente... nem respondam mais aqui...
Olha só a encrenca que deu no cliente:

http://maximoaccess.forumeiros.com/t9591-downgrade-de-64-para-32bits-tem-como

Não sei nem o que fazer, para não ter que refazer tudo o que já está feito...

Bom Dia Paulo

Achei muito interessante o programa em Access para envio de e-mail, uma ferramenta muito pratica, porém ele utiliza o Outlook, eu não uso essa ferramenta, utilizo o live mail ou diretamente no site gmail, como faço para que ele funcione?

Abç

Everson

Everson, seja bem vindo ao fórum!

Acredito que para o seu caso seria mais prático enviar via CDO, que não depende de cliente de email. Dê uma pesquisada no fórum.

É isso ae como o Criquio diz, para Gmail outro, utilize CDO;

Veja se ajuda;

http://maximoaccess.forumeiros.com/t16321-resolvidoenviar-arquivo-zipado-por-e-mail-no-mesmo-evento

Vlw Pessoal vou dar uma pesquisada!!! logo lhes dou um retorno

Abç

Muito obrigado pelas explicações e exemplos.

Bom dia!

Link do Exemplo quebrado!

Alguém poderia compartilhar comigo esse exemplo do JPaulo em um link ativo? Infelizmente tentei pelo link que o mesmo postou, mas esta quebrado.

Dese já agradeço!

Paulo

Olá JPaulo você poderia me ajudar. Acho que o exemplo que você disponibilizou seja algo que eu precise.

Minha dúvida é o seguinte: eu vou montar um bd onde irei cadastrar produto com suas características técnicas. Irei Classificar como produtos líquidos e pó, cada um com seu código.

Eu gostaria que meus clientes enviassem um e-mail para este bd com o assunto: "líquido 001" ou "pó 010" e queria que o bd respondesse este e-mail para o cliente com o relatório em pdf.

Isto é possível? Você tem algo do tipo?

Muito obrigado.