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]Exportacao em PDF e envio por e-mail automaticamente....

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 00:12

    hoje foi me requerido algo que esta fora de meus conhecimentos...

    Tenho um sistema que todo final do mes se exporta um relatorio em PDF para ser enviado a uma determinada reparticao...

    tem como esse processo ser automatizado?

    Assim.. em determinado dia, ele exportar o relatorio e ja o enviar para um e-mail especifico?


    Aguardo opinioes de nosso mestres...

    Saudacoes
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 00:35

    Você pode integrar isso àquele esquema do envio de email por cdo sem problema. Basta você correr a função que gera o pdf e então correr a função de envio do email por cdo tendo o pdf como anexo.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 00:42

    Pode me ajudar com isso criquio?

    Correr funcao como?

    teria que ser automaticamente... sem intervencao do usuario....
    um dia predefinido o form abrir em oculto.. gerar o PDF e enviar por e-mail...

    ou entao no minimo um form com botao que ao clicar ja exporta e envia..

    pode me ajudr com isso?

    E os nome dos Pdf´s teriam que mudar a cada exportacao...

    Aguardo.. Puts.. to precisando disso
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 00:48

    Como o pdf é gerado?


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 01:24

    Um relatorio...
    atualmente eu abro e exporto manualmente

    O relatorio contem apenas um registro...

    esse relatorio e baseado em uma consulta...

    Sao detentos (pessoas)
    Cada um com um prontuario (ID)

    mas esse relatorio nao e especifico de uma pessoa..

    ele apenas pesquisa campos na tabela retonando dados eststisticos...

    Detentos em regime fechado = 20
    detentos em regime aberto = 30..

    ele nao é por registro..

    tem apenas uma folha com somas e filtros de determinados csmpos..

    O dia que voce visualiza esse relatorio, ele mostra a situacao atual do presidio...
    Lotacao..
    crimes
    etc..
    o relatorio em sim é extremamente simples
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 01:40

    Só para refrescar a memória, a versão do Access é a 2007, não é? Pergunto porque antes da 2007 o Access não gerava arquivo pdf por si só, erá preciso algum complemento.

    Outra coisa: os relatórios são acumulados na pasta? Melhor se for uma subpasta de nome Relatórios por exemplo, dentro da pasta do aplicativo. Como esses relatórios são nomeados? Pela data?


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 02:09

    Prezado...
    Ate hoje mao armazenavamos eles em PDF...
    apenas imprimiamos e enviavamos todo mes para o FORUM...

    Mas agora o Juiz que que enviemos por e-mail.. todo mes..
    entao pensei em fazer isso automatizando...

    O 2007 gera PDF, quando abre em vizualizacao de impresao ele disponibiliza isso na barra de impressao...

    Armazenariamos em uma pasta dentro do aplicativo....renomeando a cada PDF..
    Isso seria mensal...

    vou te mandar um por aqui em pdf
    voce fara ideia

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 02:16

    Aguardando. Eu acho que seria uma boa forma de organização nomeá-los assim: 05-2011, 06-2011, 07-2011. O que achas? A não ser que já tenham adotado um padrão para isso.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 02:21

    PDF..

    https://www.dropbox.com/s/be0jz32ofp4pwa9/F%C3%B3rum%20Quantitativo%20Fechado.pdf
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 02:28

    Então não serão armazenadas as cópias no pc? Sendo o nome sempre esse "Fórum Quantitativo Fechado.pdf" e ele sendo excluído depois de enviado?


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 02:31

    Sim claro, os nome conforme suferiu...

    Pode observar ai... que o relatorio faz referencia aos seguintes campos:

    SEXO e SITUAÇAO PENAL

    Sexo (Valores no campo: Masculino/Feminino/Menor Masculino/Menor Feminino)
    Situacao Penal (Valores no campo: Provisorio/condenado/prisao civil/medida socio educativa)

    esses valores sao fixos (Predefinidos) o usuario apena os escolhe em uma lista de valores)


    Entao.. nesse rpt... ele agrupa por

    SEXO e com sub Grupo Situacao penal....

    Os valores no cabecalho do Rpt sao fixos.. Sao Rotulos (CAPACIDADADE PROJETADA)


    Detalhes... Sao dois relatorios desses diferentes...

    mas o que muda e o filtro na consulta.. nesse caso ai o filtro e por regime de prisao....


    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 02:37

    Vamos armazena-los sim...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 03:33

    Aqui está a função completa para gerar o relatório e enviar por email. Você pode fazer o envio ao abrir o aplicativo em um determinado dia, mas será necessário, alem de avaliar a data, tambem avaliar se o arquivo já existe, senão haverá a tentativa de cria-lo toda vez que abrir o bd no dia especificado. Esse código pode ser colocado no evento "Ao carregar" do formulário principal. Altere Email, servidor e mensagens para se adequar ao que você precisa. Acabei de implementar esse código agora. Não o testei ainda, mas acredito que deverá dar certo.

    ' variável que representa o mês corrente
    Dim Mes As Integer
    ' se for o último dia do mês e o arquivo mês-ano.pdf ainda não existir, então...
    If Day(Date) = Day(DateSerial(Year(Date), Mes + 1, 1) - 1) And Len(Dir(CurrentProject.Path & "\Relatórios\" & Format(now, "mm-yyyy") & ".pdf")) = 0 then
    ' cria o pdf na subpasta Relatórios com nome "mês-ano.pdf"
    DoCmd.OutputTo acOutputReport, "NomeDoRelatório", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios\" & Format(now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
    ' cria as variáveis dos objetos cdo e envia o email
    Dim Mens As Object
    Dim Config As Object
    Set Mens = CreateObject("CDO.Message")
    Set Config = CreateObject("CDO.Configuration")

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    .Fields.Update
    End With

    Set Mens = New CDO.Message
    With Mens
    Set .Configuration = Config
    .From = "Nome de quem envia"

    .Sender = "email de quem envia"

    .Subject = "Assunto da mensagem"
    .HTMLBody = "Mensagem a ser enviada"

    .To = "Email de destino"
    ' a linha abaixo pega o pdf criado e anexa à mensagem
    .AddAttachment CurrentProject.Path & "\Relatórios\" & Format(now, "mm-yyyy") & ".pdf"

    .Send
    End With

    MsgBox "Seus dados foram enviados com sucesso.", vbOKOnly + vbInformation, "Dados enviados"

    Set Mens = Nothing
    Set Config = Nothing
    Else
    Exit Sub
    End If


    Última edição por criquio em 6/5/2011, 03:38, editado 1 vez(es)


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 03:37

    Amigo.. porfavor me oriente onde aplicar..

    ele gera automatico? ou tem que ser atraves de um form com botao...

    me da um vizualizacao da coisa pra poder me situar ..

    Grato
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 03:39

    Entendi.. mas olha so...
    nao entendi o que me disse sobre ele verificar se ha outro arquivo...

    ele nao ira gerar 1 por mes.?

    Ele poderia gerar assim como me surgeriu..para que eu mantivesse o arquivo no pc

    Ele ja esta assim?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 03:56

    Exatamente. Mas veja bem: vamos supor que o aplicativo é aberto pela primeira vez no dia, lá pelas 7 horas. Ele irá criar o pdf e enviar por email se for o último dia do mês. Agora vamos supor que o aplicativo é fechado e aberto de novo no mesmo dia. O arquivo pdf já existe e já foi enviado, então não precisará fazer isso de novo. Pegando o mês 5, ele irá checar se o arquivo 05-2011.pdf já foi criado. Caso ainda não tenha sido, cria e envia,caso contrário, Exit Sub.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 03:59

    Prezado criquio seria aconselhavel antes do codigo colocar o condigo que se avalia erros quando o codigo for executado?

    On Err GoTO.....

    Imagine que na hora que ele for enviar, nao tenha conexao ativa... isso gerara um erro..

    esse codigo funcionaria nese caso?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 04:03

    É sempre bom tratar o erro.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 6/5/2011, 04:07

    Faremos assim amigão.. hoje nao vou mexer nisso..
    Amanha vou aplicar isso...

    Assim que tiver resultados,.. comunico..

    Agradeço pela ajuda..

    Tenha uma boa noite...]
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 6/5/2011, 04:27

    Boa noite e até amanhã.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 9/5/2011, 23:19

    Boa noite camarada, eu de volta a este tópico..
    amanha comecarei a implantar este codigo no aplicativo..

    Surgiu-me uma questao:

    o aplicativo em determinado dia do mes executara o codigo.. tudo certo ate aqui..
    ocorre que se esse dia cair em um domingo e o pc nao for ligado, ele nao executara, e no proximo dia seguinte ele nao o fará..entao nesse mes nao terei esse relatorio gerado e enviado.

    tem como voce adicionar no código uma condicao que ele pesquise ao ligar.. Assim..

    Data programada para geracao: 08/05/2011 (Domingo) nao executara...
    Ao ligar o pc na segunda ele verifica se há o PDF de nome 08/05/11 se nao tiver gera...

    espero que tenha entendido..

    Se puder me ajudar com isso.. fico grato..

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 10/5/2011, 00:25

    Será sempre no dia 8? E se cair no sábado? Será feito no sábado mesmo, na sexta ou no domingo? E se for feriado? No caso de feriados talvez seja o caso de cadastrá-los emuma tabela.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 10/5/2011, 00:35

    Como esse negocio de feriado no brasil é uma caixa de pandora.. creio que nao e a melhor ideia.. pois temos diferencas de daras de feriado dependendo da regiao ou estado ou ate mesmo cidade...

    Pensei.. em um codigo que..

    por exemplo...
    se hoje for 01/01/2011 e a data programada era 31/02/2011 (feriado) nao executou...
    entao o codigo de posse da informacao da data..

    tipo.. se Dataatual > Data geracao.. ele pesquisa pra ver se encontra o arquivo...

    Se encontrar 01/01/2011 Exit Sub
    Se nao.. e3xecuta e o cria...

    entendeu?

    S
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 10/5/2011, 00:38

    Tá, mas só para esclarecer: você mencionou dia 08 na mensagem anterior. Pode variar a data programada? Ou será sempre no último dia do mês ou sempre em um dia fixo que não exatamente o último dia do mês?


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 10/5/2011, 00:56

    Funciona ssim prezado...

    Esse relatorio.. como te mandei em pdf ele passa a situacao atual no momento da sua emissao...
    ele le as tabelas como mencionei a filtra os dados.. entao ele sempre le o dia atual...

    Tenho que envia-lo todo mes para o forum...
    O relatorio quando emitido aparece o dia atual

    Relatorio para o mes de: Data() *dia da impressao...

    Teria que ser entre dia 25 e no maximo 30 de cada mes...

    eu nao posso mandar para o forum por exemplo um relatorio de maio sendo que ainda nao findou o mes de maio

    por exemplo se eu emito esse relatorio hoje.. ele sai.. Maio de 2011 eu envio para o forum e o Juiz me da uma catacrada...
    como posso emitir um relatorio de um mes que ainda nao terminou...
    creio que a data ideal para a emissao dele
    seria dia 25,.... porque se dia 25 for feriado.. ainda teriamos 5 dias para emiti-lo com data do mesmo mes...


    Entendeu amigão
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 10/5/2011, 01:05

    Bom,então vamos tomar o dia 25 como o eleito, o bambambam, o bom da boca no mês, hehehe. Vamos retirar a primeira linha do código passado a mudar só um pouquinho a linha que checa a data, que será a primeira linha do código:

    ' se o dia do mês for maior ou igual a 25 e o arquivo mês-ano.pdf ainda não existir, então...
    If Day(Date) >=25 And Len(Dir(CurrentProject.Path & "\Relatórios\" & Format(now, "mm-yyyy") & ".pdf")) = 0 then
    blábláblá


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 10/5/2011, 01:41

    rsrs ok amigao.. amanha comeco nisso e te dou retorno..tenha uma boa noite...
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 10/5/2011, 01:44

    uma coisa.. poder ser colocado mais de um e-mail para o emvio?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 10/5/2011, 01:50

    Pode sim. É igual enviar pelo hotmail por exemplo. Basta separá-los por vírgula. Se pretender, pode enviar como cópia oculta tambem.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 10/5/2011, 01:52

    Ok.. ate amanha
    Obrigado
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 12/5/2011, 21:16

    Mestre Criquio...Olha eu quebrando cabeca com o topico..
    Me diz uma coisa..
    as informacoes do servidor de e-mail hotmail, onde as consigo?

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 12/5/2011, 21:26

    Teste:

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@hotmail.com" ' ou apenas o user
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 12/5/2011, 21:46

    Prezado nessa linha abaixo na hora que manda compilar esta dando:

    O tipo definido pelo ususario nao foi definido

    Set Mens = New CDO.Message
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 12/5/2011, 21:49

    A dll cdosys está na System32 e registrada?


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 12/5/2011, 21:58

    Esta na pasta.. agora como faço para saber se esta registrada?
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 12/5/2011, 21:59

    Não seria falta de alguma referência?
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 12/5/2011, 22:01

    Eu abro o SystemReg (seu) onde faz menção a mesma linha e nao da esse problema...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 12/5/2011, 22:03

    Vá nas referências e veja se Microsoft cdo está referenciada. Se não estiver, marque-a e teste novamente.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 12/5/2011, 22:05

    Era a referencia...Feito..

    Vou testar.. qualquer coisa dou retorno

    Saudações
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 12/5/2011, 23:05

    Amigo Criquio.. diz que o formato com o qual estou exportando nao esta disponivel

    DoCmd.OutputTo acOutputReport, "Fórum Relatório Inspeção", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios\" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 12/5/2011, 23:37

    Não seria por causa dos espaços no nome do relatório? Tente colocar underline ligando os nomes. Ou colocá-lo entre colchetes.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 12/5/2011, 23:49

    Realmente esta com espaços
    verei e retorno
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 13/5/2011, 00:00

    Mesma mesagem amigo..
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 13/5/2011, 00:01

    DoCmd.OutputTo acOutputReport, "rptRelatorioInspecao", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios\" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 13/5/2011, 00:03

    Será que nao é na parte do nome do arquivo (de Saida)
    Format(Now, "mm-yyyy")
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 13/5/2011, 00:33

    Quais referências seu aplicativo mostra ativas?


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 13/5/2011, 00:49

    http://dl.dropbox.com/u/26441349/Sem%20t%C3%ADtulo.jpg

    essas no print acima
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 13/5/2011, 01:02

    Em questão de referência me parece tudo certo. Como o Access 2007 já possui esse recurso nativamente, tente desabilitar a referência do Adobe Acrobat.


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

    avatar
    Convidado
    Convidado


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Convidado 13/5/2011, 01:04

    Mesma coisa...nao sera no nome de saida..? Vamos tentar mudar o nome na saida.. se puder alterar essa linha para testarmos..

    grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  criquio 13/5/2011, 01:09

    Não. Nome de saída não é. Isso está certinho. Posta aí uma cópia do aplicativo com o relatório, o formulário que fabrica o relatório eventuais tabelas e/ou consultas que os alimentam para darmos uma pesquisada. Não se esqueça de tirar sua senha do email.


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


    [Resolvido]Exportacao em PDF e envio por e-mail automaticamente.... Empty Re: [Resolvido]Exportacao em PDF e envio por e-mail automaticamente....

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 08:00