Enviar email com acess2003

Boa Noite

Estou com um problema de envio de e-mail pelo outlook 2013
gostaria de ajuda pra solucionar esse problema
já busquei na internet mas de tive um resultado satisfatório
o linha de código que uso:

Private Sub Comando267_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SendObject acSendReport, "rel financeiro email", "(*.rtf)", "dany@oredencao.com.br", , , "Caixa do dia", Date
End Sub






e da esse erro
como resolver? ... antes ele funcionava
abria o outlook e a tela de envio já com o arquivo anexo


agradeço a quem poder ajudar
Helder

Olá Helder, você conseguiu resolver? Pergunto pq a ocorrência é de julho/23.

Se conseguiu pode comentar como conseguiu? Se não resolveu, a primeira pergunta pra tentar te ajudar é se você atualizou o pacote office e depois da atualização a função deixou de funcionar. Provavelmente o caminho pode ser por ai.

bom dia

Pergunto pq a ocorrência é de julho/23
pois é .. faz um tempo

não resolvi
estou esperado uma ajuda
pois pesquisei no fórum e na internet
estou ainda sem uma solução

o office não foi atualizado ...

te agradeço
Helder

Certo, vou tentar te ajudar e seguir por um caminho pra investigar se pode ser a origem do problema.

Ao acessar seu BD siga esse caminho:

1) Clique no menu "Ferramentas de banco de dados"
2) Uma das opções será "Visual Basic" é um ícone de atalho e não um sub-menu.
3) Ao clicar nessa opção o VB estará em tela. Selecione o item de menu "Ferramentas".
4) Ao fazer isso aparecerá um menu suspenso, seleciona a opção "Refefências"
5) Surgirá uma janela do tipo popup com todas as referências que a base está utilizando.
6) Um dos itens checados deverá ser "Microsoft Oficce xx.x Access database engine Object" o XX.X é a referência existente na sua versão do Office.

Minha suspeita é que essa opção não estará marcada. Se por acaso não estiver basta você descer na lista e procurar a referência e clicar de tal forma que ela fique selecionada.

Após selecionar basta fechar o VB e executar a rotina para testar.

Espero que seja isso!

At.
Luis Abreu

Boa tarde

agora aparece

-erro em tempo de execução 2046

-O comando ou ação 'Enviar Objeto" não está disponível agora.

depois de mudei pra o w10 ficou assim com esse problema
quando era w7 era só clicar ele abria o outlook2013
já tudo pronto e era só enviar

te agradeço pela ajuda
mais já li e pesquisei

só lembrando que o access 2003

Entendo você e é complicado mesmo encontrar uma solução direta, especialmente em se tratando de versões muito antigas de aplicativos. Você está usando o Office 2003 e ele foi atualizado inúmeras vezes.

Você tem uma automação entre softwares, considere dessa forma, por mais que todos sejam da Microsoft é uma integração e quando se atualiza também o SO (sistema operacional) da máquina há uma grande chance de coisas que funcionam pararem de funcionar.

A solução ideal mesmo é atualizar o Office para uma versão mais recente, se isso for possível claro. Eu acho que é a solução ideal pq de outra forma fazer as DLLs interagirem em versões distintas realmente é uma tarefa complicada.

De qualquer forma te desejo boa sorte por ai.

Abs.
Luis Abreu

Olá a todos,

Helder, pode seguir a sugestão do colega.
Veja também este tópico se ajuda:
https://www.maximoaccess.com/t10929-resolvidodocmd-sendobject-acsendreport

Outro pensamento:
Diz que está a usar o Outlook 2013 do Office, e pela imagem vejo que também está a usar o Access 2003 de outra versão do Office.
Significa que tem duas versões instaladas e pode ser a causa de algum conflito.

Como deve saber, pode executar a sua base de dados no formato MDB no Access 2013, já tentou desta forma se o problema mantém?

Abraço e boa sorte