MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Run-time error '-2147024894 (80070002)':

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 873
    Registrado : 18/07/2012

    [Resolvido]Run-time error '-2147024894 (80070002)':

    Mensagem  toyebom em Dom 19 Jan 2014 - 22:35

    Tenho no BD um botão que me cria uma pasta e dentro dela um pdf, que deveria mandar também para o outlook no entanto faz tudo mas quando manda para o outlook dá o seguinte erro:

    Run-time error '-2147024894 (80070002)':

    Não é possivel localizar este ficheiro. Verifique se o caminho e o nome do ficheiro estão corretos.

    Junto o meu código com a linha que aparece no Vba a amarelo, espero poder ser ajudado, obrigado.

    Private Sub Comando697_Click()
    Dim strArquivo  As String
    Dim strLocal    As String
    Dim objOut      As Object
    Dim objmail     As Object
    Dim objAnexo    As Object
    Dim strDocumento As String
    Dim fso As Object

    Const olMailItem = 0
    Const olByValue = 1


    '---------------------------------------------
    '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)

    '------------------------------------------------------------
    'Abrindo a opção anexo
    'Similar ao clicar no botão ANEXO do Outlook
    '------------------------------------------------------------
    Set objAnexo = objmail.Attachments

    '---------------------------------------------------------------------------------
    'Indico o nome do arquivo pdf e o local que será gravado
    'O local que escolhi para gravar os arquivos de pdf gerados
    'é na pasta enviados, aonde se encontra o aplicativo.
    'Neste exemplo, gero os nomes dos arquivos, aproveitando o número exclusivo
    'do cliente.  Então os arquivos vão ficar com o aspecto: rlt1.pdf, rlt2.pdf, ...
    'É claro que vc poderá gerar o nome que achar mais conveniente.
    '---------------------------------------------------------------------------------
    strLocal = CurrentProject.Path & "\Inquéritos\" & Replace(Replace(Me!nuipc, "/", "_"), ".", "-") & "\"
    strDocumento = "MSG Ordem Advogados"

    'Salvando alterações no registro
    If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord

    '----------------------------------------------------------------------------
    'Abre o relatório filtrado e oculto de acordo com o cliente selecionado.
    '----------------------------------------------------------------------------
    DoCmd.Save
    DoCmd.OpenReport "MSG Ordem Advogados", acViewPreview, , "[Cód] = " & [Cód]
    DoCmd.Maximize
    strLocal = CurrentProject.Path & "\Inquéritos\" & Replace(Replace(Me!nuipc, "/", "_"), ".", "-") & "\"
    strDocumento = "MSG Ordem Advogados"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.folderexists(strLocal) Then ' verifica se ja existe a pasta e subpasta
    DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & "MSG Ordem Advogados" & " " & Replace(Me!nuipc, "/", "_") & " _ " & Me![Cód] & ".pdf", False
    Else
    MkDir strLocal ' se nao existir cria
    DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & "MSG Ordem Advogados" & " " & Replace(Me!nuipc, "/", "_") & " _ " & Me![Cód] & ".pdf", False
    End If

    Dim numCop As Integer
       numCop = InputBox("Informe a quantidade de cópias: ", "IMPRIMIR") 'Valor este que pode ser obtido por outro meios
       DoCmd.PrintOut acPrintAll, , , acHigh, numCop 'Linha simplificada para a impressão

    '-------------------------------------------
    'fecha o relatório clientes que está oculto
    '-------------------------------------------
    DoCmd.Close acReport, "MSG Ordem Advogados"

    '--------------------------------------------------------
    'adiciona o arquivo pdf no anexo
    '-------------------------------------------------------
    objAnexo.Add strLocal, olByValue, 1

    '-----------------------------------------------------------------
    '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
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Re: [Resolvido]Run-time error '-2147024894 (80070002)':

    Mensagem  HARYSOHN em Seg 20 Jan 2014 - 1:36

    O Erro condiz com caminho das pastas não encontrado.

    Verifique suas variáveis e o caminho utilizado e veja se realmente existe ou o nome do arquivo está incorreto.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 873
    Registrado : 18/07/2012

    Run-time error '-2147024894 (80070002)':

    Mensagem  toyebom em Qua 22 Jan 2014 - 21:45

    O codigo faz-me todos os passo, cria a pasta, cria o pdf e previzualiza, só não o coloca no outlook.

    Tenho o mesmo código em outros formes e funciona na perfeição só neste é que não, não descubro qual a linha em que me enganei.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Re: [Resolvido]Run-time error '-2147024894 (80070002)':

    Mensagem  HARYSOHN em Qua 22 Jan 2014 - 22:16

    O que me parece ai é que a variável que representa o local + Nome do ficheiro está incorreta e portanto não o encontra.

    Eu recomendo que:

    1 - Coloque pontos de interrupção em todo o código e vá o executando.. chegando na linha que carrega a variável veja na janela de variáveis ou memso pouse o mouse sobre a mesma que verás o que tem contido nela.. ai poderá ver se é o mesmo caminho que está gravado o ficheiro.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 873
    Registrado : 18/07/2012

    Run-time error '-2147024894 (80070002)':

    Mensagem  toyebom em Dom 26 Jan 2014 - 16:55

    HARYSOHN
    Obrigado pela ajuda, o problema era que quando carregava no botão email, gerava-me a pasta

    strLocal = CurrentProject.Path & "\Inquéritos\" & Replace(Replace(Me!nuipc, "/", "_"), ".", "-") & "\"
    strDocumento = "MSG Ordem Advogados"


    no entanto quando ia localizar a mesma não a encontrava, resolvi criar uma pasta já com nome "Mail SINOA"

    strArquivo = Replace(Replace(Me!nuipc, "/", "_"), ".", "-") & Me![Cód] & ".pdf"
    strLocal = CurrentProject.Path & "\Mail SINOA\" & strArquivo


    Desta forma ficou resolvido


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Re: [Resolvido]Run-time error '-2147024894 (80070002)':

    Mensagem  HARYSOHN em Dom 26 Jan 2014 - 17:09

    O Fórum agradece o Retorno.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 873
    Registrado : 18/07/2012

    [Resolvido]Run-time error '-2147024894 (80070002)':

    Mensagem  toyebom em Dom 26 Jan 2014 - 17:14

    Ok.

    Agora se pudesses dar uma olhada nos outros, agradecia.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Re: [Resolvido]Run-time error '-2147024894 (80070002)':

    Mensagem  HARYSOHN em Dom 26 Jan 2014 - 17:24

    Quais?


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 873
    Registrado : 18/07/2012

    [Resolvido]Run-time error '-2147024894 (80070002)':

    Mensagem  toyebom em Dom 26 Jan 2014 - 17:44

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Re: [Resolvido]Run-time error '-2147024894 (80070002)':

    Mensagem  HARYSOHN em Dom 26 Jan 2014 - 19:11

    Eita!!! Está animado não?  Lol!!!!

    Assim que possível verei.

    Cumprimentos. cheers


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 23 Out 2017 - 15:18