[Resolvido]Ação SendObject Cancelada

Companheiros boa tarde á todos!

Estou usando esse código para enviar relatório por email:

Private Sub Enviar_Click()
DoCmd.SendObject acReport, "RELATÓRIO", "MicrosoftExcel(*.xls)", "joao@.com.br", "", "", "Relatório ", "João Batista...", True, ""
End Sub

Está funcionando perfeitamente, acontece que se crico no botão enviar ele envia normalmente, mas se resolvo cancelar retorna a seguinte mensagem:

A acão SendObject foi cancelada.

Quero iliminar essa mensagem!

se alguem puder me dar uma força eu agradeço!

Abraços!

Consegui resolver por aqui dou o tópico por encerrado!

Criei um módulo e defini:

Function InformaErro()
If Err.Number <> 0 Then
MsgBox "Erro nº " & Err.Number & ": " & vbCrLf _
& Err.Description, vbExclamation, "Erro!"
End If
End Funct


No click do botão:

Private Sub enviar_Click()

On Error GoTo btnErro

DoCmd.SendObject acReport, "RELATÓRIO", "MicrosoftExcel(*.xls)", "joao@.com.br", "", "", "Relatório ", "João Batista...", True, ""

btnErro:
If Err.Number = 2501 Then
Resume Next
Else
Call InformaErro

End If

End Sub

Tem horas que da um branco na caxola
Coloquei aqui a solução, caso haja alguem com o mesmo problema.

Lupercio,

Boa tarde!
Apliquei os códigos na minha aplicação em Access e ao negar o envio do email o aplicativo realmente não mostra mais as mensagens, porém fica travado me restando apenas fechá-lo atraves do gerenciador de tarefas. Existe uma maneira de solucionar isso?

Muito obrigado.

Luciano.

Obrigado amigo!

Bom dia e obrigado pela dica.
Após negar o envio do email, aparece a Caixa de Mensagem conforme a instrução do JPaulo, porém no modo runtime o formulario do access fica travado. na minha aplicação eu inseri no evento ao abrir do formulario inicial um código que chama a função abaixo:

Function EnviaAlerta()
On Error GoTo btnerro
DoCmd.SendObject acReport, "Vencimentos", acFormatPDF, "luciano.carvalho@usiminas.com", , , "SISTEMA ALERTA - Anuidades a vencer", "Segue em anexo a relação de anuidades que estão proximas do vencimento." & vbCrLf & vbCrLf & vbCrLf & "Atenciosamente" & vbCrLf & "Sistema Alerta", False, ""

btnerro:
If Err.Number = 2293 Then
MsgBox "Montagem de email cancelada... ", 16, "Alerta"
End If

End Function


"Antes de tentar enviar email, solucione o problema identificado na mensagem anterior ou configure o computador para enviar e receber emails"

Alerta - Montagem de email cancelada...

clico em OK, em seguida aparece o formulario inicial, mas completamente travado (tanto que só consigo fechar pelo gerenciador de tarefas, finalizando a tarefa)

Resumindo, está do jeito que eu gostaria que ficasse só falta o formulario não ficar travado depois que dou Ok na mensagem. Se puderem me ajudar ficarei grato.

Muito obrigado.

Luciano.

Duas perguntas;

1ª Porque substituiu o nº do erro ?

2ª Você viu com atenção, que existe um "Exit Sub", para parar a instrução ?

JPaulo,

Primeiro gostaria de agradecer por sua ajuda que tem sido muito valiosa para a melhoria da minha aplicação.
Eu substitui o nº do erro porque é esse que aparece quando nego a mensagem. Observando melhor percebi que o código que você postou é para um botão, porém estou usando no evento ao abrir de um formulário, então resolvi colocar um botão no formulario e inserir o código nele, o resultado é que o aplicativo parou de travar após negar o envio do email. Talvez você possa me dizer se tem alguma relação.

Essa foi uma forma de resolver o travamento do sistema, graças a ajuda de vocês. Só gostaria de saber se tem alguma forma de enviar automaticamente o email somente no primeiro dia útil de cada mês (por exemplo).

Agradeço muito pela ajuda.
Um abraço!