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

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

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

Boa NOite, crysostomo

Continua com o mesmo erro!
Caso possa me dar uma ajudinha, em anexo o BD

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ã

Obrigado pela ajuda!
Deu certo

vc trabalha com desenvolvimento de Sistema em access?

sim trabalhamos