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] Erro em tempo de excecução 2501 a ação OutpotTo foi cancelada!

    avatar
    wdemelo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 15/07/2013

    [Resolvido] Erro em tempo de excecução 2501  a ação OutpotTo foi cancelada! Empty [Resolvido] Erro em tempo de excecução 2501 a ação OutpotTo foi cancelada!

    Mensagem  wdemelo 7/11/2022, 00:12

    Senhores,


    Preciso da ajuda de vocÊ, não consigo resolver!

    Erro em tempo de excecução 2501

    a ação OutpotTo foi cancelada!

    Private Sub email_Click()
       
    Dim strArquivo As String
    Dim strLocal As String
    Dim objOut As Object
    Dim objmail As Object
    Dim objAnexo 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.
    'Neste exemplo gero os nomes dos arquivos, aproveitando o número da proposta,
    'ficando com o seguinte aspecto: proposta1.pdf, proposta2.pdf,...
    '------------------------------------------------------------------------------
    strArquivo = "ReporteSMS" & Me!CÓDIGO & ".pdf"
    strLocal = CurrentProject.Path & "C:\Users\wagui\Documents\REPORTER PROATIVO\" & strArquivo

    '----------------------------------------------------------------------------
    'Abre o relatório filtrado e oculto, de acordo com a proposta selecionada.
    '----------------------------------------------------------------------------

    DoCmd.OpenReport "reporterSMS", acViewPreview, , "CÓDIGO =" & Me!txtCÓDIGO, acHidden

    '----------------------------------------------------------------------------
    'Gera o pdf do relatório através do comando OutputTo.
    'O mecanismo do Access reconhece que o relatório solicitado pelo OutputTo
    'já está aberto e então o OutputTo usará o relatório já aberto e filtrado.
    '----------------------------------------------------------------------------

    DoCmd.OutputTo acOutputReport, "reporterSMS", acFormatPDF, strLocal 'Erro em tempo de excecução 2501; a ação OutpotTo foi cancelada!

    '---------------------------------------------
    'Fecha o relatório que está oculto
    '---------------------------------------------
    DoCmd.Close acReport, "reporterSMS"

    '-------------------------------------------------------------
    'Adiciona o arquivo pdf no anexo, capturado da pasta enviados
    '-------------------------------------------------------------
    objAnexo.Add strLocal, olByValue, 1

    '--------------------------------------------------------
    'Mostra o formulário de envio de email
    '--------------------------------------------------------
    objmail.Display

    '-------------------------------------------------------
    'Tudo já foi entregue ao Outlook; então podemos esvaziar
    'a memória do computador usada pelas variáveis objeto.
    '-------------------------------------------------------
    Set objAnexo = Nothing
    Set objmail = Nothing
    Set objOut = Nothing

    End Sub
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2675
    Registrado : 23/01/2018

    [Resolvido] Erro em tempo de excecução 2501  a ação OutpotTo foi cancelada! Empty Re: [Resolvido] Erro em tempo de excecução 2501 a ação OutpotTo foi cancelada!

    Mensagem  crysostomo 8/11/2022, 14:41

    Bom dia.
    Colega, se ele já estpa dentro da pasta de origem (CurrentProject.Path) não precisa apresentar a unidade C:\,  somente a pasta final e concater o nome do relatório com o código.

    strLocal = CurrentProject.Path & "C:\Users\wagui\Documents\REPORTER PROATIVO\" & strArquivo

    assim:

    strArquivo = "ReporteSMS" & "- " & Me!Código & ".pdf"
    strLocal = CurrentProject.Path & "\REPORTER PROATIVO\" & "- " & strArquivo


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    wdemelo gosta desta mensagem

    avatar
    wdemelo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 15/07/2013

    [Resolvido] Erro em tempo de excecução 2501  a ação OutpotTo foi cancelada! Empty Re: [Resolvido] Erro em tempo de excecução 2501 a ação OutpotTo foi cancelada!

    Mensagem  wdemelo 8/11/2022, 23:50

    Boa NOite, crysostomo

    Continua com o mesmo erro!
    Caso possa me dar uma ajudinha, em anexo o BD
    Anexos
    [Resolvido] Erro em tempo de excecução 2501  a ação OutpotTo foi cancelada! AttachmentSysProAtivo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (171 Kb) Baixado 6 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2675
    Registrado : 23/01/2018

    [Resolvido] Erro em tempo de excecução 2501  a ação OutpotTo foi cancelada! Empty Re: [Resolvido] Erro em tempo de excecução 2501 a ação OutpotTo foi cancelada!

    Mensagem  crysostomo 8/11/2022, 23:55

    O seu problema aqui é enviar para p email
    Seu sistema esta fechando sozinho.
    Pelo que eu vi você não criou as duas variaveis.
    da uma olhada ai porque ela esta fechando sozinha em segundos.
    Provavelmente ums macro ou evento sorecarregado, está travando e fazendo backup
    Nosso amigo irão ver, pois vejo amanhã


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    wdemelo gosta desta mensagem

    avatar
    wdemelo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 15/07/2013

    [Resolvido] Erro em tempo de excecução 2501  a ação OutpotTo foi cancelada! Empty Re: [Resolvido] Erro em tempo de excecução 2501 a ação OutpotTo foi cancelada!

    Mensagem  wdemelo 9/11/2022, 00:41

    Obrigado pela ajuda!
    Deu certo

    vc trabalha com desenvolvimento de Sistema em access?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2675
    Registrado : 23/01/2018

    [Resolvido] Erro em tempo de excecução 2501  a ação OutpotTo foi cancelada! Empty Re: [Resolvido] Erro em tempo de excecução 2501 a ação OutpotTo foi cancelada!

    Mensagem  crysostomo 9/11/2022, 01:07

    sim trabalhamos


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido] Erro em tempo de excecução 2501  a ação OutpotTo foi cancelada! Empty Re: [Resolvido] Erro em tempo de excecução 2501 a ação OutpotTo foi cancelada!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/3/2024, 03:34